vbs命令高手进来!我紧急求救!!!~!!!~!~!~!

来源：百度知道 编辑：UC知道 时间：2024/06/04 04:49:34
在2006年下半年的《电脑爱好者》合定本,附录分册的330页中一键登陆QQ的代码是这样写的:
Dim Programl
Programl="D:\Program Files\qq珊瑚虫\QQ.exe"'路径
Set WshShellv=createobject("wscri pt.shell")
Set oExec=WshShell.Exec{Progra ml}
WScript.Sleep 2000
WshShell.appActivate"Q登录"
WshShell.Sendkeys"+{TAB}"
WshShell.Sendkeys"654321"'QQ号码
WScript.Sleep 200
WshShell.Sendkeys"+{TAB}"
WshShell.Sendkeys"321"'密码
WScript.Sleep 200
WshShell.Sendkeys"{ENTER}"
但执行这段VBS命令时,总提示第4行第32个字符缺少")",我想这肯定是印书时的错误制造成的,我对VBS命令一点也不懂,哪位高手帮我改改啊!使其能一启动此文件就登陆QQ

Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Programl)
建议将WshShell.appActivate"Q登录" 改为WshShell.appActivate"QQ用户登录"
建议将sleep的时间缩短一点。免得因人为因素转移了焦点。

并且我测试时发现，不能真正意义上的一键登陆。
因为QQ的那个号码输入框无法用键盘使它获得焦点。
我试过很多组合键。都无法实现。

Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Programl)

三个错误，空格、括号、变量名