HTMLのボタンをクリック
解決TWebBrowserでHTMLを開きsubmitボタンを押したいのですが
うまくいきません、ちなみにこの掲示板のGoogleの検索ボタンを押す方法などで試みてみましたがうまくいきませんでした、フォームは以下です。
具体的な方法を宜しくお願いします。
<div class="actionControl">
<input type="submit" value="下書き(非公開)" onClick="changeSave('savedraft','/ucs/entry/srventryinsertdraft.do', '1');return false;" />
<input type="submit" value="限定公開" onClick="sendClickLog(this,'[main]限定公開ボタン');changeSave('saveentry','/ucs/entry/srventryinsertend1.do', '2');return false;" />
<input type="submit" value="全員に公開" onClick="sendClickLog(this,'[main]全員に公開ボタン');changeSave('saveentry','/ucs/entry/srventryinsertend1.do', '0');return false;" /></div>
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.google.com/webhp?hl=ja');
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
Doc3: IHTMLDocument3;
iInputElement: IHTMLInputElement;
begin
Doc3:=WebBrowser1.Document as IHTMLDocument3;
iInputElement := Doc3.getElementById('q') as IHTMLInputElement;
iInputElement.value:='innerHTML delphi';
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Doc3: IHTMLDocument3;
iInputBoxElement: IHTMLInputElement;
begin
Doc3:=WebBrowser1.Document as IHTMLDocument3;
iInputBoxElement := Doc3.getElementById('btnG') as IHTMLInputElement;
iInputBoxElement.form.submit;
end;
googleだけどー。
こんな感じでどうでしょ。
あとは、もう目の前の箱で調べてくれよなっ。
| ツイート |  |