教程开始

const title = "爱情测试"


const yourname = "范冰冰"


const question = "你最喜欢的人是谁？请在下面的方框中输入他（她）的名字。"


const info = "你在说谎！不要逃避，实话实说。"


const scend = "你说出了你的心扉，那就向他（她）表白吧。"


dim youranswer


do


youranswer = inputbox(question, title)


if youranswer <> yourname then msgbox info, vbinformation+vbokonly, title


loop until youranswer = yourname


msgbox scend, vbinformation+vbokonly, title

输入完成以后，单击文件-另存为

文件名：重要信息.vbs

保存类型：所有文件单击，桌面上的文件试试。

(∩_∩)O哈哈~ 你必须输入“范冰冰”才能关闭这个窗口。

当然，里面的代码“范冰冰”可以根据你的需要修改。

大功告成，赶快将这个文件发给你的好友试试吧！
她（他）一定会被你整哭的~！