怎么在网页里输入edit框内的文字
如何在网页里输入edit框内的文字
我用WebBrowser打开百度网址，想通过点击button键在百度的搜索框内直接输入edit框内的文字，而不用通过键盘输入我想要输入的文字，请各位大侠帮忙提供一些源码，如何解决！谢谢！
------解决方案--------------------
放一个webbrowser wb1
然后处理OnDocumentComplete事件
我用WebBrowser打开百度网址，想通过点击button键在百度的搜索框内直接输入edit框内的文字，而不用通过键盘输入我想要输入的文字，请各位大侠帮忙提供一些源码，如何解决！谢谢！
------解决方案--------------------
放一个webbrowser wb1
procedure TForm1.FormCreate(Sender: TObject);
begin
wb1.Navigate('www.baidu.com');
end;
然后处理OnDocumentComplete事件
procedure TForm1.wb1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
doc: IHTMLDocument2;
input: IHTMLInputElement;
begin
doc := wb1.Document as IHTMLDocument2;
input := doc.all.item('kw', 0) as IHTMLInputElement;
input.value := '你想输入啥就输入啥';
end;