[smilique]

Есть проблема с Indy HTTP
надо залогиниться на сайтег

Код:

1 2 3 4

tst:= TStringList.Create; tst.Add('nick=***'); tst.Add('password=*'); s:=IdHTTP1.Post('урл',tst);

тут всё впорядке, выдаётся правильная страница, на которой нужно ввести дополнительный пароль
ввожу дополнительный пароль

Код:

1 2 3

tst.Clear; tst.Add('check=***'); s:=IdHTTP1.Post('урл',tst);

Admin: Пользуемся тегами!

и в ответ приходит уже первая страница с сообщением о том, что надо бы ввести логин и пароль

в чём тут фишка, куки не работают чтоли?

[lmikle]

Ага, именно они. Еще проверить referal не помешает.

[smilique]

Куки включены и менеджер подключен:

Код:

1 2	IdHTTP1.AllowCookies:=True; IdHTTP1.CookieManager:=IdCookieManager1;

А где насчёт referal смотреть?

[lmikle]

в запросе указывается с какой страницы происходит вызов.
соответсвенно, тебе надо это указать.

Если мне не изменяет память, то просто надо в момент вызова добавить этот refer в заголовок запроса.

[smilique]

Если это такая вот штука:

Код:

1	IdHTTP1.Request.Referer:='урл';

то не работает

[lmikle]

ну еще проверь, что никаких скрытых полей на форме нет. Если есть, то надо передавать значения и для них.

[smilique]

не нету, да там запросов других не идёт, я смотрел

там флеш, на нём пароль набирается, я чарльзом выловил запрос с паролем, но его не принимает, даже попробовал в хроме через гет ввести этот второй пароль - не катит.
значит не в куки проблема
значит наверное каким-то образом надо вводить пароль на флеше...

[pesi]

ссылку можно посмотреть

[smilique]

http://neverlands.ru

[pesi]

1. Попробуй сначала гет запрос на http://neverlands.ru/
2. Добавить

Код:

1	idhttp1.Request.Referer:= 'http://neverlands.ru/';

3. Пост запрос

Код:

1 2 3 4 5

data:= TStringList.Create; data.Add('player_nick=***'); //указать логин data.Add('=Пароль'); //это не меняем data.Add('player_password=***'); //указать пароль s:= IdHTTP1.Post('http://neverlands.ru/game.php', data);

надо сделать поиск по ответу для проверки корректности логина и пароля

Код:

1 2	if Pos('Неверный логин или пароль', S)>0 then ShowMessage('Неверный логин или пароль!')

[smilique]

Авторизация логин\пароль всегда проходит, не получается ввод флеш пароля, после которого вылетает на главную с ошибкой:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

IdHTTP1.Get('http://neverlands.ru/'); idhttp1.Request.Referer:= 'http://neverlands.ru/'; tst:= TStringList.Create; tst.Add('player_nick=***'); tst.Add('=Пароль'); tst.Add('player_password=***'); s:=IdHTTP1.Post('http://neverlands.ru/game.php',tst); ShowMessage(s); //тут получаю код страницы с флеш вводилкой пароля tst.Clear; Memo1.Clear; IdHTTP1.Request.Referer:='http://neverlands.ru/game.php'; tst.Add('flcheck=***'); tst.Add('nid=***'); s:=IdHTTP1.Post('http://neverlands.ru/game.php',tst); ShowMessage(s); // а тут уже ошибку

т.е. главные логин и пароль не при чём какбы

[pesi]

При отпраке первого пароля получаем ответ, в ответе нужно найти значение <param name="flashvars" value="plid=2063100"> а точнее нужно то что идет после plid= в моем случаи это 2063100

Код:

1 2 3 4 5

IdHTTP1.Request.Referer:='http://neverlands.ru/swf/flashpass.swf'; data.Clear; data.Add('nid=***'); //указать то что мы искали в ответе data.Add('flcheck=***'); //указать второй пароль s:= IdHTTP1.Post('http://neverlands.ru/game.php', data);

[smilique]

Исправил реферрер, исправил очерёдность nid и flcheck, значения правильные, всё равно не работает

Что еще может быть неправильно с моей стороны?

[pesi]

Ф-Я для поиска сокета, а то IdHTTP его не добавляет придется его найти и вручную добавить

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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;

Шаг первый

Код:

1 2 3 4 5 6 7 8 9

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;

Шаг второй

Код:

1 2 3 4 5 6 7

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 автоматом не добавлял сокет