QQ一键登陆代码

十 9th, 2008
发表评论 | Trackback 
'QQ一键登陆代码
'Design:MiaoQiyuan.cn
dim program 
program="D:\Program Files\Tencent\QQ\QQ.exe" 
rem 
set Wshell=CreateObject("Wscript.Shell") 
set oexec1=Wshell.Exec(program) 
rem 
wscript.Sleep 500
Wshell.SendKeys "QQ密码{TAB}"
wscript.Sleep 1
wshell.Sendkeys "QQ账号{ENTER}" 
rem 
set oexec2=Wshell.Exec(program) 
rem 
wscript.Sleep 1000
Wshell.appactivate "QQ密码" 
Wshell.SendKeys "mqycn521{TAB}"
wscript.Sleep 1
Wshell.SendKeys "QQ账号{ENTER}" 
rem
标签: ,
  1. Qiyuansoft
    十 9th, 200801:08
    回复 | 引用 | #1

    QQ一键登陆代码,确实好用
    我用了你的这个代码，可以在一分钟让60个QQ上线~
    我还改了改，也能支持自动登陆MSN,只要用能键盘完成的，什么都可以
    不知道你有用鼠标自动登陆的代码吗~

    ‘一键登陆QQ的函数
    sub loginqq(qq,pwd)
    wscript.Sleep 500
    Wshell.SendKeys “QQ密码{TAB}”
    wscript.Sleep 1
    wshell.Sendkeys “QQ账号{ENTER}”
    rem
    set oexec2=Wshell.Exec(program)
    rem
    end sub

    dim program
    program=”D:\Program Files\Tencent\QQ\QQ.exe”
    rem
    set Wshell=CreateObject(“Wscript.Shell”)
    set oexec1=Wshell.Exec(program)
    rem

    qqlogin QQ,密码
    qqlogin QQ2,密码2
    qqlogin QQ3,密码3
    qqlogin QQ4,密码4

    想登陆多少就多少，哈哈

  2. mqycn
    十 9th, 200801:15
    回复 | 引用 | #2

    Qiyuansoft的思路是对的，但是代码确出现了一个小小的问题
    应该是没有测试吧~下面是我修改的一键自动登陆QQ代码，加了注释

    ‘一键自动登陆QQ的函数
    sub loginqq(qq,pwd)
    ‘首先运行QQ
    set oexec1=Wshell.Exec(program)
    ‘暂停半秒,用于加载QQ
    wscript.Sleep 500
    ‘模拟键盘输入密码,打开QQ时光标在密码框中，所以先输密码
    Wshell.SendKeys pwd&“{TAB}”
    ‘模拟键盘输入QQ
    wscript.Sleep 1
    ‘暂停一下，否则可能出错
    wshell.Sendkeys qq&“{ENTER}”
    end sub

    dim program
    ‘QQ路径
    program=”D:\Program Files\Tencent\QQ\QQ.exe”
    set Wshell=CreateObject(”Wscript.Shell”)

    qqlogin QQ,密码
    qqlogin QQ2,密码2
    qqlogin QQ3,密码3
    qqlogin QQ4,密码4

  3. blazeq
    十 10th, 200802:24
    回复 | 引用 | #3

    无意中发现你的blog和我的风格一样，用的同一个模板。哈哈。最近工作太忙，没有更新我的blog，以后会更新的，找到和我欣赏水平一样的了。添加收藏先。

  4. blazeq
    十 10th, 200802:25
    回复 | 引用 | #4

    对了，你的服务器时间没有改啊。还是世界时。