看一下这个代码这个是HTML里的<input class="bt_ok" type="submit" onClick="DoReturn()" value="登录" />用这个方法就可以提交了
WebBrowser1.OleObject.document.parentWindow.execScript('DoReturn()','javascript');现在的问题是下面的onClick里是没有值的。用WebBrowser1怎么提交??<input class="bt_ok" type="submit" onClick="" value="登录" />
WebBrowser1.OleObject.document.parentWindow.execScript('DoReturn()','javascript');现在的问题是下面的onClick里是没有值的。用WebBrowser1怎么提交??<input class="bt_ok" type="submit" onClick="" value="登录" />
然后在程序中控制
首先找到你所打开的网页
在你所打开网页中搜索你要查找的按钮
var
Form : IHTMLFormElement;
D : IHTMLDocument2;
begin
with WebBrowser1 do
begin
D := Document as IHTMLDocument2;
Form := D.Forms.Item('f1',0) as IHTMLFormElement;
(Form.item('wd',0) as IHTMLElement).setAttribute('value',EdtsearchWord.Text,0);
Form.submit;
end;
end;
你看一下这几句代码
然后在程序中控制
首先找到你所打开的网页
在你所打开网页中搜索你要查找的按钮
var
Form : IHTMLFormElement;
D : IHTMLDocument2;
begin
with WebBrowser1 do
begin
D := Document as IHTMLDocument2;
Form := D.Forms.Item('f1',0) as IHTMLFormElement;
(Form.item('wd',0) as IHTMLElement).setAttribute('value',EdtsearchWord.Text,0);
Form.submit;
end;
end;
你看一下这几句代码