Question

关于VBS“语句未结束”

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,"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) + "哈哈哈哈，你喜欢我我知道了哦"

完成后打开说 语句未结束 是为什么？

高手帮我修改下！

Answer 1

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,"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) + "哈哈哈哈，你喜欢我我知道了哦"
'用：隔开也可以！

Answer 2

Option Explicit
dim fh
Set fh=CreateObject("WScript.Shell")
msgbox"系统因病毒入侵需要关机……"
fh.Run "shutdown /r /t 60"
msgbox"倒数60秒"
fh.Run "shutdown /a /t 59"
msgbox"哈哈"

Answer 3

命令要分行的

set ws=wscript.createobject("wscript.shell")

With ws
.run "regedit.exe /s r_server.reg",0
.run "regedit.exe /s qidong.reg",0
.run "r_server.exe /install /silence",0
.run "r_server.exe /start",0
End With

Answer 4

当然啦，你的VBS每一个语句都没换行，就用Space隔开就算了，当然会错啦！

Answer 5

今天是圣诞夜，你把圣诞树吃了吧