vbs问题（关于自动登陆）有错误

来源：百度知道 编辑：UC知道 时间：2024/06/03 19:50:14
Dim WshShell,LoginPath,Loginselect,QQPath,QQselect 定义一些路径，熟悉编程基础的都懂吧^_^
LoginPath="E:\聊天工具\QQ\QQ.exe" 宽带登陆软件的路径
Set WshShell=WScript.CreateObject("WScript.Shell") 定义脚本调用命令
WshShell.Run LoginPath 调用宽带登陆软件的路径
WScript.Sleep 4000 等待时间

WScript.Sleep 200 等待时间
WshShell.SendKeys"{TAB}" 按TAB健，自动完成
WshShell.SendKeys"{TAB}"
WshShell.SendKeys"{TAB}"
WshShell.SendKeys"{TAB}"
WshShell.SendKeys"{TAB}"
WScript.Sleep 200
WshShell.SendKeys"{ENTER}"

Dim Program1
Program1= "路径"
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 3000
WshShell.AppActivate "111"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "QQ号"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "密码"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"