如何 向网页中的链接发送 click事件(100分)

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

brucedai

Unregistered / Unconfirmed
GUEST, unregistred user!
如何 向网页中的链接发送 click事件 , 比如有 “ 下一页” 这个链接,

后台的程序中, 找到这个链接 ,并自动 使网页连到下一页
 
如果網頁的話就可以用javascript調用,但是程序就難了,可以直接寫一下按“下一頁”的事件吧。
 
我也想知道
 
要是找到那个链接的话,不如直接给浏览器输入这个地址,说要是用来HTML内容分析,把下一页的地址找出来。

给分吧
 
提取网页中所有链接
uses mshtml,SHDocVw;
  var
   doc:IHTMLDocument2;
   all:IHTMLElementCollection;
   len,i:integer;
   item:OleVariant;
  begin
   doc:=WebBrowser1 .Document as IHTMLDocument2;
   all:=doc.Get_links;             //doc.Links亦可
   len:=all.length;
   for i:=0 to len-1 do begin
    item:=all.item(i,varempty);        //EmpryParam亦可
    memo1.lines.add(item.href +' ' +item.innertext);
   end;
  end;

 
后退
顶部