轉載：VB監視程序

從百度知道看的，VB監視程序：

讓VB程式監視程序中的名稱“Windows 任務管理器”,和“AAA”兩個程序的程序名，

而且進行操作：如果“Windows 任務管理器”被關閉時則自動關閉“程序某某”程式！

可以用一個 Timer 定時執行下面的代碼

Dim Handle As Long
Handle = FindWindow(vbnullstring,"Windows 任務管理器")


Dim Handle2 as long
Handle2 = FindWindow(vbnullstring,"程序某某")
if not (Handle) then
   SendMessage Handle2,WM_CLOSE,0,0


Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
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



Private Sub Timer1_Timer()

Dim Handle As Long
Dim handle2 As Long
Dim ProHandle As Long
Dim ProcessHandle As Long


Handle = FindWindow(vbNullString, "Windows 任務管理器")


If Handle = 0 Then


    handle2 = FindWindow(vbNullString, "程序某某")
    
    GetWindowThreadProcessId handle2, ProHandle
    
    ProcessHandle = OpenProcess(1, 0, ProHandle)
    
    TerminateProcess ProcessHandle, 0
    
End If
End Sub