Не получается авторизация на бетсити.ком Delphi HTML: var ts:tstringlist; s:string; begin idhttp1.AllowCookies:=true; idhttp1.HandleRedirects:=true; ts:=tstringlist.Create; ts.add('login=g 6779395'); ts.add('pass=858578'); ts.add('x=4'); ts.add('y=6'); s:=idhttp1.Post('http://betcityru.com/top.php',ts); if pos('История счёта',s)<>0 then showmessage('Зашло') else showmessage ('НЕ Зашло'); end;
Там https и еще 1-го параметра не хватает. Code: var ts:tstringlist; s:string; begin idhttp1.AllowCookies:=true; idhttp1.HandleRedirects:=true; ts:=tstringlist.Create; ts.add('login=g 6779395'); ts.add('pass=858578'); ts.add('x=4'); ts.add('y=6'); ts.add('https=1'); s:=idhttp1.Post('https://betcityru.com/top.php',ts); if pos('История счёта',s)<>0 then showmessage('Зашло') else showmessage ('НЕ Зашло'); end;
а точно ли не получается? или программа выводит сообщение, что не получилось? если сниффер показывает, что все ок, то скорее всего проблема в кодировке ответа. Получите ответ в TStringStream, а потом в нем уже и проверите как-то так: Code: idhttp1.Post('http://betcityru.com/top.php',ts,res); s:=res.DataString;
я весь код страницы в мемо получил, сравнил с тем который должен быть, не совпадают => не авторизовалось. пробовал также на мобильной версии. сейчас попробую способ данный выше.
так тоже не работает, https получается т.к вы галочку поставили на безопасном соединении на сайте, если убрать галочку то не будет доп. параметра. вобщем не получается((
там при входе на сайт целая пачка кукисов записывается. поэтому стоит попробовать прежде, чем логинится, зайти на главную страничку, посмотреть какие куки установятся, а недостающие спарсить и добавить самому Code: Cookie Name Value PSF 39c969963fd9f1c80de4231c9f8808ff cud bUlDSU7wq8 paFdcBMZrAg== __utma 14835749.1595305069.1324395473.1324395473.1324395473.1 __utmb 14835749.2.10.1324395473 __utmc 14835749 __utmz 14835749.1324395473.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none) bk 1 b b cuid V 2N k7wq9EAAFHwAwQQAg== PHPSESSID 3b558a532de2a937920f69c1d8115632
или через кукиманагер или Code: HTTP.Request.CustomHeaders.Add('Cookie: PHPSESSID=p65r0o78ofv5vb6r80fa6fv8q2;') если много пар имя=значение в 1 строку записывать, то записываются через точку с запятой
1) гууугле.ком => найдется всё я к чему, если начну описывать, то возникнет куча вопросов: что такое TidUri, что в него надо записать, чтобы добавить куки сервера и т.д. поэтому чтобы их не возникало см. п.1