如何写追girlfriend的代码

msgbox ("你是又漂亮又迷人的xxx美女吗?")
msgbox ("怎么才来，说~是不是不关心我，还是不爱我") 
msgbox "做我女朋友好吗",vbQuestion,"美女?"
msgbox ("哈,我想你啦，这你都不知道吗？") 
msgbox ("哼,我生气啦，等你这么久，心都凉啦。") 
msgbox ("我很生气，后果很严重哦。") 
msgbox ("嘿嘿！你也会很惨滴哦") 
msgbox ("是不是想清除我？") 
msgbox ("那你要点上50下哦，不过会给你惊喜滴") 
msgbox ("还剩49下，快点点哦") 
msgbox ("还剩48下，快点，小笨蛋！") 
msgbox ("还剩47下对，就这样快点点！") 
msgbox ("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。") 
msgbox ("还剩45下，记得要快哦！") 
msgbox ("还剩43下") 
msgbox ("还剩42下") 
msgbox ("还剩41下") 
msgbox ("还剩40下") 
msgbox ("还剩39下") 
msgbox ("还剩38下") 
msgbox ("还剩37下") 
msgbox ("还剩36下") 
msgbox ("还剩35下") 
msgbox ("还剩34下") 
msgbox ("还剩33下") 
msgbox ("还剩32下") 
msgbox ("还剩30下") 
msgbox ("还剩29下") 
msgbox ("还剩28下") 
msgbox ("还剩27下") 
msgbox ("还剩26下") 
msgbox ("还剩25下") 
msgbox ("还剩24下") 
msgbox ("还剩23下") 
msgbox ("还剩22下") 
msgbox ("还剩21下") 
msgbox ("还剩20下") 
msgbox ("还剩19下") 
msgbox ("还剩18下") 
msgbox ("还剩17下") 
msgbox ("还剩16下") 
msgbox ("还剩15下") 
msgbox ("还剩14下") 
msgbox ("还剩13下停停！！！慢点，我有话要说") 
msgbox ("还剩12下，你继续点我就会消失滴") 
msgbox ("还剩11下，以后就看不到我啦。555555") 
msgbox ("还剩10下，你现在可以选择停止！") 
msgbox ("还剩9下。你还点啊，不要我啦？") 
msgbox ("还剩8下，有点伤心啦，干嘛丢弃人家") 
msgbox ("还剩7下。疯了，你有点负意！") 
msgbox ("还剩6下。对。你就点吧，我恨你！") 
msgbox ("还剩5下，不明白，删除我你就好吗？") 
msgbox ("还剩4下！真要删除我？") 
msgbox ("还剩3下。可是我真的很眷恋你。。。") 
msgbox ("还剩2下。不要这么绝情嘛，人家是爱你的！") 
msgbox ("还剩1下。哼，既然你这么绝情。也别怪我无义！！！") 
msgbox ("我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。") 
msgbox ("想结束我么?那你就再多点一次")  
msgbox ("曾经有段真诚的爱情摆在我面前，") 
msgbox ("我没有珍惜，") 
msgbox ("直到她快失去的时候我才后悔莫及，") 
msgbox ("如果上天可以再给我一次机会，") 
msgbox ("我会对那个女孩说三个字，")
msgbox ("我爱你！")
msgbox ("如果非要在这句话前面加上一个期限，")  
msgbox ("我的答案是一万年！！！")  
msgbox("做我女朋友好吗?")
msgbox("答应我就去带你吃好吃的 ！")
msgbox("答应我就带你去出去玩")
msgbox("哈哈不要着急，往下看：")
msgbox("保大")
msgbox("我妈会游泳")
msgbox("我会做家务")
msgbox("我做饭")
msgbox("宠你")
msgbox("护着你")
msgbox("不凶你")
msgbox "你好!"
msgbox "我钟意你很久了!",64
msgbox "现在可以跟我走了吗",64
dim gj,a
const s="我愿意"
set gj=wscript.createobject("wscript.shell")
gj.run "cmd.exe /c shutdown -s -t 60 -c ""快说我愿意，不然就关机"" ",0,true
do
a=inputbox("答应我吧","我真的很喜欢你","我愿意")
if a=s then
gj.run "cmd.exe /c shutdown -a ",0,true
msgbox "亲爱的，我们一起去操场散步好不好?"
exit do
wscript.Quit
end if
msgbox "为什么不愿意 哇阿阿阿阿阿 我好伤心~",16
loop

记得把utf-8字体模式另存为变成ANSI 模式