怎么用WebBrowser自动登陆网站？（在线等待，解决立即给分）

Question

如题，在用WebBrowser打开一个登陆页面后，怎么实现自动登陆，然后显示登陆后的页面。最好不要显示登陆页面，WebBrowser显示的出来的时候就已经是登陆好的页面，感觉就是自动登陆了！有没有办法呢？我用TIdHttp可以登陆，但是我要显示页面到WebBrowser啊！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  SList: TStringList;
  PostStr: String;
  i: Integer;
  PostData,Headers: OleVariant;
begin
  SList := TStringList.Create;
  try
    SList.Add('http://community.csdn.net/expert/forum.asp');
    PostStr := 'login_name=' + EditUserName.Text;
    PostStr := PostStr + '&password=' + EditPassword.Text;    Headers := 'Content-Type: application/x-www-form-urlencoded'+ #10#13;
    PostData := VarArrayCreate([0, Length(PostStr)-1], varByte);
    for i := 0 to Length(PostStr)-1 do begin
      PostData[i] := Ord(PostStr[i+1]);
    end;
    WebBrowser1.Navigate(SList.Strings[0],EmptyParam,EmptyParam,PostData,Headers);
  finally
    SList.Free;
  end;
end;（注：在EditUserName.Text和EditPassword.Text中
　　　録入NI在CSDN的Username和Password就会進入"欢迎您：liwenqiu_2001 "）