不知道错在哪
msgbox("早啊")
msgbox("有没有想我",vbYesNo)
if a=vbYes then
msgbox("想我的话就亲我一下")
end if
msgbox("不想也要亲",vbYesNo)
if b=vbYes then
msgbox("还要一下",vbYesNo)
if c=vbYes then
msgbox("再来一下",vbYes)
if d=vbYes then
msgbox("最后一下",vbYesNo)
if e=vbYes then
msgbox("爱你小宝贝)
else e=vbNo then
msgbox("不亲就关机")
set ws=createobject("wscript.shell")
ws.run"cmd.exe /c shutdown -r -t 60"
end if
else d=vbNo then
msgbox("不亲就关机")
set ws=createobject("wscript.shell")
ws.run"cmd.exe /c shutdown -r -t 60"
end if
else c=vbNo then
msgbox("不亲就关机")
set ws=createobject("wscript.shell")
ws.run"cmd.exe /c shutdown -r -t 60"
end if
else b=vbNo then
msgbox("不亲就关机")
set ws=createobject("wscript.shell")
ws.run"cmd.exe /c shutdown -r -t 60"
end if
