WebBrowser提交表单

var
  o : Olevariant;
begin
  o := WebBrowser.OleObject.document.all.item('LoginUserID',0);   //找到登录用户名的输入框
  o.value := 'TEST';
  o := WebBrowser.oleobject.document.all.item('LoginPassword',0); //找到登录密码的输入框
  o.value := 'TEST'
  WebBrowser.oleobject.document.Forms.Item(0, 0).submit;          //第一个表单提交

{

  o :=WebBrowser.oleobject.document.all.item('Login',0);          //或者用指定表单名称提交
  o.Click;  //点击操作，对其它对象也可同样操作
}
end;