14.10.2010, 19:08
|
|
Активный
|
|
Регистрация: 12.09.2008
Сообщения: 275
Репутация: 43
|
|
Ф-Я для поиска сокета, а то IdHTTP его не добавляет придется его найти и вручную добавить
Код:
function GetCookie(S: String): String;
var
I: Integer;
begin
Result := '';
I:= Pos('SEPAPSQE', S);
if I > 0 then
begin
Delete(S, 1, I-1);
I:= Pos(';', S);
Result := Copy(S, 1, I);
end;
end;
Шаг первый
Код:
S:= IdHTTP1.Get('http://neverlands.ru/'); //гет запрос для получения сокета
IdHTTP1.CookieManager.AddCookie(GetCookie(IdHTTP1.Response.RawHeaders.Text), 'neverlands.ru'); // добавляем сокет
IdHTTP1.Request.Referer:= 'http://neverlands.ru/';
Data:= TStringList.Create;
Data.Add('player_nick=***'); //указать логин
Data.Add('=Пароль'); //это не меняем
Data.Add('player_password=***'); //указать пароль
S:= IdHTTP1.Post('http://neverlands.ru/game.php', Data);
Data.Free;
Шаг второй
Код:
IdHTTP1.Request.Referer:='http://neverlands.ru/swf/flashpass.swf';
Data:= TStringList.Create;
Data.Add('flcheck=*****'); //указать второй пароль
Data.Add('nid=*****'); //указать то что мы искали в ответе, по ходу дела это значение не меняется
S:= IdHTTP1.Post('http://neverlands.ru/game.php', Data);
Data.Free;
S:= IdHTTP1.Get('http://neverlands.ru/main.php');
Вся петрушка в том, что IdHTTP автоматом не добавлял сокет
|