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. 保存，双击运行，手离开你的鼠标及键盘，以免你改变了焦点。