返回列表 发帖
悬崖之树

Rank: 5Rank: 5

帖子
226 
积分
1298 
技术
9  
捐助
0  
注册时间
2012-7-4 
1楼 跳转到 »
发表于 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
LoopCOPY
时光荏苒||新陈代谢&&涛声依旧||本性难移

TOP

返回列表