delphi 中怎么才能实现模拟点击网页中的链接呢?
注:这个网页中的链接地址是一个"#"号.它是通过OnClick事件来调用Java的一个函数.我在网上查了,有模拟点击按钮的,可是这个不是按钮.请问我该怎么做呢?能给个例子吗?
注:这个网页中的链接地址是一个"#"号.它是通过OnClick事件来调用Java的一个函数.我在网上查了,有模拟点击按钮的,可是这个不是按钮.请问我该怎么做呢?能给个例子吗?
调试欢乐多
var
doc:IHTMLDocument2;
elem : IHTMLElement;doc := ihtmldocument2(WebBrowser1.Document);
elem := doc.all.item('标签ID',i);
elem.click;
对没有id和name的链接是没有效果的。最好的办法是截获鼠标单击事件,然后调用下面函数。
function GetElement(Point: TPoint): IHTMLElement;
var
doc:IHTMLDocument2;
elem : IHTMLElement;
vPoint:Tpoint;
begin
vPoint := Point;
vPoint := web.ScreenToClient(vPoint);
elem:=doc.elementFromPoint(vPoint.X, vPoint.Y);
result:=elem;
end;对结果执行IHTMLElement。click