检测某路径文件程序的状态而执行代码.docVIP

检测某路径文件程序的状态而执行代码 Option Explicit Private Declare Function ShellExecute Lib shell32.dll Alias ShellExecuteA (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 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 Module32First Lib kernel32 (ByVal hSnapshot As Long, lppe As MODULEENTRY32) As Long Private Declare Function Module32Next Lib kernel32 (ByVal hSnapshot As Long, lppe As MODULEENTRY32) As Long Private Declare Function ProcessNext Lib kernel32 Alias Process32Next (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Function CloseHandle Lib kernel32 (ByVal hObject As Long) As Long Private Declare Function OpenProcess Lib kernel32.dll (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function TerminateProcess Lib kernel32 (ByVal ApphProcess As Long, ByVal uExitCode As Long) As Long Const mfile As String = \Start.exe Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long szExeFile As String * 260 End Type Const TH32CS_SNAPPROCESS = H2 Const TH32CS_SNAPmodule = H8 Private Type MODULEENTRY32 dwSize As Long th32ModuleID As Long th32ProcessID As Long GlblcntUsage As Long ProccntUsage As Long modBaseAddr As Byte modBaseSize As Long hModule As Long szModule As String * 256 szExePath As String * 1024 End Type Private Sub Command1_Click() End End Sub Private Sub Command2_Click() 调用函