code.txt

一个简单的QQ挂级源代码

    编写代码：在这里只列出了核心代码
 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.Timer1Timer(Sender: TObject);
begin
   if getqqwnd=0 then exit;
     SendMessage(getqqWnd,WM_command,13203,0);
      SendMessage(getqqWnd,WM_command, 13200,0);
end;