Delphi自動提交表單(這裏只有一個表單)

弄了一個晚上,經過一個大牛的指點,10分鐘搞定

 

procedure TMainForm.WebBrowser2DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); var oFrames:OleVariant; begin oFrames := WebBrowser2.OleObject.document.forms; if oframes.length <> 0 then begin oFrames.item(0).submit; end; end;