vb程序怎样获得自身的进程标识符(PID)

来源:百度知道 编辑:UC知道 时间:2024/06/14 16:56:13
rt
原意是a.exe 启动 b.exe 后结束自己,b.exe等待a.exe结束。
或有更好的方案也可以

on error resume next

killname="notepad.exe" '要kill的进程名字,如果有多个请用"|"分割开

kill=Split(killname,"|")

call kl

Private Sub kl()
for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_
for each name in kill
if LCase(ps.name)=LCase(name) then
ps.Terminate
end if
next
next
end sub
这段代码可以结束notepad.exe进程,你可以引用一下。