求一段vbs，要求内详

来源：百度知道 编辑：UC知道 时间：2024/06/14 05:58:55
检测是否存在A进程，如果是则再检测是否存在B进程，如果是则结束B进程

要求死循环，3秒检测一次
加上点要求：如果A进程不存在了，再执行B进程

感谢3楼，其实我原来写出来了，跟你一样是无限执行B，后来把执行B那段换成一个IF语句解决了，不过我没有VB基础，怕不够精简，语法有小问题，请你完善

还有就是A启动时结束B的Taskkill抢焦点，原来少了个“,0”，太谢谢你了

完成以上给分

dim ws
dim objWMIService,colProcessList
dim objProcessA,objProcessB
dim a,aExit
dim b,bExit
a="a进程" '请修改为实际进程名
b="b进程"'请修改为实际进程名

'以下为通用代码，不要修改
set ws=createobject("wscript.shell")
do
aExit=false
bExit=false
Set objWMIService =GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcessList=objWMIService.ExecQuery _
("Select * from Win32_Process Where Name='" & a & "'")
For Each objProcessA in colProcessList '查找a进程
aExit=true 'a进程存在
exit for
Next

Set objWMIService =GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcessList=objWMIService.ExecQuery _
("Select * from Win32_Process Where Name='" & b & "'")
For Each objProcessB in colProcessList '查找b