Question

vb 如何找到指定进程并关闭？

如题

Answer 1

你可以看一看这样的两个vb的api函数：

1：GetCurrentProcessId

VB声明

Declare Function GetCurrentProcessId Lib "kernel32" Alias "GetCurrentProcessId" () As Long

说明

获取当前进程一个唯一的标识符

返回值
Long，当前的进程标识符

2：ExitProcess

VB声明
Declare Sub ExitProcess Lib "kernel32" Alias "ExitProcess" (ByVal uExitCode As Long)

说明
中止一个进程

给你一个具的例子，你看一看吧：

Private Const PROCESS_TERMINATE = &H1

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

Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Timer1_Timer()

Dim hProcess As Long

hProcess = Shell("notepad.exe", vbNormalFocus) '取得id
Sleep (1000)
hProcess = OpenProcess(PROCESS_TERMINATE, 0&, hProcess) '取得句柄
TerminateProcess hProcess, 0& '结束进程

Timer1.Enabled = False
CloseHandle hProcess

End Sub

注意：timer1的interval的属性设置为1000，
：notepad.exe是随便写的，你可以改成你要的监控进程.

:所有的vb的api函数都在vb6的apiview工具之中可以得到！

也许这回对你有帮助的！你可以试一试，