=======================================源码=======================================
Dim Program1
'qq运行程序地址
Program1= "C:\Program Files (x86)\Tencent\QQ\Bin\QQScLauncher.exe"
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 1000
'这个聚焦窗口可加可不加
WshShell.AppActivate "QQ"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "qq号码"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "qq密码"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
===================================结束========================================
因为如果之前登录过qq,qq打开默认是会聚焦到密码框上的,我发送了一个按键shift tab,代码中对应WshShell.SendKeys"+{TAB}",发现并不能使焦点改变到账号框上,但是我人工操作的时候,在qq窗口按下shift tab 是可以从密码框切换到账户框的,不知道怎么回事,网上搜了很多资料了都未能解决,而且有和我遇到一样问题的人也没解决,难道是qq屏蔽了?

今天发现我的不能用了 你解决了吗？这么解决的？

我发现出界面以后把账号自动输到了密码框里了

我把第三行的1000改成50000可以了

Dim WshShell,QQPath,QQselect '定义变量
QQpath="C:\Users\Public\Desktop\腾讯QQ"
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQpath '打开QQ
WScript.sleep 5000
wshshell.appactivate"QQ" '相当于点击QQ窗口
WScript.sleep 200
for i=0 to 5 step 1 '切几次到账号
WshShell.SendKeys "{TAB}"
WScript.sleep 100
next
WshShell.SendKeys "123456789" '账号
WScript.sleep 300
WshShell.SendKeys "{TAB}" '切到密码
WScript.sleep 200
WshShell.SendKeys "123321" '输入密码
WScript.sleep 200
WshShell.SendKeys "{ENTER}"
WScript.sleep 200
那么问题来了！！！！！！！！！！吊大的告诉我为什么稳对的密码 QQ提示密码错误！！
还有就是解决方案：判断这个号有没有登陆上，循环登陆 怎么写！！怎么写！！