无聊写了一段代码.VBS的.纯出无聊，写着玩意….
只希望快点从某些难过的情绪里走出来….
分割线以下的代码直接复制到文本中(文本?就是TXT格式的文件啊),保存,再然后把文本的后缀名txt改成VBS，你自己双击打开试试.
——————————————————–
Dim a,b
If msgbox(“你喜欢我嘛?”,VByesno,”o(∩_∩)o “)=vbyes then
msgbox”o(∩_∩)o ~看到这样的结果好开心!”,0,”o(∩_∩)o ”
a=inputbox(“能告诉我为什么喜欢我么?”,”o(∩_∩)o “)
If a <> “” then
msgbox”o(∩_∩)o “,0,”感动”
else
msgbox”为什么就不回答了呢?好吧,喜欢一个人是不需要任何理由的”,0,”0.0~”
end if
elseif a=msgbox(“其实我已经猜到会有这样的结果了….桑心ing….”,0,”唉….”)=vbOKONLY THEN
b=inputbox(“为什么呢?能告诉我么?”,”无力回天的感觉….”)
If b <> “” then
msgbox”有些事情,意料之中….谢谢你”,0,”难过….”
else
msgbox”连个不喜欢的理由都没有,可能我真的不是那个人吧”,0,”痛苦”
end if
end if