VBS脚本，一键登录QQ脚本

    Dim QQPrgpth

bUm&A#p)O%k0    QQPrgpth = "E:\QQ\QQ.exe" '如果QQ安装路径不同，在此处修改爱好者博墅3{p7p:]'J)\&x"L
    Set wshshell = CreateObject("wscrīpt.shell")爱好者博墅G*y2my8@4W/b0sA
    Set ōexec = wshshell.exec(QQPrgpth)
poY$jZTo0    wscrīpt.sleep 4000 '如果脚本无法工作，可适当延长时间值爱好者博墅:A&F]M2R,Il%BRM]
    wshshell.AppActivate "QQ用户登录"
EY@O6QF0    wshshell.Sendkeys "{TAB}"爱好者博墅'?*B#gr
[)F.I
    wshshell.Sendkeys "123456789"  '换成你自己的QQ号爱好者博墅9zsm,es [_^
    wscrīpt.Sleep 1000爱好者博墅eS(e,r2E.^
^z0|3v
    wshshell.Sendkeys "{TAB}"
r5Qk1h^6d7Ta0    wscrīpt.Sleep 1000爱好者博墅^M)^D `,O!m k
    wshshell.Sendkeys "abcdef"  '换成你的QQ号密码爱好者博墅"P6SW(|[q
    wscrīpt.Sleep 1000爱好者博墅
e-?o@0]|3u
    wshshell.Sendkeys "{ENTER}"
"X AI2R1rU E6E0    wscrīpt.Quit