Dim sysps As String

sysps = Array("1.exe", "2exe", "3.exe", "4exe",)





Dim hProcess As Long
Dim pid As Long
pid = GetPsPid(sysps)

        
        hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If hProcess = 0 Then
                hProcess = LzOpenProcess(PROCESS_ALL_ACCESS, pid)
        End If
Call TerminateProcess1(hProcess, 0)







总是出错,我就是要批量取 多个进程的PID ,在TIMER里循环 取,如果发现这几个进程，我就 结束他,麻烦 高手了，帮我看看

大家帮忙给看看，谢谢

GetPsPid(sysps)
GetPsPid 呢？

斑竹，谢谢了，快帮我看看吧，头大了



Function GetPsPid(sProcess As String) As Long
Dim lSnapShot As Long
Dim lNextProcess As Long
Dim tPE As PROCESSENTRY32
lSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0&)
If lSnapShot <> -1 Then
tPE.dwSize = Len(tPE)
lNextProcess = Process32First(lSnapShot, tPE)
Do While lNextProcess
If LCase$(sProcess) = LCase$(Left(tPE.szExeFile, InStr(1, tPE.szExeFile, Chr(0)) - 1)) Then
Dim lProcess As Long
Dim lExitCode As Long
GetPsPid = tPE.th32ProcessID

CloseHandle lProcess
End If
lNextProcess = Process32Next(lSnapShot, tPE)
Loop
CloseHandle (lSnapShot)
End If
End Function

谢谢楼上，我测试下

我是有 多个  进程，需要取PID，   sysps = Array("1.exe", "2exe", "3.exe", "4exe",)，  斑竹可以帮我改下吗

收到的鲜花

• wuyuede 于 2010-01-12 22:24 送鲜花  5朵   附言：我很赞同

斑竹，我 还有个问题，你刚才写的这个程序和我要求的有点小差异，我把原代码，发你，你帮我看看吧
 
    http://down.

这个是我自己修改过的，但是运行起来 总是很卡，卡的都不行了，估计是哪个变量定义有问题，麻烦你给我看看，谢谢

[ 本帖最后由 wuyuede 于 2010-1-13 17:48 编辑 ]

hnd = OpenProcess(PROCESS_TERMINATE, 0, lngPID)
GetExitCodeProcess hnd, lExitCode
TerminateProcess hnd, lExitCode

你中间少了一步吧?