VB6-如何跟踪一个进程？

来源：百度知道 编辑：UC知道 时间：2024/05/15 03:36:40
如果在 VB6 中使用 id=Shell("C:\Exe1.EXE") 方法打开一个程序并得知此应用程序的 PID (进程号)，如何得知这个程序是否结束？

没找到源码,我自己慢慢打出来...

const SYNCHRONIZE=&H100000
const INFINITE=&HFFFFFFFF

'API函数我只给出名称,不详细打出来了
OpenProcess,CloseHandle,WaitForSingleObject

dim PID as long,pHnd as long
PID=shell("c:\exe1.exe",vbnormalfocus)
pHnd=OpenProcess(SYNCHRONIZE,0,PID)

if pHnd <> 0 then
call WaitForSingleObject(pHnd,INFINITE)
call CloseHandle(phnd)
end if