VBS好玩的整人小程序

1、无限弹框程序，可根据自己需要修改增添文本

set ws=createobject("wscript.shell")

do while a<>"XXX" ‘如果输入的不是这个XXX，那么会一直重复弹框问下面的问题

a=inputbox("请输入XXX喜欢谁"" ","一个问题","")

loop

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

dim i
for i=0 to 100    '报数101次，可更改100为其他数
    msgbox i
next