webbrowser问题 ( 积分: 100 )

  • 主题发起人 主题发起人 delphilxh
  • 开始时间 开始时间
D

delphilxh

Unregistered / Unconfirmed
GUEST, unregistred user!
网页表单提交的问题
<INPUT class=yes disabled onclick=&quot;CountWinGold();return SubChk();&quot; type=button value=確定交易 name=Submit>
象这样的直接模拟点击就可以了,代码如下
FormItem := WebBrowser1.OleObject.Document.Frames.item(0).Document.Frames.item(1).document.forms.Item(I);
for j := FormItem.Length - 1 downto 0 do
begin
try
str:=FormItem.item(j).name;
str:=LowerCase(str);
if str = 'submit' then
begin



FormItem.Item(j).click;


result:=True;
//Break;
end;
except
Exit;
end;
end;

可是如果网页的表单为
<INPUT class=yes onmousedown=Sure_wager(); type=button value=確定交易 name=wgSubmit>
上面的代码就不可以了,我看了下,下面的表单的button响应事件为onmousedown
象这样的如何实现呢?
 
??????????????????????????????????????????????????????????
 
搞定了,不知道分可以收回来不,呵呵
 
怎没搞定的??
 
后退
顶部