关于在WebBrowser1中的点击问题,在线等待!!! ( 积分: 100 )

  • 主题发起人 主题发起人 wang_hn
  • 开始时间 开始时间
W

wang_hn

Unregistered / Unconfirmed
GUEST, unregistred user!
在网页编程自动点击时遇到下面两个按键不知道怎么去点击,请大家帮下忙,请写一下代码。谢谢,一题为100分。另有100分在我另开的一个贴上得分。

第一个是这样的按键:
<BUTTON class=button onclick=&quot;location.href='restart.php?gateid=2'&quot;>重新开始</BUTTON>

第二个是这样的:
<A class=continue title=继续 href=&quot;go.php?kskey=_mhB9HfVmNvmwL.5m4Dtx3hKyfVDbA--&quot;></A>
 
没有人知道吗??
第二个问题我自己找到方法了。就差第一个问题了
 
form.button.click
好象是....
 
真搞笑!
你的button即没有名字也没有id,怎么调用?除非它是唯一的一个button。
建议改成:
<BUTTON name='button1' class=button onclick=&quot;location.href='restart.php?gateid=2'&quot;>重新开始</BUTTON>
然后:
var doc:variant;
begin
doc:=webbrowser1.document;
doc.all.button1.click;
end;
热连接也可以这样调用。
 
to yeskert1,
这本来就是一个网页的button,就是没有名字啊,所以才不知道怎么来点击的。
 
我不会啊,能说详细一点吗?
 
试一试这个:
procedure SetBtClick();
var
Doc:IHTMLDocument2;
Elems:IHTMLElementCollection;
btElem:IHTMLInputButtonElement;
spdisp:idispatch;
i:integer;
begin
doc:=IHTMLDocument2(Webbrowser.document);
Elems:=doc.get_all;
for i:=0 to Elems.length-1 do
begin
spdisp:=Elems.item(i,0);
if SUCCEEDED(spDisp.QueryInterface(iHTMLInputButtonElement,btElem)) then
begin
if btElem.value=‘重新开始’ then (btElem as IHTMLElement).click ;
end;
end;
end;
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部