Question

我的VBS代码如下，但是我输入密码并选择外部程序运行项目之后却运行不了，什么也没有，高手求教啊！！！

Answer 1

你运行的是快捷方式，后面应该 + “.lnk” exe com 等 扩展名

比如：

set ws= Wscript.CreateObject("Wscript.Shell")
ws.run "temp.lnk"
ws.run "F:\英雄联盟\TCLS\client.exe"

追问

可是加上.exe也不行啊

追答

if a="123456" then

b=inputbox(...)

if b=1 then

...

'判断语句挪到 else 上面来，放到 else 后面是回答错误的情况，根本不会进行判断

else

msgbox "回答错误。"

end if

追问

注意，我要的是输入密码正确后弹出对话框：回答正确！然后“确定”开始选择运行程序，如果输入错误的密码则会弹出对话框：输入错误！然后“确定”让对话框消失。这一点我原本的代码已经做到了，你可以用我一开始的代码试一下，问题只是我选择运行程序后程序没运行，例如我输入1的宽带连接后不会出现宽带连接，这是问题。建议你用我的脚本试一下，搞定了我的问题，我追加！我已经提高悬赏了

追答

'完整代码给你，你研究一下

Dim ps,mt
Set ms=CreateObject("wscript.shell")

ps=InputBox("输入密码","运行软件")
If ps="123456" Then 
MsgBox "回答正确！"
mt=InputBox("记事本请输入1；"& vbcrlf & "计算器请输入2；" & vbcrlf & "运行 英雄联盟 请输入3.","运行项目")

Select Case mt
Case 1
ms.run "notepad"
Case 2
ms.run "C:\WINDOWS\system32\calc.exe"
Case 3
ms.run "F:\英雄联盟\TCLS\client.exe"
Case else
MsgBox "无效输入！"
End select
Else
MsgBox "回答错误！"
End if

Answer 2

后面看看，end if位置也有错

追问

怎么错？？