登录值传给网站?使得网站自动登录! 以下是小弟自己查资料写的。post值了,也找到Cookie了。但不知道让网站登录呢
实在不懂了。求助与各位高手帮忙!
提提建议,有做过的能够留下写代码最好了
谢谢!!procedure TfrmLogin.AutoPost(Sender: TObject);    //网站自动登录
var
  UserName,UserPW:String;
  PostURL,Params :String;
  Cookie,MyCookList    : string;
  i : Integer;
  Request    : TStringlist;
  Response : TStringStream;
begin
  try
    HTTP := TIdHTTP.Create(nil);
    Request := TStringList.Create;
    Response := TStringStream.Create('');
    UserName:=cbUserName.Text ;
    UserPW:=edtPassword.Text ;
    PostURL := 'http://192.168.1.105/bbs/login.asp?userpass='+UserPW; {提交网址}
    Params  := 'username='+name; {提交参数}
    Request.Clear;
    Request.Add(Params);
    HTTP.Request.ContentType := 'application/x-www-form-urlencoded'; 
    try
      HTTP.Post(PostURL,Request,Response);   {提交}
    except
      showmessage('发送失败');
      exit;
    end;
    for   i   :=0   to   HTTP.Response.RawHeaders.Count-1   do
    begin
      if   UpperCase(Copy(HTTP.Response.RawHeaders[i],1,10)) = 'SET-COOKIE' then
      begin
        Cookie   :=Trim(Copy(HTTP.Response.RawHeaders[i],12,MAXINT));
        Cookie   :=Copy(Cookie,1,Pos(';',Cookie));
        MyCookList   :=MyCookList+Cookie;
      end;
   end;   
     HTTP.Request.RawHeaders.Add('Cookie:   '+MyCookList);    
  finally
    HTTP.Free;
    Request.Free;
    Response.Free;
  end;   
end;