text()

function text()

dim a

a=InputBox（＂乖儿子，赶紧叫爸爸 ！ ！ ！ ＂）

if a=＂爸爸＂then

Msgbox＂好儿子，真是爸爸的好大儿，去玩吧 ！ ＂，0，＂ ^ ^ 恭喜，孩子，你可以出去玩了 ^ ^ ！ ＂

else

Msgbox＂臭小子，给我回来，赶紧叫，不叫爸爸别想走 ！ ！ ！ ＂，0，＂给我回来 ！ ！ ！ ＂

text()

end if

end function

vbs程序，可以整自己的好朋友，只需把后缀改成.vbs