vbs恶搞程序（超初级）

do

baba=inputbox("叫哥哥！！！ ")

if baba="哥哥"then

exit do 

else:

msgbox"弟弟快叫哥哥！                                                                    ",64,"警告"

end if

loop

msgbox"哎，弟弟",64,"哈哈哈"

do

baba=inputbox("叫爸爸！！！")

if baba="爸爸"then

exit do 

else:

msgbox"儿子快叫爸爸！",64,"警告"

end if

loop

msgbox"哎，乖儿子"

do

baba=inputbox("叫爷爷！！！")

if baba="爷爷"then

exit do 

else:

msgbox"乖孙快叫爷爷！！",64,"警告"

end if

loop

msgbox"哎，乖孙"


do

baba=inputbox("行了，别套近乎，快承认自己是猪！！！",hh,"我是")

if baba="我是猪"then

exit do 

else:

msgbox"你这猪真是让我丢脸！！",64,"警告"

end if

loop

msgbox"哎，弱智"


do

baba=inputbox("我是天生鬼才吗！！！")

if baba="是"then

exit do 

else:

msgbox"你一定在撒谎！！",64,"警告"

end if

loop

msgbox"这就对了"

do

baba=inputbox("我对你好吗！！！")

if baba="好"then

exit do 

else:

msgbox"你一定在撒谎！！",64,"警告"

end if

loop

msgbox"哎，我的乖孙"

msgbox"顺便照顾一下你"

do

msgbox"从前有座山"

msgbox"山里有座庙"

msgbox"庙里有个老头给小和尚讲故事"

msgbox"讲的是"

loop

人畜无害但侮辱性极强！