QQ Auto Login Visual Basic Script
QQ_Auto_Login.vbs:
Dim QQPath QQPath="C:\Program Files (x86)\Tencent\QQ\Bin\QQ.exe" Set baobei=createObject("wscript.shell") Set pangchao=baobei.exec(QQPath) wscript.sleep 4000 baobei.AppActivate"QQ用户登录" baobei.Sendkeys"+{TAB}" baobei.Sendkeys"Your QQ Number" wscript.sleep 1000 baobei.Sendkeys"{TAB}" wscript.sleep 1000 baobei.Sendkeys"Your QQ Password" wscript.sleep 1000 baobei.Sendkeys"{ENTER}" wscript.Quit
1. 替换QQ执行路径
2. 替换QQ号码
3. 替换QQ密码
4. 保存,双击运行,手离开你的鼠标及键盘,以免你改变了焦点。