有一段VBS程序，它提示第三行缺少标识符，望各位帮解决:

Question

on error resume next
dim WSHshellAset
WSHshellA=wscript.
createobject("wscript.shell")
WSHshellA.run"cmd.exe/c shutdown_r_t_60_c""
说我是猪，不说我是猪就一分钟关你机，不信，你试试..."" ",0,true
dim a
do while(a<>"我是猪")
a=inputbox("说我是猪，就不关机，快撤，说""我是猪"" ","说不说","不说",8000,7000)
msgbox chr(13)+chr(13)+chr(13)+a,0,"MsgBoxloop
msgbox chr(13)+chr(13)+chr(13)+"早说就行了嘛，呵呵，猪"
dim WSHshell
set WSHshell=wscript.
createobject("wscript.shell")
WSHshell.run"cmd.exe/c
shutdown_a",0,true
msgbox chr(13)+chr(13)+chr(13)+"哈哈哈哈，猪"

Answer 1

将第三行和第四行合并，并修改后，写成：
Set WSHshellA=wscript.createobject("wscript.shell")
第五行，第六行，也不对，合并后要写成：
WSHshellA.run "cmd.exe/c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，你试试..."" ",0,true追问

第八行又不行，它提示未结束的字符串常量

追答

完整的程序见下面，经过测试：
on error resume next
dim WSHshellAset
Set WSHshellA=wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe/c shutdown -r -t 60 -c""说我是猪，不说我是猪就一分钟关你机，不信，你试试..."" ",0,true
dim a
do while(a"我是猪")
a=inputbox("说我是猪，就不关机，快撤，说""我是猪"" ","说不说","不说",8000,7000)
msgbox chr(13)+chr(13)+chr(13)+a,0,"Msgbox"
loop
msgbox chr(13)+chr(13)+chr(13)+"早说就行了嘛，呵呵，猪"
dim WSHshell
set WSHshell=wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe/c shutdown -a",0,true
msgbox chr(13)+chr(13)+chr(13)+"哈哈哈哈，猪"

追问

不行啊，第8行未结束的字符串常量

追答

你要全部拷贝下来运行，第8行和第9行是一行，因为显示宽度，所以自动换了一行。第四行和第五行也是一行。

追问

是做一行啊，怎么到我来就不行啊，？何解？

Answer 2

on error resume next
dim WSHshellA
set WSHshellA=wscript.createobject("wscript.shell")
WSHshellA.run"cmd.exe/c shutdown_r_t_60_c""说我是猪，不说我是猪就一分钟关你机，不信，你试试..."" ",0,true
dim a
do while(a<>"我是猪")
a=inputbox("说我是猪，就不关机，快撤，说""我是猪"" ","说不说","不说",8000,7000)
msgbox chr(13)+chr(13)+chr(13)+a,0,"
loop
msgbox chr(13)+chr(13)+chr(13)+"早说就行了嘛，呵呵，猪"
dim WSHshell
set WSHshell=wscript.createobject("wscript.shell")
WSHshell.run"cmd.exe/c shutdown_a",0,true
msgbox chr(13)+chr(13)+chr(13)+"哈哈哈哈，猪"追问

不行啊

本回答被网友采纳