悬崖之树

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