Question

vbs 关闭一个程序

Answer 1

set f=createobject("scripting.filesystemobject")
do
set mi=getobject("winmgmts:win32_process").instances_
for each p in mi
if ucase(p.name)=ucase("QQ.exe") then

p.terminate
set fw=f.createtextfile("您的结束进程结果.txt",2)
fw.close
wscript.sleep 2000
set ff=f.opentextfile("您的结束进程结果.txt",8,true)
ff.writeline now & " " & "结束QQ进程.exe"
ff.close
end if

next
wscript.sleep 2000
loop

如果退出脚本的话 在LOOP 上面一行加上 WScript.quit
其实这个脚本一直都是隐藏运行 之后所写入结束QQ的时间都是追加进文本的
不需要退出也可以 不是很占资源 wscript.sleep 2000 1000为1秒 自己改吧

结束QQ的

Answer 2

只要不关闭这个脚本，就在不停的关闭啊！所以无法打开，因为打开了马上就关闭了，电脑的反应速度绝对比你眼睛快，所以你无法打开！
do ''关键是这里，你没有退出的条件，就形成了一个死循环！如果想打开，去掉这里和下面的LOOP
good="."
set bag=getobject("winmgmts:\\"&good&"\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='TTPLAYER.EXE'")
for each i in pipe
i.terminate() 这里是遍历过程
next
wscript.sleep 2
同样
loop
好像酒喝多了。。。