登录值传给网站?使得网站自动登录! 以下是小弟自己查资料写的。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;
实在不懂了。求助与各位高手帮忙!
提提建议,有做过的能够留下写代码最好了
谢谢!!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;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货