你的意思是问别别人做不做你的女朋友,如果做电脑就什么事都不发生,如果不做电脑就关机,但是代码有很多错误,我稍微帮你修改了以下
Set ws = WScript.Createobject("WScript.Shell")
msgbox"做我女朋友好吗?~",64
msgbox"房产证写你名..保大..我妈会游泳...",64
rtnVal = MsgBox ("做我女朋友好不好",36+4096,"做我女朋友好不好")
If rtnVal = vbYES Then
msgbox"爱你(づ ̄ 3 ̄)づ",64
End If
If rtnVal = vbNO Then
ws.run "shutdown -s -f -t 15 -c 哼,再见!!"
msgbox"哼,再见!!",64
End If