[已解决]QQ批量登录无法实现【附上代码，恳请指出错误】

autt · 发表于 2012-1-8 21:50:13

果断mark...

星雨朝霞 · 发表于 2012-1-9 13:08:19

回复 1# qq271859852

用Run返回的PID值列取窗口句柄,等待此句柄,
SendKeepActive绑定此窗口句柄
号码输入用controlsettex
密码输入用controlsend
......
登录成功后用controlclick点击最小化

-------------------------
我写的就是这样子的!
在QQ2009/2010/2011/经典与新式登录方式都可以.
最多测试过连续登录21个QQ

小A · 发表于 2012-1-11 19:26:43

应该很好解决吧。

zch11230 · 发表于 2012-1-11 22:01:23

回复 wua0550

可是即使得到了句柄也没有用啊？send和controlsend等函数都不支持句柄，
qq271859852 发表于 2012-1-8 16:50

亲可以向句柄操作的哟这样就不会操作错窗口了
这是调整几个QQ登陆窗口位置的示例 send部分同理记得好评哟亲


$hwnddl = WinList("[CLASS:TXGuiFoundation]")
For $i = 1 To $hwnddl[0][0]
        WinMove(HWnd($hwnddl[$i][1]), "", $i * 300 - 280, 30)
Next

zch11230 · 发表于 2012-1-11 22:46:20

本帖最后由 zch11230 于 2012-1-11 22:56 编辑

直接送佛送到西全后台不需要窗口处理激活状态不对已经成功登陆过的窗口进行操作无延时如果电脑配置低了可以适当加点延时 QQ2011Beta3 (2221)实测


$usr = "123456789";QQ号
$pwd = "abcdefghi";;密码
$Newpwd = StringRegExp($pwd, "(.)", 3);;将密码拆开
$hwnddl = WinList("[CLASS:TXGuiFoundation]");;窗口标题  不解释噻

For $i = 1 To $hwnddl[0][0]
        $win = WinGetPos(HWnd($hwnddl[$i][1]))
        If $win[3] = 276 Then;;;;276是登陆窗口的高度  因为QQ2011的标题都一样  如果不区别一下的话 也会对已经登陆过的QQ进行操作  根据实际情况取值
                WinMove(HWnd($hwnddl[$i][1]), "", $i * 300 - 280, 30)
                ControlSetText(HWnd($hwnddl[$i][1]), "", "TXEdit1", $usr)
                For $n = 0 To StringLen($pwd) - 1;;;;将密码分开SEND  为什么要这样做 你测试了就知道了.
                        ControlSend(HWnd($hwnddl[$i][1]), "", "Edit1", $Newpwd[$n])
                Next
                ControlSend(HWnd($hwnddl[$i][1]), "", "Edit1", "{enter}")
        EndIf
Next

qq271859852 · 发表于 2012-1-12 14:18:10

回复 20# zch11230

谢谢了！！你的思路很不错啊！
又知道了原来可以用句柄的，帮助文档怎么不告诉我们啊！~晕

qq271859852 · 发表于 2012-1-12 14:19:16

回复 17# 星雨朝霞

谢谢，

qq271859852 · 发表于 2012-1-12 14:19:20

回复 17# 星雨朝霞

谢谢，我试试

zldfsz · 发表于 2012-1-15 14:49:15

本帖最后由 zldfsz 于 2012-1-16 08:47 编辑

回复 20# zch11230

没试过，不过看起来不错，先收藏。

顺便提一下楼主qq271859852

如果问题解决了请将标题改一下以方便后人查阅：加上已解决

UID · 发表于 2012-3-3 23:06:38

很纠结的问题哦呵

		自动登录	找回密码
密码			加入

[AU3基础] [已解决]QQ批量登录无法实现【附上代码，恳请指出错误】