如何获取IE浏览器中地址栏中的地址

Question

我想用程序自动监测并截获用户在IE浏览器地址栏中输入的地址,请各位大哥指教.

Answer 1

有个WEBBROWSER控件可以控制浏览器的吧！我忘了！

Answer 2

这个也是要发送消息的，你用spy看一下，ie5和ie6不一样的，WareBar,ComboBox,Edit可能不一样的，用spy看看

Answer 3

可以发送SendMessage消息WM_GETTEXT;

Answer 4

可以用SPY++查看一下它的信息
先获得它的句柄
然后得到文本
sendmessage(handle,WM_GETETEXT,0,0);

Answer 5

可以参考微软知识库文章Q176792 HOWTO: Connect to a Running Instance of Internet Explorer 
Q167658 HOWTO: Automate Internet Explorer to POST Form Data 
Q165298 HOWTO: Simulate a Form POST Request Using WinInet

Answer 6

//得到当前的网址!(源程序仅在IE 5.x下运行正常),这是我过去写的程序
//ie6+sp1没有测试过,你自己写写看ie6实际上就是那几个类名不太一样或
//者顺序改变了吧,你用spy观察一下.
var
  iehwnd,whwnd,rhwnd,chwnd,cbhwnd,ehwnd:integer;
  buf:array[0..256]of char;
begin
  iehwnd:=findwindow('ieframe',nil);
  if iehwnd <> 0 then
  begin
    whwnd:=findwindowex(iehwnd,0,'workera',nil);
    rhwnd:=findwindowex(whwnd,0,'rebarwindow32',nil);
    chwnd:=findwindowex(rhwnd,0,'comboboxex32',nil);
    cbhwnd:=findwindowex(chwnd,0,'combobox',nil);
    ehwnd:=findwindowex(cbhwnd,0,'edit',nil);
    sendmessage(ehwnd,wm_gettext,100,integer(@buf));
  end;
  edit1.Text:=buf;
end;

Answer 7

function GetURL(strType: String): String;
var
Cliente_DDE: TDDEClientConv;
Temp:PChar;
begin
Result := '';
Cliente_DDE:= TDDEClientConv.Create( nil );
with Cliente_DDE do
        begin
                SetLink( strType,'WWW_GetWindowInfo');
                Temp := RequestData('0xFFFFFFFF');
                Result := StrPas(Temp);
                StrDispose(Temp);
                CloseLink;
        end;
        Cliente_DDE.Free;
end;

Answer 8

这些都没用，用BHO可以完美的解决楼主的问题

Answer 9

我的代码在win98se+ie6+sp1通过了，你写写看，用spy查看浏览器的地址栏类EDIT，然后点击spy的ok，看见他们的关系了吗？成树形显示的

Answer 10

BHO是什么，楼上的朋友说详细点

Answer 11

可以查看:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects相关参考
http://www.vckbase.com/document/listdoc.asp?mclsid=17&sclsid=1711

Answer 12

http://community.csdn.net/Expert/TopicView3.asp?id=3272934
引用此贴代码，使用TIEConnector连上IE后，
使用TIEConnector的WebBrowser.LocationURL属性读取URL。这种方法的好处是，不仅仅对于IE，还能搞定其他使用MSHTML的浏览器