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

?

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。