سلام
با تشکر از اقا شما که این بخش رو ساختن فکر کنم منم بتونم اینجا یه چیزایی بزارم:
شاید بعضی از دوستان لازم داشته باشن که در برنامه خودشون پروسه دیگه ای رو که در سیستم در حال اجرا هست ببندن مثلا با زدن دکمه ای برنامه اینترنت اکپلورر رو ببندن یا کم پلایر یا هر چیز دیگه ای
دوستان میتونن از این دستور استفاده کنن
کد:
Shell "taskkill /f /im " & Text1.Text, vbHide
شما میتونید این کد رو داخل یه دکمه یا هر چیز دیگه ای بزارید و اجراش کنید برای بستن شما تنها باید نام پروسه درحال اجرا رو به این کد بدین طبق کد یا میتونید داخل یه تکست باک بنویسید
--------------------------------------------------------------------
حالا شاید بخواهید که پروسه های درحال اجرا رو در سیستم ببینید با این کد میتونید اونها رو توی یه لیست باکس به راحتی ببینید
کد:
Private Sub Form_Load()
List1.Clear
Dim hSnapShot As Long, uProcess As PROCESSENTRY32
hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)
uProcess.dwSize = Len(uProcess)
r = Process32First(hSnapShot, uProcess)
Me.AutoRedraw = True
Do While r
List1.AddItem Left$(uProcess.szExeFile, IIf(InStr(1, uProcess.szExeFile, Chr$(0)) > 0, InStr(1, uProcess.szExeFile, Chr$(0)) - 1, 0))
r = Process32Next(hSnapShot, uProcess)
Loop
CloseHandle hSnapShot
End Sub
یادم رفت بگم قبل اینها برای اجرای این دستورات باید کد های اجرایی و توابع api لازم رو در بخش جنرال وارد کنید
کد:
Const TH32CS_SNAPHEAPLIST = &H1
Const TH32CS_SNAPPROCESS = &H2
Const TH32CS_SNAPTHREAD = &H4
Const TH32CS_SNAPMODULE = &H8
Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Const TH32CS_INHERIT = &H80000000
Const MAX_PATH As Integer = 260
Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type
Private Declare Function CreateToolhelp32Snapshot Lib "Kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function Process32First Lib "Kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "Kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long)
البته این دستورات میتونن کاربردهی زیادی داشته باشن من به شخصه اونها رو توی تروجان ها و مشابه رت هاییی که نوشتم بکار بردم و خیلی هم خوب کار میکردن و انتی هم بهشون گیر نمیده.
موفق باشید یاعلی
- - - - - - - - - به دلیل ارسال پشت سر هم پست ها ادغام شدند - - - - - - - - -
سلامی دوباره
با یه کد تازه برای شما اینجا اومدم
تا به حال خواستین برنامه ای بنویسید که موس رو خود به خود حرکت بده روی صفحه نمایش؟؟
مثلا بره به مختصات فلان و دابل کلیک کنه!اونم خودش به صورت خودکار بدون هیچ دخالت دست و موس!
این کد میتونه موس شما رو حرکت بده،شما تنها میتونید با تغییر خیلی جزئی به خواسته خودتون برسید و کد ها رو اونطور که خودتون میخواید تغییر بدین .
کد:
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
'before you start this program, i suggest you save everything that wasn't saved yet.
Private Declare Sub mouse_event Lib "user32" (ByVal dwflags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwextrainfo As Long)
Const mouseeventf_leftdown = &H2
Const mouseeventf_leftup = &H4
Const mouseeventf_middledown = &H20
Const mouseeventf_middleup = &H40
Const mouseeventf_move = &H1
Const mouseeventf_absolute = &H8000
Const mouseeventf_rightdown = &H8
Const mouseeventf_rightup = &H10
Private Sub Command1_Click()
For i = 25 To 1023
For j = 0 To 767
ret& = SetCursorPos(i, j)
Next j
Next i
End Sub
کلا من عاشق این کد ها شدم میدونید چرا؟؟؟ چون توی زمان دانش اموزی و دانشجویی با این کد ها حالی میکردم ویروس میساختم میدادم دست بچه ها که همش موس اونها روی صفحه حرکت میکرد اونها هم نمیتونستن کنترلش کنن. خیلی با حال بود.
اما شما از این کار های بد بد نکنین(
)
یا علی