中堂画:大家看看这段代码有什么问题啊，我改后不能用？

来源：百度文库编辑：神马品牌网时间：2024/04/29 15:21:12

'第一部分:定义变量和对象
Dim WshShell, QQPath, QQselect
QQPath="填入QQ所在绝对路径"
Set WshShell=WScript.CreateObject("WScript.Shell")

'第二部分:显示主界面
QQselect=InputBox("请输入要登录的QQ号码序号:" &Chr(13)&Chr(10)& "1:675625" &Chr(13)&Chr(10)& "2:1071237" &Chr(13)&Chr(10)& "3:手工登录", "QQ自动登录器")
If QQselect="" Then WScript.Quit

'第三部分:运行并激活QQ窗口
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "QQ用户登录"

'第四部分:选择序号"1"时自动登录号码675625
If QQselect="1" Then
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "675625"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "填入密码"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"

'第五部分:选择序号"2"时自动登录号码1071237
Else
If QQselect = "2" Then
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "1071237"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "填入密码"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
End If
End If
我运行后，系统提示路径不正确，但我仔细看了很多遍，路径确实没问题。。

大家帮我看看这段代码有什么问题? 大家看看这段代码有什么问题啊，我改后不能用？帮我看看这段代码有什么问题，怎么运行后总提示验证码出错？请大家帮看看这段代码有什么错误高手帮忙看看这段ASP代码有什么问题？给看看这段ASP代码有什么问题？谁能帮我看看这段代码有什么错误? 谁能帮我看看这段代码有什么错误? 请各位高手帮我看看这段代码好吗?有什么问题?请指点! 各位asp高手请帮忙啊，看看这段代码到底有什么问题！