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

讓VB程序監視進程中的名稱“Windows 任務管理器”,和“AAA”兩個進程的進程名，
而且進行操作：如果“Windows 任務管理器”被關閉時則自動關閉“進程某某”程序！


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

Dim Handle As Long Handle = FindWindow(vbnullstring,"Windows 任務管理器")Dim Handle2 as long Handle2 = FindWindow(vbnullstring,"進程某某") if not (Handle) thenSendMessage Handle2,WM_CLOSE,0,0Option 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 LongPrivate Sub Timer1_Timer()Dim Handle As Long Dim handle2 As Long Dim ProHandle As Long Dim ProcessHandle As LongHandle = FindWindow(vbNullString, "Windows 任務管理器")If Handle = 0 Thenhandle2 = FindWindow(vbNullString, "進程某某")GetWindowThreadProcessId handle2, ProHandleProcessHandle = OpenProcess(1, 0, ProHandle)TerminateProcess ProcessHandle, 0End If End Sub

總結

以上是生活随笔為你收集整理的转载：VB监视进程的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。