批处理之家 - Powered by Discuz! Board

标题: [问题求助] vbs 循环检测qq.exe进程 [打印本页]

作者: pichuli1 时间: 2012-11-9 16:51 标题: vbs 循环检测qq.exe进程

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

作者: czjt1234 时间: 2012-11-13 13:13

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
复制代码

作者: 悬崖之树 时间: 2013-4-26 19:47

二楼代码不够完善，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
复制代码

欢迎光临批处理之家 (http://bbs.bathome.net/)