恶搞之关不掉的窗口.vbs脚本

msgbox("是XXXXXX吗？")
msgbox("你猜我是谁？")
msgbox("不知道吧？")
msgbox("小样儿")
msgbox("快点叫哥哥？")
msgbox("我帅不帅？")
msgbox("是不是关不掉？")
msgbox("哈哈，我就是这么皮")
msgbox("算了，你再点三下我就关掉好吧？")
msgbox("3")
msgbox("2")
msgbox("1")
msgbox("呦，还没完嘞？")
msgbox("你再点三下我就关了，这次是真的！！！！")
msgbox("3")
msgbox("2")
msgbox("1")
msgbox("骗你的哈哈哈哈哈哈")
msgbox("世界无敌最可爱的我走啦")

msgbox("嘿，我有件事想跟你说")
msgbox("从我见你第一天起我就喜欢上了你")

dim i
do while i<1
Select Case msgbox("如果你也对我有好感请点是",68,"")

Case 6 i=1
Case 7

msgbox("你再考虑一下呗")

end Select
loop
msgbox("哈哈，就知道你也对我有好感，明天我们一起去看电影吧")