怎么去实现对一个窗口消息的监听呢﹖仿真QQ”发送”按钮﹐为什幺信息发不出去呢﹖ ( 积分: 100 )

胡圖崇 · 2005-08-25

开始我始终找不到输入文本消息的控件是什幺﹐后来把控件名都写入一个文本文件后﹐发现是RichEdit20A﹐这样才获得了文本输入框的句柄﹐但是消息发出去一条﹐然后没反应了﹐而且发出去的这条信息对方都收不到﹐不知道是什幺原因﹐请高手指点咯 以下是我的程序源代码﹕ unit UQicqSendForm; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,inifiles,  StdCtrls, Buttons, ExtCtrls; type  TFrmMain = class(TForm)    btnStart: TButton;    btnEnd: TButton;    Bevel1: TBevel;    Timer: TTimer;    edtTime: TEdit;    memText: TMemo;    Edit1: TEdit;    Label1: TLabel;    Label2: TLabel;    procedure btnStartClick(Sender: TObject);    procedure btnEndClick(Sender: TObject);    procedure TimerTimer(Sender: TObject);  private    { Private declarations }    FTextHandle: HWND;   //qq消息Text句柄    FButtonHandle: HWND; //SendText Button's Handle;  public    { Public declarations }  end; var  FrmMain: TFrmMain;   implementation //Fetch sendText's Button //function EnumChildWindowsProc(hwnd: Integer; lparam: Longint):Boolean;stdcall; function GetButtonHandle(hwnd: Integer; lparam: Longint):Boolean; stdcall; var  buffer: array[0..255] of Char;  buffer1: array[0..255] of Char; begin  Result := True;  //Fetch aim window's component  GetClassName(hwnd,buffer,256);  //Find SendText's Button  if StrPas(Buffer)='Button' then  begin    GetWindowText(hwnd,buffer1,100);    if buffer1 = '傳送(&S)' then    begin      PInteger(lparam)^ := hwnd; //Fetch Handle      Result:=False;  //Break Loop    end;  end; end;//end of function //Fetch SendText's Text handle //function EnumChildWindowsProc(hwnd: Integer; lparam: Longint):Boolean; stdcall; function GetEditHandle(hwnd: Integer; lparam: Longint):Boolean; stdcall; var  buffer: array[0..255] of Char;  buffer1: array[0..255] of Char; begin  Result := True;  //Fetch aim window's component  GetClassName(hwnd,buffer,256);  //Find text's Handle if StrPas(Buffer)='RichEdit20A' then  begin    GetWindowText(hwnd,buffer1,100);    PInteger(lparam)^ := hwnd; //Fetch Text's Handle    Result:=False;  //Break Loop  end;       end;//end of function {$R *.DFM} procedure TfrmMain.btnStartClick(Sender: TObject); var  Handle: Integer;  tmpHandle: Integer;  sendMan:string; begin  {取句柄}  sendMan:=edit1.Text;  Handle := FindWindow(nil,pchar(sendMan));  //就是窗口的Caption  if Handle<>0 then  begin    tmpHandle := Handle;    //Loop For Find Button's Handle;    EnumChildWindows(Handle,@GetButtonHandle,Integer(@Handle));    FButtonHandle := Handle;    //Loop For Find SendText's Handle    EnumChildWindows(tmpHandle,@GetEditHandle,Integer(@tmpHandle));    FTextHandle := tmpHandle;    Timer.Interval := StrToInt(edtTime.Text);    Timer.Enabled := true;  end; end; procedure TfrmMain.btnEndClick(Sender: TObject); begin  Timer.Enabled := false;//關閉定時器 end; [red]procedure TfrmMain.TimerTimer(Sender: TObject); begin  //Send Text  SendMessage(FTextHandle,WM_SETTEXT,0,Integer(pchar(memText.Text)));  //SendText Button   SendMessage(FButtonHandle,WM_LBUTTONDOWN,0,0);  SendMessage(FButtonHandle,WM_LBUTTONUP,0,0); end;[/red] end. 还有﹕假如上面的问题解决了﹐我怎幺解决监听QQ窗口信息呢﹖就象QQ自动回复一样。

胡圖崇 · 2005-08-25

开始我始终找不到输入文本消息的控件是什幺﹐后来把控件名都写入一个文本文件后﹐发现是RichEdit20A﹐这样才获得了文本输入框的句柄﹐但是消息发出去一条﹐然后没反应了﹐而且发出去的这条信息对方都收不到﹐不知道是什幺原因﹐请高手指点咯 以下是我的程序源代码﹕ unit UQicqSendForm; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,inifiles,  StdCtrls, Buttons, ExtCtrls; type  TFrmMain = class(TForm)    btnStart: TButton;    btnEnd: TButton;    Bevel1: TBevel;    Timer: TTimer;    edtTime: TEdit;    memText: TMemo;    Edit1: TEdit;    Label1: TLabel;    Label2: TLabel;    procedure btnStartClick(Sender: TObject);    procedure btnEndClick(Sender: TObject);    procedure TimerTimer(Sender: TObject);  private    { Private declarations }    FTextHandle: HWND;   //qq消息Text句柄    FButtonHandle: HWND; //SendText Button's Handle;  public    { Public declarations }  end; var  FrmMain: TFrmMain;   implementation //Fetch sendText's Button //function EnumChildWindowsProc(hwnd: Integer; lparam: Longint):Boolean;stdcall; function GetButtonHandle(hwnd: Integer; lparam: Longint):Boolean; stdcall; var  buffer: array[0..255] of Char;  buffer1: array[0..255] of Char; begin  Result := True;  //Fetch aim window's component  GetClassName(hwnd,buffer,256);  //Find SendText's Button  if StrPas(Buffer)='Button' then  begin    GetWindowText(hwnd,buffer1,100);    if buffer1 = '傳送(&S)' then    begin      PInteger(lparam)^ := hwnd; //Fetch Handle      Result:=False;  //Break Loop    end;  end; end;//end of function //Fetch SendText's Text handle //function EnumChildWindowsProc(hwnd: Integer; lparam: Longint):Boolean; stdcall; function GetEditHandle(hwnd: Integer; lparam: Longint):Boolean; stdcall; var  buffer: array[0..255] of Char;  buffer1: array[0..255] of Char; begin  Result := True;  //Fetch aim window's component  GetClassName(hwnd,buffer,256);  //Find text's Handle if StrPas(Buffer)='RichEdit20A' then  begin    GetWindowText(hwnd,buffer1,100);    PInteger(lparam)^ := hwnd; //Fetch Text's Handle    Result:=False;  //Break Loop  end;       end;//end of function {$R *.DFM} procedure TfrmMain.btnStartClick(Sender: TObject); var  Handle: Integer;  tmpHandle: Integer;  sendMan:string; begin  {取句柄}  sendMan:=edit1.Text;  Handle := FindWindow(nil,pchar(sendMan));  //就是窗口的Caption  if Handle<>0 then  begin    tmpHandle := Handle;    //Loop For Find Button's Handle;    EnumChildWindows(Handle,@GetButtonHandle,Integer(@Handle));    FButtonHandle := Handle;    //Loop For Find SendText's Handle    EnumChildWindows(tmpHandle,@GetEditHandle,Integer(@tmpHandle));    FTextHandle := tmpHandle;    Timer.Interval := StrToInt(edtTime.Text);    Timer.Enabled := true;  end; end; procedure TfrmMain.btnEndClick(Sender: TObject); begin  Timer.Enabled := false;//關閉定時器 end; [red]procedure TfrmMain.TimerTimer(Sender: TObject); begin  //Send Text  SendMessage(FTextHandle,WM_SETTEXT,0,Integer(pchar(memText.Text)));  //SendText Button   SendMessage(FButtonHandle,WM_LBUTTONDOWN,0,0);  SendMessage(FButtonHandle,WM_LBUTTONUP,0,0); end;[/red] end. 还有﹕假如上面的问题解决了﹐我怎幺解决监听QQ窗口信息呢﹖就象QQ自动回复一样。

胡圖崇 · 2005-08-25

怎么就沒人回答我的問題呢﹖

胡圖崇 · 2005-08-26

高手們是不是認為我的問題比較幼稚啊﹖ 怎么沒人理我呢﹖

chenybin · 2005-08-28

可能高手觉得很幼稚，我觉得很难。 一点看法，一个是监视QQ的网络数据包，一种是监视某个已经打开的对话框，看对话框里面的内容变化，可能后面一种实现起来容易一点，这个监视我不会弄，有人说用Hook可以做到，不过我不会（废话），能找到当前的信息，发送回去就方便了，这段时间论坛这方面的代码比较多，我找了一点资料，希望对你有用，原理也比较清爽 －－－－－－－－－－－－－－－－－－－－－以下转自网络 http://www.delphibbs.com/delphibbs/dispq.asp?LID=600569 其实这个程序主要的内容不是如何发qq信息 而是如何找到某一个正在运行的应用程序窗口上任意一个控件的句柄 我的方法是（以一个button为例） 用FindWindow找到窗体的句柄后 根据按钮的类别，循环找这个窗体上的每个'Button'，然后用GetWindowText和Button的Caption比较，就可以找到想要的按钮句柄了 下面贴出我的程序，望大家批评指教 其中部分代码参考大富翁上某一帖子（忘了是哪个了） unit OicqSendForm; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls, Buttons, ExtCtrls; type  TfrmMain = class(TForm)    memText: TMemo;    edtTime: TEdit;    Label1: TLabel;    Bevel1: TBevel;    Label2: TLabel;    bbtnStart: TBitBtn;    bbtnEnd: TBitBtn;    bbtnHelp: TBitBtn;    Timer: TTimer;    procedure bbtnStartClick(Sender: TObject);    procedure bbtnEndClick(Sender: TObject);    procedure TimerTimer(Sender: TObject);    procedure bbtnHelpClick(Sender: TObject);  private    { Private declarations }    FTextHandle: HWND;   //qq消息输入框句柄    FButtonHandle: HWND; //发送按钮输入框  public    { Public declarations }  end; var  frmMain: TfrmMain; implementation //这个函数取当前qq发送窗口上“送讯息”的按钮的句柄 //function EnumChildWindowsProc(hwnd: Integer; lparam: Longint):Boolean; stdcall; 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 buffer1 = '送讯息(&S)' then    begin      PInteger(lparam)^ := hwnd; //得到目标控件的Hwnd(句柄)      Result:=False;  //终止循环    end;  end; end;//end of function //这个函数取当前qq发送窗口上消息框句柄 //function EnumChildWindowsProc(hwnd: Integer; lparam: Longint):Boolean; stdcall; function GetEditHandle(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)='Edit' then  begin    GetWindowText(hwnd,buffer1,100);    PInteger(lparam)^ := hwnd; //得到目标控件的Hwnd(句柄)    Result:=False;  //终止循环  end; end;//end of function {$R *.DFM} procedure TfrmMain.bbtnStartClick(Sender: TObject); var  Handle: Integer;  tmpHandle: Integer; begin  {取句柄}  Handle := FindWindow(nil,'对话模式');  //就是窗口的Caption  if Handle<>0 then  begin    tmpHandle := Handle;    //在这里循环取到想要的句柄为止    //取发送按钮的，FButtonHandle    EnumChildWindows(Handle,@GetButtonHandle,Integer(@Handle));    FButtonHandle := Handle;    //取消息输入框的，FTextHandle    EnumChildWindows(tmpHandle,@GetEditHandle,Integer(@tmpHandle));    FTextHandle := tmpHandle;    Timer.Interval := StrToInt(edtTime.Text);    Timer.Enabled := true;  end;//end of if end; procedure TfrmMain.bbtnEndClick(Sender: TObject); begin  Timer.Enabled := false;//关闭定时器 end; procedure TfrmMain.TimerTimer(Sender: TObject); begin  {定时发送}  //设发送文本  SendMessage(FTextHandle,WM_SETTEXT,0,Integer(pchar(memText.Text)));  //发送按钮  //SendMessage(FButtonHandle,BN_CLICKED,0,0);  SendMessage(FButtonHandle,WM_LBUTTONDOWN,0,0);  SendMessage(FButtonHandle,WM_LBUTTONUP,0,0); end; procedure TfrmMain.bbtnHelpClick(Sender: TObject); var  sHelp: String; begin  //帮助  sHelp := '打开要发送的对象窗口'+#13+           '选择对话模式后点[开始]！';  ShowMessage(sHelp);         end; end.

胡圖崇 · 2005-08-31

為什么沒人理我的問題呢﹖[

]

chenybin · 2005-09-03

转无泪大侠的，里面有你要的东西 http://www.delphibbs.com/delphibbs/dispq.asp?lid=3173133

胡圖崇 · 2005-09-13

多人接受答案了。

怎么去实现对一个窗口消息的监听呢﹖仿真QQ”发送”按钮﹐为什幺信息发不出去呢﹖ ( 积分: 100 )

胡圖崇

Unregistered / Unconfirmed

胡圖崇

Unregistered / Unconfirmed

胡圖崇

Unregistered / Unconfirmed

胡圖崇

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

胡圖崇

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

胡圖崇

Unregistered / Unconfirmed

Similar threads