|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
авторизация на lostfilm.tv
Не подскажете в чем проблема?
вот сама авторизация проходит нормально Код:
procedure TForm1.Button4Click(Sender: TObject); var st: TStringList; s: string; begin st:=TStringList.Create; st.Add('login=Ashot8636@yandex.ru'); st.Add('password=666333'); st.Add('module=1'); st.Add('target=http://lostfilm.tv/'); st.Add('repage=user'); st.Add('act=login'); //idhttp1.get('http://www.lostfilm.tv'); s:=idhttp1.Post('http://login.bogi.ru/login.php?referer=http%3A%2F%2Fwww.lostfilm.tv%2F',st); if pos('Не удалось',s)>0 then ShowMessage('Fail!') else ShowMessage('Succesful!'); st.Free; end; P.S. логин для пример рабочий |