模拟点击页面上的按钮（有点难度）200分？(200分)

abencat · 2008-08-04

网站页面内容如下：
<TABLE class=BtBlue2 cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD class=BtBlueL2></TD>
<TD class=Text onmouseover="className='TextOver'" onclick=aj(); onmouseout="className='Text'">取消 </TD>
<TD class=BtBlueR2></TD></TR></TBODY></TABLE>

我采用
for i := 0 to t.all.Length - 1 do
begin
if (Pos(UpperCase(sClassName),UpperCase(t.all.item(i).innerText))>0) then
begin
t.all.item(i).Click;
Result := True;
break;
exit;
end;
end;

方式不行，没有作用，还请各位指点一下谢谢

不能没有你 · 2008-08-04

还是很有难度的。
关注一下。

lisongmagic · 2008-08-04

delphi怎样实现点击网页中的一个按钮!
注意，需要uses ActiveX;

另外，附上测试用的test.htm 如下：
HTML code

<html>
<head>
<title>test</title>
</head>
<body>
<form name="F1" method="POST" action="c:/test.htm">
<p><input type="text" name="T1" size="20">
<input type="button" value="按钮" name="B3" onclick="alert('B3 be Clicked!')">
<input type="submit" value="提交" name="B1">
<input type="reset" value="全部重写" name="B2">
</p>
</form>
</body>
</html>

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);
begin
Self.WebBrowser1.Navigate('c:/test.htm');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Self.WebBrowser1.OleObject.document.all.item('F1',0).submit; {提交}
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Self.WebBrowser1.OleObject.document.all.item('T1',0).value := Self.Edit1.Text; {填充}
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Self.WebBrowser1.OleObject.document.all.item('B3',0).click; {点击}
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Self.WebBrowser1.OleObject.document.all.item('F1',0).reset; {重置}
end;

abencat · 2008-11-25

多人接受答案了。

模拟点击页面上的按钮（有点难度）200分？(200分)

abencat

Unregistered / Unconfirmed

不能没有你

Unregistered / Unconfirmed

lisongmagic

Unregistered / Unconfirmed

abencat

Unregistered / Unconfirmed

Similar threads