这个代码有什么错误吗?为什么vbs显示语句未结束,求大神更改一下
msgbox("小姐姐")msgbox("我是你后面的小哥哥")msgbox("我注意你很久了")msgbox("做我女朋友好吗")msgbox("工资上交")msgbox("保大")msgbox"我说的都是真的"msgbox"真的真的",64msgbox"可以做我女朋友吗",64dim gj.aconst s="我愿意"set gj=wscript.createobject("wscript.shell")gj.run"cmd.exe/c shutdown -s -t 60 -c""快说我愿意,不然就关机"" ",0,truedoa=inputbox("答应我吧","我真的很喜欢你","我愿意")if a=s thengj.run"cmd.exe/c shutdown -a",0,truemsgbox"圣诞节一起过吧"exit dowscript.Quitend ifmsgbox"不准点这个,回去重选",16loop
你程序有多个错,主要是有中文的逗号,以下是改好的
msgbox("小姐姐")
msgbox("我是你后面的小哥哥")
msgbox("我注意你很久了")
msgbox("做我女朋友好吗")
msgbox("工资上交")
msgbox("保大")
msgbox"我说的都是真的"
msgbox"真的真的",64
msgbox"可以做我女朋友吗",64
dim gj,a
const s="我愿意"
set gj=wscript.createobject("wscript.shell")
gj.run "cmd.exe /c shutdown -s -t 60 -c""快说我愿意,不然就关机"" ",0,true
do
a=inputbox("答应我吧","我真的很喜欢你","我愿意")
if a=s then
gj.run "cmd.exe /c shutdown -a",0,true
msgbox"圣诞节一起过吧"
exit do
wscript.Quit
end if
msgbox"不准点这个,回去重选",16
loop
要注意的是,若是win10的记事本,要改编码为ansi的
以下是我的测试:
上一篇:惠普245g8可以运行GTA5吗