Question

帮我改VBS脚本

我想自己弄一个密码脚本，但试了好几次都不行，求高人帮我改改
脚本如下：
----------------------------------------------------------------------------------------
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""请输入密码，此密码是由West Point设置的"" ",0 ,true
dim a,b,c
b="请输入密码，此密码是由West Point设置的"
c="3"
d="3"
do while(a <> "Admin")
Wscript.sleep 500
a=inputbox(b + chr(13) + "剩余输入次数：" + c,"系统提示","在这里输入密码",8000,7000)
If a <> "Admin" Then
b="您的密码不正确，请重新输入："
c=d-1
End If
loop
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
Wscript.sleep 2500
msgbox "密码正确，欢迎使用！",,"系统提示"
-----------------------------------------------------------------------------------------------------
到底是哪里错了，怎么改啊

Answer 1

我帮你重新改变了下

dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""请输入密码，此密码是由West Point设置的"" ",0 ,true
dim a,b,c
b="请输入密码，此密码是由West Point设置的"
c=3
do while(c>0)
Wscript.sleep 500
c=cstr(c)
a=inputbox(b + chr(13) + "剩余输入次数：" + c,"系统提示","在这里输入密码",8000,7000)
If a <> "Admin" Then
b="您的密码不正确，请重新输入："
c=cstr(cint(c)-1)
else
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
Wscript.sleep 2500
msgbox "密码正确，欢迎使用！",,"系统提示"
exit do
End If
loop
if c=0 then
msgbox("你完蛋啦 哈哈哈！")
end if

你的这个脚本出错的原因是因为类型不对 字符型不能和整型做算术运算的 必须强制转换

Answer 2

尊重原代码的原则下简单的改了一下 问题好多 这个只是可以用 还是有问题的
Dim WSHshell
Set WSHshell = WScript.CreateObject("wscript.shell")
'WSHshell.run "cmd.exe /c shutdown -r -t 60 -c ""请输入密码，此密码是由West Point设置的"" ",0 ,True
Dim a,b,c
b="请输入密码，此密码是由West Point设置的"
c="3"
Do While(a <> "Admin")
WScript.sleep 500
a=InputBox(b & Chr(13) & "剩余输入次数：" & c,"系统提示","在这里输入密码",8000,7000)
If a <> "Admin" Then
b="您的密码不正确，请重新输入："
c=c-1
End If
Loop
WSHshell.run "cmd.exe /c shutdown -a",0 ,True
WScript.sleep 2500
MsgBox "密码正确，欢迎使用！",,"系统提示"

首先 d 参数没用 用了 你的剩余次数永远是2
2。 连接字符串不要用加号
3. 要加一个判断剩余次数并处理的语句 不然 剩余次数 额。。 -1 -2 -3 。。。。
4. 注意这几行
c=d-1 （原）
c=c-1 （改）
等等
还有 该缩进的要缩进 结构明显了 出错就少了

额。。。。 原代码中有。。
set WSHshellA = wscript.createobject("wscript.shell")
set WSHshell = wscript.createobject("wscript.shell")
这是为什么。。。。何必。。。呢。。。。

深入的修改自己试着改吧 有问题再问 毕竟想学的话 就得自己写 这样才会进步
加油吧 慢慢来 养成好习惯 以后错就少了 呵呵

Answer 3

又是你？

任务，不解释