结婚十年妻子出轨谢非:VB监视进程

可以用一个 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

前面需要声明两个API和定义常量,我很久没用VB了,可能格式有错误!你试试

这里我写了一个.
---------------------------------------------
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
---------------------------------

我拿计算器和任务管理器测试的可以完成!