本帖最后由 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
|