QQ批量自动登录程序的设计

因为自己的QQ号码有好几个，每次重启机子的时候一个一个的登录超级麻烦，而且腾讯老是在偶尔的时候，再把以前已经记住密码的QQ密码给置空，还要重新输入，太麻烦，因此尝试着自己搞一个批量自动登录的程序

以TM2009为例，查看了一下，未登录之前一个窗体，上边两个控件，登录以后，窗体捕获到一个控件，根据这个，首先找到QQ的登录框，输入用户名，密码的位置，获取窗体句柄的具体代码如下:

这里先定义了一个record类型，

1    TQQWnd =   record
2      QQWnd,QStatusWnd: HWND;   // QQ的窗口句柄，QQ的弹出登录状态句柄
3      QQNumWnd, QQPassWnd: HWND;  // QQ号码输入句柄，QQ密码输入句柄
4     end ;
5 

 

 

 1     function  GetQQLoginHwd( var  AQQWnd: TQQWnd): Boolean;
 2     var
 3      WinTitle:  array [ 0 .. 254 ]  of  Char;
 4      WinClass:  array [ 0 .. 254 ]  of  Char;
 5     begin
 6      Result: =  False;
 7      AQQWnd.QQWnd: =   0 ;
 8      AQQWnd.QQNumWnd: =   0 ;
 9      AQQWnd.QQPassWnd: =   0 ;
10      AQQWnd.QQWnd: =  FindWindow( nil ,  ' TM2009 ' );
11       while  AQQWnd.QQWnd <>   0   do   begin
12        AQQWnd.QQNumWnd: =  FindWindowEx(AQQWnd.QQWnd,  0 ,  ' ATL:30A4D1D8 ' ,  nil );
13        AQQWnd.QQPassWnd: =  FindWindowEx(AQQWnd.QQWnd,  0 ,  ' Edit ' ,  nil );
14         if  (AQQWnd.QQNumWnd <>   0 ) and  (AQQWnd.QQPassWnd <>   0 )  then   begin
15          Result: =  True;
16          FOpened: =  True;
17          Exit;
18         end   else   begin
19          AQQWnd.QQWnd: =  GetWindow(AQQWnd.QQWnd, GW_HWNDNEXT);
20           if  AQQWnd.QQWnd = 0   then  Continue;
21          GetWindowText(AQQWnd.QQWnd, @WinTitle, SizeOf(WinTitle));
22           if  WinTitle <> ' TM2009 '   then  Continue;
23         end ;
24       end ;
25     end ;
26 

 

 

因为腾讯的密码输入框，采用的是低级钩子，然后定时的释放，建立钩子这种方式来防止木马程序去捕获，我尝试了下，直接的用Sendmessage去发送密码信息，没反应，因此这里我采用了SendInput的方式去输入密码，而用户框因为没有做任何的保护措施，所以可以直接的通过发送消息，将QQ账户信息给赋值过去，具体代码为

 

 1        SetForegroundWindow(QQWnds.QQWnd);  // QQ窗体设置为活动窗体
 2         // 设置QQ号码
 3         SendMessage(QQWnds.QQNumWnd,WM_SETFOCUS, 0 , 0 );  // 聚焦至QQ号码输入框
 4        Sleep( 20 );
 5        SendMessage(QQWnds.QQNumWnd,WM_SETTEXT, 0 ,LPARAM(FQQNum));  // 设置QQ号码
 6 
 7        SendMessage(QQWnds.QQPassWnd,WM_SETFOCUS, 0 , 0 );  // 聚焦密码输入框
 8        Sleep( 20 );
 9         // 设置QQ密码
10        SIKeyInput(FQQPass,  10 );  // QQ密码采取SENDINPUT方式
11 
12 
13 

 

 

解下来要操作的，就是设置登录方式了，譬如说“我在线上”，“隐身”等状态，由于腾讯的登录窗体是采用的GUI，所以是捕获不到句柄的，只能通过坐标来捕获，我之前的时候，是用的固定坐标，然后有的电脑可以用，有的不能用，后来才发现，是由于腾讯的界面可以拉动，只要一拉动，他的坐标位置就变了，因此我这里采取相对坐标，根据QQ密码框的坐标，来设置点击的坐标。腾讯的状态是在窗体上点击以后，弹出一个跟登录框平级的窗口，因此点击以后，需要检测是否弹出选择状态窗口，找到那个窗口句柄以后，再发送相应的点击命令，这样就完成整个的流程了

 

 1  const
 2    QQStatusYArray:  array [ 0 .. 5 ]  of  Integer =  ( 19 ,  38 ,  62 ,  86 ,  105 ,  131 );
 3 
 4 
 5        ClickTimes: =   0 ;  // 为防止有的时候点击过程中出现其他不可预料的错误，这里可以重复点击三次
 6        QQWnds.QStatusWnd: =   0 ;  // 设置QQ状态初始句柄为0
 7         // 鼠标点击
 8         while  ClickTimes < 3   do   begin
 9          PostMessage(QQWnds.QQWnd,$ 201 ,MK_LBUTTON,StrToInt(# 36 + IntToHex(QQNumRec.Bottom -  QQRect.Top + 21 , 4 ) + IntToHex(QQNumRec.Left - QQRect.Left + 25 , 4 )));  // 发送点击消息，这里如果采用SendMessage，会死线程，因此我采用了PostMessage
10          PostMessage(QQWnds.QQWnd,$ 202 ,MK_LBUTTON,StrToInt(# 36 + IntToHex(QQNumRec.Bottom -  QQRect.Top + 21 , 4 ) + IntToHex(QQNumRec.Left - QQRect.Left + 25 , 4 )));
11          Sleep( 200 );
12          QQWnds.QStatusWnd: =  FindWindow( ' TXGuiFoundation ' , ' TXMenuWindow ' );  // 检测是否存在QQ设置状态窗体
13           if  QQWnds.QStatusWnd <> 0   then   begin
14             try
15              PostMessage(QQWnds.QStatusWnd,$ 201 ,MK_LBUTTON,StrToInt(# 36 + IntToHex(QQStatusYArray[FQQStatus], 4 ) + IntToHex( 27 , 4 )));  // 如果存在窗体，直接的发送点击信息
16              PostMessage(QQWnds.QStatusWnd,$ 202 ,MK_LBUTTON,StrToInt(# 36 + IntToHex(QQStatusYArray[FQQStatus], 4 ) + IntToHex( 27 , 4 )));
17             except
18             end ;
19            Break;
20           end ;
21          ClickTimes: = ClickTimes + 1 ;
22         end ;
23         if  QQWnds.QStatusWnd = 0   then   begin   // 如果一直没有捕获到设置状态窗体，程序则自动退出
24          Task.Comm.Send(MSG_QQ_ERR, IntToStr(QQRect.Left) + ' ： ' +  IntToStr(QQRect.Top) +   ' ： ' +  IntToStr(QQRect.Right) +   ' ： ' +  IntToStr(QQRect.Bottom)
25             + ' ， ' +  IntToStr(QQNumRec.Left) + ' ： ' +  IntToStr(QQNumRec.Top) +   ' ： ' +  IntToStr(QQNumRec.Right) +   ' ： ' +  IntToStr(QQNumRec.Bottom)
26             +  IntToStr(QQNumRec.Bottom -  QQRect.Top + 21 ) + ' 设置状态失败 ' );
27  //         Task.Comm.Send(MSG_QQ_ERR, IntToStr(QQNumRec.Left - QQRect.Left + 25 ) + ' ： ' +  IntToStr(QQNumRec.Bottom -  QQRect.Top + 21 ) + ' 设置状态失败 ' );
28          Exit;
29         end ;
30 

 

 

最后，直接的点击登录按钮就可以了，这个地方，也是要计算相对于密码输入框的坐标

 

1         // 点击登录按钮
2         try
3          PostMessage(QQWnds.QQWnd,$ 201 ,MK_LBUTTON,StrToInt(# 36 + IntToHex(QQNumRec.Bottom -  QQRect.Top + 114 , 4 ) + IntToHex(QQNumRec.Left - QQRect.Left + 64 , 4 )));
4          PostMessage(QQWnds.QQWnd,$ 202 ,MK_LBUTTON,StrToInt(# 36 + IntToHex(QQNumRec.Bottom -  QQRect.Top + 114 , 4 ) + IntToHex(QQNumRec.Left - QQRect.Left + 64 , 4 )));
5         except
6         end ;
7 

 

 

至此，整个的流程完毕了，最后，还可以增加上检测该QQ号码是否已经登录

以下是最后出来的界面，我直接的将QQ信息保存在数据库当中，密码采用了AES加密，所以也不用担心密码信息被泄

可以点击这里下载QQ批量下载

本文出自 “痛苦的转变” 博客，转载请与作者联系！