用VBS写一段程序定时关闭指定程序？

代码如下:

Dim WS'Dim 悔耐胡variable.Set WS=WScript.CreateObject("WScript.Shell")'Create object.WS.Run "",1'上面一行双引号中键入文件路径.逗号后面的"1"意思为正常运行此程序,改为0可隐藏运行.WS.Run "taskkill /f /im notepad.exe",0'以上是一个关闭记事本的亩信代码示例.将"notepad.exe"改成你想要结束的进程可关闭相应的程碧拦序.

set

oS=createobject("wscript.shell")

'创建shell对象

do

'一直到最后loop之间就是要循环执行粗岁闷巧的代码，这个循环不会终止

oS.run

"cmd.exe

/c

taskkill

/岩罩睁f

/im

QQ.exe"

'强制结束运行QQ.exe这个程序进程

wscript.sleep

1000*5

'暂停5秒钟，因为这个函数是按毫秒计算，所以写成1000*5

loop

把上面保存为vbs文件，用上面的方法举一反三就可以了，批处理也可实现，但很占内存，所以用vbs了，这样一旦运行QQ就会结束。同理结束其他程序找到进程名，改一下就可以

。

首先，找到你这个进程的进程名字，比如谨首粗qq是qq.exe，360是360xxx.exe。好了，记下这个名字备用。

然后修改以下vbs代码，其实也就只是自定义下进程名字而已。

Set obj = GetObject("winmgmts:")

Set match = obj.execquery("select * from win32_process where name = '<name>'") '<name>代表程序运行时的进程名，要自定义，也就是这里改成你的qq或者360

For Each m In match

m.terminate '执行关掉进程的命令，如果进程中有多个同名进程（譬如你登芹伏陆了3个qq号），也会一并关掉。如果你只想关掉你祥镇打开的那个进程，就要找到那个进程的process Identifier，然后在sql语句那里加个条件- and processid = '1234'就可以了

Next

msgbox "关闭进程成功！"

Set obj = Nothing

就这样，很简单，呵呵，求采纳！

---