06-05-2013، 03:58 PM
در سورس زیر نحوه پستن پروسه notepad.exe رو یاد میگیرید.
هر برنامه ای که میخواهید پروسه ان رو ببندید فقط کافیه جای notepad.exe اسم پروسه مورد نظر رو بنویسید:
سورس کد:
هر برنامه ای که میخواهید پروسه ان رو ببندید فقط کافیه جای notepad.exe اسم پروسه مورد نظر رو بنویسید:
سورس کد:
کد پیاچپی:
Private Sub Command1_Click()
TerminateProcess ("notepad.exe")
End Sub
Private Sub TerminateProcess(app_exe As String)
Dim Process As Object
For Each Process In GetObject("winmgmts:").ExecQuery("Select Name from Win32_Process Where Name = '" & app_exe & "'")
Process.Terminate
Next
End Sub