如何监控ie打开的网址，并作出提示？

Question

如何监控ie打开的网址，并作出提示？用ie浏览器，上网，当网址中含有指定的字符时候，给出提示，我的思路是做个timer，但是timer事件中怎么写？谢谢？

Answer 1

第一部用DDE获取网址
Function TForm1.geturl:string;
var
Cliente_DDE: TDDEClientConv;
temp:PChar;
begin
Cliente_DDE:= TDDEClientConv.Create( nil );
with Cliente_DDE do
begin
SetLink( 'Iexplore','WWW_GetWindowInfo');
temp := RequestData('0xFFFFFFFF');
Result := StrPas(temp);
StrDispose(temp);
CloseLink;
end;
Cliente_DDE.Free;
end;
第二部用timer监控
procedure TForm1.Timer1Timer(Sender: TObject);
var
hwnd:thandle;
begin
hwnd:=findwindow('IEframe',nil);
if hwnd<>0 then
begin
if pos('要监控的网址',geturl) then
begin
  你要干的事情。。
end;
end;
end;

Answer 2

if pos('要监控的网址',geturl)>0 then不好意思这段写错了

Answer 3

这不是 典型的 BHO IE插件呀 哪是dde能完成的？

Answer 4

如果是只针对IE,或IE内核的浏览器,则直接取WebBrowser对象就行.这里有个例子:http://blog.m5home.com/article.asp?id=181你定义一个类,再在类里声明一个带事件的WebBrowser对象,再在类里面处理DocumentComplet事件,就可以知道当前打开的URL了.这个类可以在外面声明为类数组,就能批量处理事件了,不需要定时器.

Answer 5

主要是使用InnerHtml、InneText、OuterHtml、OuterText这几个属性,操作的就是源代码或文本.