从百度知道看的,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 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,ProHandle) TerminateProcess ProcessHandle,0 End If End Sub
原文地址:https://www.jb51.cc/vb/258308.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。