过完小年，到处都是过年的气息，给大家介绍一些轻松好玩的东西：一个好玩的脚本——关不掉的窗口。

1、在电脑上创建一个XXX.txt文本，把代码复制进去，不要写注释，也不要在句尾留空格，保存，后缀改为XXX.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("世界无敌最可爱的我走啦")

此代码可以无限扩展

发给别人，让它双击运行就好，怎么点都关不掉

2、你肯定喜欢我：逼着她选是，哈哈哈哈

msgbox("嘿，我有件事想跟你说")

msgbox("从我见你第一天起我就喜欢上了你")

dim i

do while i<1

Select Case msgbox("如果你也对我有好感请点是",68,"")

Case 6 i=1

Case 7

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

end Select

loop

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