非常急!!!(200分)

  • 主题发起人 主题发起人 0000
  • 开始时间 开始时间
0

0000

Unregistered / Unconfirmed
GUEST, unregistred user!
请问如何的IE的地址栏的句柄?THANK YOU!

非常急!!!
 
什么意思?
 
做一个Hook IE地址栏是一个Text框 以前在VC中做过这个
 
procedure TForm1.Button1Click(Sender: TObject);
var
hwnd: Integer;
h1,h2,h3,h4,h5: Integer;
buffer: array[0..1023] of char;
begin
memo1.Lines.clear;
hwnd := FindWindow('IEFrame',nil);
Memo1.Lines.Append(IntToStr(hwnd));
h1 := FindWindowEx(hwnd,0,'WorkerA',nil);
Memo1.Lines.Append(IntToStr(h1));
h2 := FindWindowEx(h1,0,'ReBarWindow32',nil);
Memo1.Lines.Append(IntToStr(h2));
h3 := FindWindowEx(h2,0,'ComboBoxEx32',nil);
Memo1.Lines.Append(IntToStr(h3));
h4 := FindWindowEx(h3,0,'ComboBox',nil);
Memo1.Lines.Append(IntToStr(h4));
h5 := FindWindowEx(h4,0,'Edit',nil);
Memo1.Lines.Append(IntToStr(h5));
SendMessage(h5,WM_GETTEXT,1024,Integer(@buffer[0]));
Memo1.Lines.Append(buffer);
end;

那个h5就是了
 
接受答案了.
 
后退
顶部