VB如果监视进程

来源：百度知道 编辑：UC知道 时间：2024/07/07 10:17:58
如何让VB程序监视进程中的1.exe,和2.exe，而且进行操作：如果1.exe被关闭时则自动关闭2.exe。

这个该怎么写代码？？？请写清代码！谢谢

在线等啊！

用timer控件
设成你要监视进程表的时间 以下是每隔1秒查看一次进程 如果没有1.exe 自动关闭2.exe

Option Explicit
Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) 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 Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Pri