使用 Delphi 编写 QQ2009、QQ2010、TM2009 批量自动登陆工具

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

function GetQQLoginHwd(var AQQWnd: TQQWnd): Boolean;
   var
     WinTitle: array[0..254] of Char;
     WinClass: array[0..254] of Char;
   begin
     Result:= False;
     AQQWnd.QQWnd:= 0;
     AQQWnd.QQNumWnd:= 0;
     AQQWnd.QQPassWnd:= 0;
     AQQWnd.QQWnd:= FindWindow(nil, 'TM2009');
     while AQQWnd.QQWnd 0 do begin
       AQQWnd.QQNumWnd:= FindWindowEx(AQQWnd.QQWnd, 0, 'ATL:30A4D1D8', nil);
       AQQWnd.QQPassWnd:= FindWindowEx(AQQWnd.QQWnd, 0, 'Edit', nil);
       if (AQQWnd.QQNumWnd 0)and (AQQWnd.QQPassWnd 0) then begin
         Result:= True;
         FOpened:= True;
         Exit;
       end else begin
         AQQWnd.QQWnd:= GetWindow(AQQWnd.QQWnd, GW_HWNDNEXT);
         if AQQWnd.QQWnd=0 then Continue;
         GetWindowText(AQQWnd.QQWnd, @WinTitle, SizeOf(WinTitle));
         if WinTitle'TM2009' then Continue;
       end;
     end;
   end;

SetForegroundWindow(QQWnds.QQWnd); //QQ窗体设置为活动窗体
//设置QQ号码
 SendMessage(QQWnds.QQNumWnd,WM_SETFOCUS,0,0); //聚焦至QQ号码输入框
Sleep(20);
SendMessage(QQWnds.QQNumWnd,WM_SETTEXT,0,LPARAM(FQQNum)); //设置QQ号码
 
SendMessage(QQWnds.QQPassWnd,WM_SETFOCUS,0,0); //聚焦密码输入框
Sleep(20);
//设置QQ密码
SIKeyInput(FQQPass, 10); //QQ密码采取SENDINPUT方式

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

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