vbs未结束字符串常量

更新时间2019-07-21 07:48:22

这是代码

on error resume next

dim WSHshellA

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

WSHshellA.run"cmd.exe /c shutdown -r -t 30 -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) + " 真TM过瘾，哈哈哈哈哈"

当然是开玩笑的

他说报错，未结束字符串常量，哪里错了？

程序一堆错，不明白就不要抄网上的程序，搞不了别人，先把自己搞了

试试下面的，可以运行

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) + " 真TM过瘾，哈哈哈哈哈"