D
delphilxh
Unregistered / Unconfirmed
GUEST, unregistred user!
网页表单提交的问题
<INPUT class=yes disabled onclick="CountWinGold();return SubChk();" 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
象这样的如何实现呢?
<INPUT class=yes disabled onclick="CountWinGold();return SubChk();" 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
象这样的如何实现呢?