几个好玩（整人）的vbs小程序

虽然标题上是讲vbs的，但是我不介意在文章末尾加彩蛋！
整人之旅开始啦！

1.vbs

1.恶搞不断弹出消息对话

set ws=createobject("wscript.shell") 

call shutdown(1) 

do while a<>"XXX" 

a=inputbox("快在下面的框框里输入XXX喜欢谁,否则后果自负"" ","一个问题","") 

loop 

call shutdown(2) 

msgbox"好吧，不过好自恋啊",4096+64 

msgbox"但是你关不掉我",4096+64 

msgbox"真的",4096+64 

MsgBox"你不信？",4096+64 

MsgBox"打开任务管理器也没有什么软用的",4096+64 

MsgBox"给你讲个故事",4096+64 

MsgBox"从前有座山!",4096+64 

MsgBox"山里有个庙.",4096+64 

MsgBox"庙里有个老和尚在讲故事.",4096+64 

msgbox"哎呀累了！数绵羊哄我睡觉",4096+64 

for i=1 to 60

上面的“for i=1 to 60”中的“60”是次数的数量，可以更改的

2.不断弹出光驱

set wmp=createobject("wmplayer.ocx")
set cd=wmp.cdromcollection.item(0)
do
cd.eject
loop

我认为这个可以把你 朋友 仇人 整到疯！
但是下面这两个才更加 震惊 正经

3.无尽语音报数：无限语音从1数到无限大

Set s = CreateObject("sapi.spvoice")
i=0
do
s.speak i
i=i+1
loop

4.无尽刷新

set ws=createobject("wscript.shell")
do
ws.sendkeys "{f5}"
loop

慎用，如此刷新打开任务管理器都难，只能拔掉电源。

咳咳咳，热身已结束，来一点更好玩的吧

1.修改注册表

on error resume next
set wr=createobject("scripting.filesystemobject")
set ws=createobject("wscript