请教如何在webbrowser中模拟点击超连接(100分)

E

eddie.t

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-24

• #1

比如模拟点击提交按钮可以这样：
ov := WebBrowser1.OleObject.Document.all.item('提交',0);
ov.click;

但是如何点击吵连接呢？，而且这个超连接不是普通的网址
而是javascript:aa()这样的脚本，就不能click了
请教各位，帮帮忙~~

 

D

dingbaosheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-24

• #2

执行Script就是了
或者 用POST方法

 

E

eddie.t

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-25

• #3

可以详细的说说吗？最好有代码

 

0

0桁骀

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-25

• #4

一样的，把所有的link取出来，link本身也有click的，
<a href='' onclick="alert('link')">aaaaa</a>

 

L

linuxping

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-26

• #5

不止一次与到楼主的问题,期待解决~

另外,WebBrowser必须要下载完Document,才可以使用WebBrowser1.OleObject.Document,,如何判断Document下载完成也是个问题...----可能有人会提起'DocumentComplete事件',但实际表明'DocumentComplete事件'发生时,WebBrowser.Document可能并未完全下载完成,,,,我曾经查过资料,资料上说Webbrowser下载完某些元素(比如:Frame),也会产生'DocumentComplete事件'......那么,如何判断WebBrowser.Document下载完毕????

 

0

0桁骀

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-26

• #6

DocumentComplete

 

风

风铃夜思雨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-12-31

• #7

var HTMLDocument: IHTMLDocument2;
begin
HTMLDocument := IHTMLDocument2(WebBrowser.Document);
If HTMLDocument = Nil Then Exit;
HTMLDocument.parentWindow.execScript('aa()', 'javascript');
end;
试试这个看看

webbrowser1.Navigate('http:/xxx.xxx.xxx');
While webbrowser1.ReadyState <> READYSTATE_COMPLETE Do Application.ProcessMessages;

//文档加载完成执行其它操作