请问用什么函数可以获得ie里输入的网址(100分)

  • 主题发起人 主题发起人 bobyping
  • 开始时间 开始时间
B

bobyping

Unregistered / Unconfirmed
GUEST, unregistred user!
就是用什么api函数可以得到输入的哪个网址
 
读鼠标所在的句柄,getwindowtext
 
到注册表里去找,local_machine/software/internet explore/recent<br>都记录了下来
 
用COM来干吗,<br>ie: Variant;<br>...<br>ie := GetActiveOLEObject('InternetExplorer.Application');<br>ie.LocationURL <br><br>或者通过 TShellWindow 来做,可以枚举所有的IE实例,并获得他们的URL<br>http://www.delphibbs.com/delphibbs/dispq.asp?lid=635843<br>
 
可以在程序中先得到IE的类(IEFrame),在得到它的子窗口(不要管名字)最后你可以得到<br>(在第三层第二个)一个EDIT的对象,这个就是IE中的地址栏,我做过这样的程序,可以在电<br>脑中动态监视IE输入的网址,可以全面禁止本地目录的访问(发现“/”就毙),发现“/”才<br>通过,这样就可以使自己的电脑安全了,好象美萍也有这个功能,不知道是不是这样实现的?<br>不知道你是要实现类似功能吗?要代码找我:tufeiping@sina.com记得给分!! &nbsp; &nbsp; &nbsp; &nbsp;
 
我抄的书,希望对你有用 &nbsp;:-)<br>function EnumChildWindowsProc(H: HWnd; lparam: longint): Boolean; stdcall;<br>var<br>&nbsp; Buffer: array[0..10] of Char;<br>begin<br>&nbsp; Result := True; //設定為True才會再找下一個<br>&nbsp; getclassname(h,buffer,10);<br>&nbsp; if trim(StrPas(Buffer))='Edit' then<br>&nbsp; begin<br>&nbsp; &nbsp; ThisUrl:= StrAlloc(250);<br>&nbsp; &nbsp; SendMessage(h,WM_GETTEXT,249,Integer(ThisUrl));<br>&nbsp; &nbsp; Result:=False;//設定為false不找下一個<br>&nbsp; end;<br>end;<br><br>procedure GetUrl;<br>begin<br>&nbsp; EnumChildWindows(getforegroundwindow, @EnumChildWindowsProc, 0);<br>end;<br>&nbsp;<br>&nbsp;<br><br>
 
用spy++查看一下ie地址栏窗口的表示,然后getwindowtext(),行不行呀?
 
不行。必须使用MS提供的接口或是使用COM
 
后退
顶部