1、無限彈框程序，可根據(jù)自己需要修改增添文本

set ws=createobject("wscript.shell")

do while a<>"XXX" ‘如果輸入的不是這個(gè)XXX，那么會(huì)一直重復(fù)彈框問下面的問題

a=inputbox("請輸入XXX喜歡誰"" ","一個(gè)問題","")

loop

msgbox"好吧，不過好自戀啊",4096+64

msgbox"但是你關(guān)不掉我",4096+64

msgbox"真的",4096+64

MsgBox"你不信？",4096+64

MsgBox"打開任務(wù)管理器也沒有什么軟用的",4096+64

MsgBox"給你講個(gè)故事",4096+64

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

MsgBox"山里有個(gè)廟.",4096+64

MsgBox"廟里有個(gè)老和尚在講故事.",4096+64

msgbox"哎呀累了！數(shù)綿羊哄我睡覺",4096+64

dim i
for i=0 to 100? ? '報(bào)數(shù)101次，可更改100為其他數(shù)
?? ?msgbox i
next

?

總結(jié)

以上是生活随笔為你收集整理的VBS好玩的整人小程序的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。