Question

vbs自动检测qq.exe进程并关闭的代码

vbs自动检测qq.exe进程并关闭代码

Answer 1

Set objShell = CreateObject("Wscript.Shell")
Do While true
objShell.Run "cmd.exe /c taskkill /im QQ.exe /f /t",0,true
WScript.Sleep 5000
loop
保存为VBS文件运行即可，要终止检测关闭QQ程序，在命令窗口中输入：
taskkill /im wscript.exe /f 回车即可

或者编写一个终止正在运行的VBS程序文件
CreateObject("Wscript.Shell").popup "已终止检测关闭QQ，现在可以上QQ聊天了。",3,"终止正在运行的VBS脚本文件"
CreateObject("Wscript.Shell").Run "cmd.exe /c taskkill /im wscript.exe /f ",0

和上面一样保存为VBS文件

Answer 2

Set Wshell=WScript.CreateObject("WScript.Shell")
Dim OK
OK = False
Set bag=GetObject("winmgmts:\\.\root\cimv2")
Do
set pipe=bag.execquery("select * from win32_process where name='qq.exe'")
For Each id In pipe
wshell.Run "taskkill -f -im QQ.exe",0,true
Next

Wscript.sleep 10000 '暂停10秒
Loop

Answer 3

hork啊···我也是黑客···不过，我是白帽黑客，不犯法···你是黑客，犯法滴···