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

创建一个text文本，把代码复制进去，不要写注释，也不要在句尾留空格，保存，后缀改为.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("哈哈，就知道你也对我有好感，明天我们一起去看电影吧")