Option Explicit'----------------------------------------- API声明 ------------------------------------------------------- Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long'---------------------------------------- API常数声明 ------------------------------------------------------Private Const PROCESS_TERMINATE = &H1&Dim ProcessID As LongPrivate Sub Command1_Click() ProcessID = Shell("notepad") End SubPrivate Sub Command2_Click() Dim hProcess As Long hProcess = OpenProcess(PROCESS_TERMINATE, False, ProcessID) If hProcess Then TerminateProcess hProcess, 0 End Sub
能隐藏进程。即使是服务程序,同样都会在进程表里出现。如果你想不让别人看到你的
程序,可以借助于RUNDLL32执行你的程序,这时你的程序只是属于RunDLL32进程中的一
个子线程,所以在进程总表中也就不会看见你的程序,只会看见Rundll32.exe这个进程。
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long'---------------------------------------- API常数声明 ------------------------------------------------------Private Const PROCESS_TERMINATE = &H1&Dim ProcessID As LongPrivate Sub Command1_Click()
ProcessID = Shell("notepad")
End SubPrivate Sub Command2_Click()
Dim hProcess As Long
hProcess = OpenProcess(PROCESS_TERMINATE, False, ProcessID)
If hProcess Then TerminateProcess hProcess, 0
End Sub