[问题求助] vbs 循环检测qq.exe进程

pichuli1

如何 用vbs 7秒循环 检测qq.exe进程 存在进程不进行任何操作 继续监视。不存在进程就重命名 c盘 1.exe 为 2.exe

悬崖之树

二楼代码不够完善，vbs无法正常结束。

Dim objWsh
Set objWsh = CreateObject("Wscript.Shell")
Do
    objWsh.Run "cmd.exe /c tasklist|find /i ""QQ.exe""||(echo ok>1.txt&taskkill /f /im wscript.exe)",0,True
    Wscript.Sleep 7000
Loop
复制代码

czjt1234

Dim objWsh
Set objWsh = CreateObject("Wscript.Shell")
Do
    objWsh.Run "cmd.exe /c tasklist|find /i ""QQ.exe""||ren c:\1.exe 2.exe", 0, True
    Wscript.Sleep 7000
Loop While True
复制代码