VB 根据文件名结束应用程序进程

Ineverleft

遍历查找记事本程序，找到后结束进程

1. 
   
2. Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
   
3. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
   
4. Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
   
5. Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
   
6. Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
   
7. Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long '
   
8. Private Const TH32CS_SNAPPROCESS = &H2
   
9. Private Const PROCESS_ALL_ACCESS = &H100000 + &HF0000 + &HFFF
   
10. 
    
11. Private Type PROCESSENTRY32
    
12.     dwSize As Long
    
13.     cntUseage As Long
    
14.     th32ProcessID As Long
    
15.     th32DefaultHeapID As Long
    
16.     th32ModuleID As Long
    
17.     cntThreads As Long
    
18.     th32ParentProcessID As Long
    
19.     pcPriClassBase As Long
    
20.     swFlags As Long
    
21.     szExeFile As String * 1024
    
22. End Type
    
23. 
    
24. 
    
25. 
    
26. Private Sub Form_Load()
    
27. 
    
28. Dim MySnapHandle As Long
    
29. Dim hProcess As Long
    
30. Dim ProcessInfo As PROCESSENTRY32
    
31.     MySnapHandle = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0)
    
32.     ProcessInfo.dwSize = Len(ProcessInfo)
    
33.     If ProcessFirst(MySnapHandle, ProcessInfo) <> 0 Then
    
34.         Do
    
35.             If Left(LCase(ProcessInfo.szExeFile), InStr(ProcessInfo.szExeFile, ".") + 3) = "notepad.exe" Then
    
36.             '遍历进程,查找notepad.exe记事本程序，找到后执行操作.......，进程名全小写
    
37.                hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, ProcessInfo.th32ProcessID)
    
38.              TerminateProcess hProcess, 1
    
39.              CloseHandle hProcess
    
40.             End If
    
41.         Loop While ProcessNext(MySnapHandle, ProcessInfo) <> 0
    
42.     End If
    
43.     CloseHandle MySnapHandle
    
44.    
    
45. End Sub
    

复制代码