unit1.pas

一个简单的QQ挂级源代码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Timer1: TTimer;
    Button3: TButton;
    Button4: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   mm:integer;
implementation

{$R *.dfm}
 function GetQQWnd: HWND;
var

  hCurrentWindow: HWnd;
   szclass:array[0..254]of char;

begin

  hCurrentWindow := GetWindow(Application.Handle, GW_HWNDFIRST);

  while hCurrentWindow <> 0 do

  begin
     Getclassname(hCurrentwindow,@szclass,255) ;
       if Strpas(@szclass)='#32770'then
       begin
        if findwindowex(hCurrentwindow,0,'Tencent_QQToolBar',nil)>0 then
            begin
            Result:=hCurrentWindow;
              Exit;
            end;
        end;


    hCurrentWindow := GetWindow(hCurrentWindow, GW_HWNDNEXT);

  end;

  Result:=0;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 SendMessage(getqqWnd,WM_command, 13200,0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  SendMessage(getqqWnd,WM_command,13203,0);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  button3.Enabled := False ;
    button4.Enabled := True   ;
    mm := strtoint(edit1.Text) * 1000 ;
   // strpath := labelededit1.Text  ;
    //ProID := WinExec(pchar(strpath), SW_Normal) ;
    Timer1.Interval := 1000  ;
    Timer1.Enabled := True   ;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  Timer1.Enabled := False  ;
   button3.Enabled:= True ;
    button4.Enabled := False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  timer1.Enabled :=false;
button4.Enabled :=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
 var hProcess :integer;
 i:integer;
begin
   if getqqwnd=0 then exit;
    i := GetTickCount() ;
   while not GetTickCount() > i + mm do
   begin
      application.ProcessMessages;
    end;
  

     SendMessage(getqqWnd,WM_command,13203,0);
      SendMessage(getqqWnd,WM_command, 13200,0);
     end;   

end.