webbrowser链接的问题（并不简单，请朋友们帮帮忙）

Question

比如这样以脚本控制的链接
              <TD class=sidemenuitem onClick="MM_openBrWindow('http://www.csdn.net/kjxx/index.htm'','scrollbars=yes,resizable=yes,width=400,height=300')"><font color="#0000FF" size="2"><a href="#">科技信息<font color="#0000FF"><br>  </font></a></TD> 这样一个链接，链接名称是科技信息，目标是：www.csdn.net/kjxx/index.htm。我如何在程序中以代码获得这种链接的地址呢？获得普通链接的方法，只能等等链接名称（科技信息）。
很急，在线等待，朋友们帮帮忙，解决以后另送分

Answer 1

告诉你一个思路：
一，先得到页面的所有连接
　　var
　　　doc:IHTMLDocument2;
　　　all:IHTMLElementCollection;
　　　len,i:integer;
　　　item:OleVariant;
　　begin
　　　doc:=WebBrowser1 .Document as IHTMLDocument2;
　　　all:=doc.Get_links;　　　　　　　　　　　　　
　　　len:=all.length;
　　　for i:=0 to len-1 do begin
　　　　item:=all.item(i,varempty);　　　　　　　　
　　　　memo1.lines.add(item.href);
        memo2.lines.add(item.innerText); //得到连接的名称
　　　end;
　　end;
二、自动点击你要的连接
var 
  Links:IHTMLElementCollection; 
  Doc:IHTMLDocument2; 
  len:integer; 
  item:olevariant;
  i:integer; 
begin 
  Doc:=webbrowser1.document as IHtmlDocument2; 
  links:=Doc.links; 
  len:=links.length; 
  if len>0  then 
  begin 
    Item:=links.item(i,varEmpty); 
    item.click; 
  end; 
其中i就是连接的位置信息
你可以根据一中的innerText来判断这个i，判断出来自动点击就ok了
这样你就不需要得到真正的目标了