提交表单 转

使用WebBrowser提交表单

procedure TForm1.Button1Click(Sender: TObject);
var  
o : Olevariant;
begin  
  webbrowser1.Navigate('http://www.163.com');   
  delay(2000); 
  o :=   WebBrowser1.OleObject.document.all.item('username',0);
  o.value := 'username';  
  o := WebBrowser1.oleobject.document.all.item('Password',0);  
  o.value := 'password';  
  o :=WebBrowser1.oleobject.document.all.item('login',0);  
  o.Click;
end;