Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Сети
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
sdim2016
0 / 0 / 0
Регистрация: 05.01.2012
Сообщений: 7
1

Не получается зарегистрироваться на сайте (Idhttp)

15.05.2013, 16:04. Просмотров 749. Ответов 1
Метки нет (Все метки)

С indy я практически не знаком, но возникла необходимость написать программу, которая регистрируется на сайте.
Нам необходимо узнать у пользователя 4 параметра:
1. ФИО
2. мэил
3. Капча
4. спец. код
Сниф выдал мне следующ. Post Data:
HTML5
1
2
3
4
5
6
mode=register_word                                                              
fio=ФИО                                              
email=мэил                                                           
word=CHIPMM5DRWTHY //это и есть Edit4.Text. Никогда не меняется.                                                              
cappub=b9aea638b9aede956857db0fd128b019ee48ff2b_55a9aa49c7898fbd2bd127b6317ca638 //(каждый раз разный, я его обозвал uniq_id. 32+1+32 символа, я его спокойно получаю через код под * ниже) 
captext=421103 //это капча :)
*
Delphi
1
2
 S:=IdHTTP1.Get('http://www.drweb.com/press/chip/');
 uniq_id:=Copy(S, Pos('<input type="hidden" value="', S)+28, 65);
Вроде всё легко... да вот что-то не получается у меня.
после того, как загрузил капчу по нажатию на Button1 и ввёл данные, перехожу непоредственно к отправке этих данных на сервер.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.Button2Click(Sender: TObject);
var Data:TStringList;
begin
  idhttp1.Request.Referer:='http://www.drweb.com/press/chip/';
  idhttp1.Request.ContentType:='application/x-www-form-urlencoded';
  idhttp1.Request.CacheControl:='max-age=0';
  idhttp1.Request.Connection:='Keep-Alive';
  idhttp1.Request.Host:='www.drweb.com';
  idhttp1.Request.AcceptLanguage:='ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4';
  idhttp1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
  IdHTTP1.Request.UserAgent:='Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.2.15 Version/10.00';
  IdHTTP1.Request.AcceptEncoding:='deflate, gzip, x-gzip, identity, *;q=0';
  IdHTTP1.Request.Method:=hmPost;
Data:=TStringList.Create;
 Data.Add('mode=register_word');
 Data.Add('fio='+Edit1.Text);
 Data.Add('email='+Edit2.Text);
 Data.Add('word='+Edit4.Text);
 Data.Add('cappub='+uniq_id);
 Data.Add('captext='+Edit3.Text);
 S:=IdHTTP1.Post('http://www.drweb.com/press/chip/', Data);
end;
и тут проблема. Просто ничего не происходит. Снифф показал, что от программы post'ов не исходит. После повторного нажатия на кнопку выходит какой-то GET, в котором содержится postdata, которые я записывал в список Data. Помогите, пожалуйста. Как мне заставить всё работать?
п.с. не смотрите на то что это сайт др.веба. ) ни для чего плохого (авторегистрации и т.д.) программа использоваться не будет.

Добавлено через 16 часов 47 минут
исправил код, теперь POST спокойно отправляется... но проблема возникла другая.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button2Click(Sender: TObject);
var Data:TStringList;
begin
idHttp1.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.3';
idHttp1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
Data:=TStringList.Create;
 Data.Add('mode=register_word');
 Data.Add('fio='+Edit1.Text);
 Data.Add('email='+Edit2.Text);
 Data.Add('word='+Edit4.Text);
 Data.Add('cappub='+uniq_id);
 Data.Add('captext='+Edit3.Text);
 S:=IdHTTP1.Post('http://www.drweb.com/press/chip/', Data);
end;
вот что мне возвращается:
HTML5
1
<div class="error" >Неверно заполнена форма.<br/>Проверьте влючен ли в браузере javascript.</div>
каким образом можно исполнить javascript с использованием тех данных, которые я отправил POST'ом? или как это реализовать вообще? что-то у меня возникают подозрения, что indy с javascript'ом не дружит... Подскажите, пожалуйста возможно ли реализовать такую регистрацию через Indy, если да то как, а если нет, то как можно сделать по-другому?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.05.2013, 16:04
Ответы с готовыми решениями:

Авторизация на сайте с помощью IDHTTP
var st: string; LoginData:Tstringlist; begin LoginData :=...

Авторизация на сайте idhttp + https. 404?
Всем привет. Помогите пройти авторизацию на сайте через ssl, i/o handler -...

Не получается отправить GET запрос IdHTTP
На некоторые сайты он отправляется. А точнее на мой сайт(проверяю ip на сайте и...

IdHTTP и IdHTTP сервер: как отправить сообщение от сервера к клиенту?
Всем привет, отправляю файл по частям с клиента на сервер, и хочу получать...

Не получается заполнить форму на сайте.
Здравствуйте.Возникла проблема во время заполнения формы на сайте. Комбинация...

1
Rurr
22 / 22 / 11
Регистрация: 12.01.2013
Сообщений: 223
04.06.2013, 02:28 2
выполнить скрипт средствами инди не получится. юзай что делает скрипт и пробуй емулировать его работу в делфи
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.06.2013, 02:28

idhttp и переход по сайтам idhttp и переход по ссылкам idhttp и переход по ссылкам
Всем привет! У меня такая ситуация: При помощи idhttp авторизуюсь на сайте,...

Невозможно зарегистрироваться на сайте
Доброго времени суток! Всех с прошедшими праздниками! Проблема заключается в...

Как программно зарегистрироваться на сайте
Доброго времени суток, дорогие друзья, и так: Как программно...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru