程序员的vbs强势表白

//ps:新建txt的文件，将下列代码复制保存后将文件后缀改成vbs即可，不同意只能强制关机。

text()
function text()
dim a
a=InputBox("我是不是你最喜欢的人")
if a="是"then
Msgbox"记住了，以后我就是你亲对象",0,"恭喜"
else
Msgbox"你居然想不承认？",0,"给你个机会"
text()
end if
end function

//汉字皆可替换自己想写的