破解

开发平台：
Delphi

Unit1.pas：源码内容
							//此程序实现了不用加好友，直接向QQ号发送信息的功能。
//不过QQ的服务器会限制次数，大家可以考虑用一系列(越多越好)的QQ号不断地切换来登陆，必要时可以
//不断地连接和断开网络，变换IP来解决QQ服务器的限制。
//传播或修改本程序，请保留原作者信息，谢谢！
//世纪0769网址收藏站
//网址：http://www.0769cn.com
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw, ExtCtrls,shellapi;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    WebBrowser1: TWebBrowser;
    Timer1: TTimer;
    Memo2: TMemo;
    Label11: TLabel;
    procedure Button1Click(Sender: TObject);
    function  GetQQcaption:string;
    procedure Timer1Timer(Sender: TObject);
    procedure SendMessages(m:string);
    procedure WebBrowser1DocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Label11MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
   Form1: TForm1;
   msgs:string;
   EditHandle,RichEditHandle: Integer;
   captions:string;
   Gi:integer;
implementation
{$R *.dfm}
function Tform1.GetQQcaption:string;
     var
        hCurrentWindow: HWnd;
        szText: array[0..254] of char;
     begin
        result:='';
        hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);
        while hCurrentWindow <> 0 do
        begin
           if GetWindowText(hCurrentWindow, @szText, 255) > 0 then
           if pos('会话中',StrPas(@szText))>0 then
              result:=StrPas(@szText);
           hCurrentWindow := GetWindow(hCurrentWindow, GW_HWNDNEXT);
        end;
     end;
 {  GetClassName(hLastWin,szWindowText,SizeOf(szWindowText));
  if szWindowText <>'#32770' then Exit;
  szTextLength := SendMessage(hLastWin, WM_GETTEXT, MAX_PATH, Integer(@szWindowText[0]));
  szWindowText[szTextLength] := #0;
  if Pos('聊天中',szWindowText)>0 then
  begin
    QQName:=Copy(szWindowText,Pos(' ',szWindowText)+1,Pos('聊天中',szWindowText)-Pos(' ',szWindowText)-2);
    hLastWin := FindWindowEx(hLastWin, THandle(nil),'#32770',nil); }
function GetButtonHandle(hwnd: Integer; lparam: Longint):Boolean; stdcall;
var
  buffer: array[0..255] of Char;
  buffer1: array[0..255] of Char;
begin
  Result := True;
  GetClassName(hwnd,buffer,256);   //得到类名
  if StrPas(Buffer)='Button' then
  begin
   GetWindowText(hwnd,buffer1,100);
    if trim(buffer1)= captions then
    begin
      PInteger(lparam)^ := hwnd; //得到目标控件的Hwnd(句柄)
      Result:=False;  //终止循环
    end;
  end;
end;
function GetRichEditHandle(hwnd: Integer; lparam: Longint):Boolean; stdcall;
var
  hLastWin,hButton : THandle;
  szWindowText: array[0..MAX_PATH] of Char;
  szTextLength: Integer;
  QQName:String;
begin
   Result := True;
    hButton:=0;
    hLastWin :=FindWindowEx(GetForegroundWindow,hButton,'#32770',nil);
    if hLastWin=0 then Exit;
    hButton := FindWindowEx(hLastWin, THandle(nil),nil,'发送(&S)');
    if hButton=0 then Exit;
    hLastWin := FindWindowEx(hLastWin, THandle(nil),'AfxWnd42',nil);
    if hLastWin=0 then Exit;
    hLastWin := FindWindowEx(hLastWin, THandle(nil),'RICHEDIT',nil);
    if hLastWin=0 then Exit;
    msgs:=Form1.Memo1.text;
    SendMessage(hLastWin,EM_REPLACESEL,180,Integer(Pchar(msgs)));
    Result:=False;//终止循环
  end;
procedure Tform1.SendMessages(m:string);
var
  FButtonHandle,
  ButtonHandle,
  WinHandle:Integer;
begin
    WinHandle:=0;
    WinHandle:=FindWindow(nil,pchar(form1.GetQQcaption));  //就是窗口的Caption
    RichEditHandle:=WinHandle;
    msgs:=m;
    EnumChildWindows(RichEditHandle,@GetRichEditHandle,Integer(@RichEditHandle));
    captions:='发送(&S)';
    ButtonHandle:=WinHandle;
    EnumChildWindows(ButtonHandle,@GetButtonHandle,Integer(@ButtonHandle));
    FButtonHandle:=ButtonHandle;
    SendMessage(FButtonHandle,WM_LBUTTONDOWN,0,0);
    SendMessage(FButtonHandle,WM_LBUTTONUP,0,0);
    SendMessage(FButtonHandle,WM_LBUTTONDOWN,0,0);
    SendMessage(FButtonHandle,WM_LBUTTONUP,0,0);
    sleep(200);
    captions:='关闭(&C)';
    ButtonHandle:=WinHandle;
    EnumChildWindows(ButtonHandle,@GetButtonHandle,Integer(@ButtonHandle));
    FButtonHandle:=ButtonHandle;
    SendMessage(FButtonHandle,WM_LBUTTONDOWN,0,0);
    SendMessage(FButtonHandle,WM_LBUTTONUP,0,0);
    sleep(1000);
    Button1Click(self)
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
   Gi:=0;
   memo2.Text:=inttostr(strtoint(memo2.Text)+1);
   form1.WebBrowser1.Navigate('tencent://Message/?Menu=no&Uin='+form1.memo2.text+'&websiteName=在线咨询');
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if GetQQCaption<>'' then
   SendMessages(form1.Memo1.Text);
   timer1.Enabled:=false;
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  timer1.Enabled:=true;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//  form1.Label11.Caption:='世纪0769网址收藏站:'+chr(13)+'http://www.98exe.com';
  memo2.Lines.LoadFromFile('QQ.txt');
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  memo2.Lines.SaveToFile('QQ.txt');
end;
procedure TForm1.Label11MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label11.Font.Style:=label11.Font.Style+[fsunderline];
label11.Font.Color:=clred;
end;
procedure TForm1.Label11Click(Sender: TObject);
begin
//shellexecute(handle,nil,'http://www.0769cn.com/?input=qqsend',nil,nil,sw_normal);
end;
end.

						