为啥按照教程打出来的VBS文件大部分用不了？

Posted 2023-04-04

按照一些百度以及其他网上的教程做了一些VBS格式的文件，像关机、死机、格式化之类的，但是只有关机和永远点不掉的对话框是有用的，其他的都试过了，没有用，检查了好几遍，还是不行。求大神解释！
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -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) + "哈哈，好乖"

参考技术A 有的是教程里本来打错了，
或者是缺少对象文件等等运行不了。
你把代码发上来，
帮你改改。 参考技术B 你要知道教程里面代码的意思才行撒
有的代码里面有这句话:On Error Resume Next 代表跳过错误，你就发现不了问题的追问

能详细解释一下吗？

追答

你得读懂代码，看代码的错误

on error resume next
dim WSHshellA,a
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""说我是脑残，不说就关机"" ",0 ,true
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) + "早说就行了嘛"
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈，好乖"

参考技术C 你什么系统？追问

win7的

追答

难怪

为啥双引号会变成单引号

打字的时候，SHIFT+逗号，出了双引号。但有时竟打出单引号。究竟单双引号是怎么区分？（打字的时候）

那是因为有时候你没有按住SHIIFT才变成打出来的是单引号。 参考技术A 按SHIFT就是双引号。不按SHIFT就是单引号。’” 参考技术B 不按SHIFT就是单引号