TwebBrowser问题

Question

怎么用twebbrowser控件实现用户登陆，比如：
    我想自动登陆我sohu的邮箱该怎么做？
    当然我想实现的不只是sohu邮箱的登陆，要求通用性，多谢各位。

Answer 1

我以前查过这个方面的资料，但是通用型不太高，就是直接向该页面发送HTTP命令，具体什么的也没有人说过。

Answer 2

procedure TForm1.Button2Click(Sender: TObject);
var
   o : Olevariant;
begin
  webbrowser1.Navigate('http://www.163.com');
  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;
其他的都差不多，主要是登陆文本框的名称不一样