![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
|
Здравствуйте, все кто посетил эту тему!
Устал ломать голову от этой проблемы, да и в интернете нашел одну тему на этом же форуме, да вот никто не помог, но в той теме мало информации давалось! Прошу помочь, так как очень интересно почему не получается авторизоваться на таком сайте как letitbit. Вобщем, перейду к делу, есть код: Код:
var HTTP: TIdHTTP;
CM: TIdCookieManager;
List: TStringList;
PostData: String;
begin
HTTP:=TIdHTTP.Create(nil);
CM:=TIdCookieManager.Create(nil);
HTTP.HandleRedirects:=true;
HTTP.AllowCookies:=true;
HTTP.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.3';
HTTP.CookieManager:=CM;
HTTP.Request.Referer:='http://lib.wm-panel.com/wm-panel/user/signin';
List:=TStringList.Create;
try
List.Add('log=***');
List.Add('pas=***');
List.Add('inout=');
PostData:=HTTP.Post('http://lib.wm-panel.com/wm-panel/user/signin', List);
RichEdit1.Text:=HTTP.Get('http://lib.wm-panel.com/wm-panel/Stats');
finally
List.Free;
HTTP.Free;
end;Цитата:
Цитата:
Помогите разобраться с этой задачей! |