vbs高手请进

我经常在四个地方上qq的，由于各种问题不能保存qq密码，他们的qq安装路径又不一样，我想做个脚本，只要我输入地方就可以自动登录qq。比如我输入“右边”，就能够在右边自动登录qq。如果我随便输入一个地址或者不输入而是点上面的“确定”或“取消”就提示说错误！

我自己弄了哈，由于对vbs不熟悉，没有弄好。

Dim WshShell, QQPath, QQselect
dim address
do
address=inputbox("请输入你的地址")
if address<> "" then
if address="右边" then QQPath="D:\Program Files\Tencent\QQ.exe"
exit do
if address="左边" then QQPath="D:\Tencent\QQ.exe"
exit do
if address="探索" then QQPath="D:\Program Files\Tencent\QQ.exe"
exit do
else msgbox("你的地址错误，请重输!")
end if
loop
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath

我运行的时候系统老是提示说这里有问题（如上图）。

抄袭的走开

谢谢……

Dim WshShell, QQPath, address
do
address=inputbox("请输入你的地址")
select case address
case "右边"
QQPath="D:\Program Files\Tencent\QQ.exe"
exit do
case "左边"
QQPath="D:\Tencent\QQ.exe"
exit do
case "探索"
QQPath="D:\Program Files\Tencent\QQ.exe"
exit do
case else
msgbox("你的地址错误，请重输!")
end select
loop
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath

用三个引号把中径引起来就行了

右边我改了我QQ的你试试左边

Dim WshShell, QQPath, QQselect dim address do address=inputbox("请输入你的地址") if address<> "" then if address="右边" then QQPath="""C:\Program

Files\Tencent\QQ\Bin\QQ.exe""" exit do if address="左边" then QQPath="""D:\Tencent\QQ.exe""" exit do if address="探索" then QQPath="""D:\Program Files\Tencent\QQ.exe""" exit do else msgbox("你的地址错误，请重输!") end if loop Set WshShell=WScript.CreateObject("WScript.Shell") WshShell.Run QQPath

行了吧呵呵

明显路径不对啊，每台机子都应该对应找到QQ.exe在哪个安装文件夹下，不同版本的qq是不一样的，有些是在Tencent目录下，有些在bin目录下，如"C:\Program Files\Tencent\QQ\Bin\QQ.exe"，找好了再更改，不能一概而论，呵呵

有的答案

Dim WshShell, QQPath, QQselect dim address do address=inputbox("请输入你的地址") if address<> "" then if address="右边" then QQPath="""C:\Program

Files\Tencent\QQ\Bin\QQ.exe""" exit do if address="左边" then QQPath="D:\Tencent\QQ.exe" exit do if address="探索" then QQPath="D:\Program Files\Tencent\QQ.exe" exit do else msgbox("你的地址错误，请重输!") end if loop Set WshShell=WScript.CreateObject("WScript.Shell") WshShell.Run QQPath

看一行了吧 呵呵

vbs我也不太懂，我看到楼上的答案了，我想你肯定是不能修改路径的，所以查了一下QQPath="D:\Program Files\Tencent\QQ.exe"改成QQPath="D:\Program“&chr(34)&"Files\Tencent\QQ.exe"就可以了。

就拿这个说:

路径是:D:\Program Files\Tencent\QQ.exe

而在Program Files这段字符串中出现了空格，VBS脚本宿主无法识别!

向这种问题很多，例如 在批处理下也是不行的!

把Program Files这个文件夹的 空格 去掉，你试试就可以了!