[Помогите!] Авторизация в DO через Delphi

KompliviT · 21.04.2014, 15:41

Форумчане, умеющие кодить, прошу вас помочь мне с авторизацией

Цитата:


	1 procedure TForm1.Button1Click(Sender: TObject); 2 begin 3 webbrowser1.Navigate('http://www.darkorbit.com/'); 4 end; 5 6 procedure TForm1.Button2Click(Sender: TObject); 7 var 8 i:integer; 9 s:string; 10 html_tag: variant; 11 begin 12 html_tag:=WebBrowser1.OleObject.Document.forms.ite m(0).elements; 13 for i:=0 to (html_tag.length-1) do 14 begin 15 if (html_tag.item(i).name='username') then 16 html_tag.item(i).value:='*****'; 17 18 if (html_tag.item(i).name='password') then 19 html_tag.item(i).value:='*****' ; 20 21 if (html_tag.item(i).value='Вход') then 22 html_tag.item(i).click; 23 24 end; 25 26 end;

Но при открытии странички в программе
Она НЕ заполняет поля логина и пароля

В чём мб проблема?

Или лучше подскажите, как пройти авторизацию

porkur666 · 21.04.2014, 19:34

Цитата:


	Кодер из меня как из тебя балерина но на фига энд 2 раза ? прошу тапками не кидать

Присмотрись, 2 начало значит аналогично 2 конца:
11 begin
12 html_tag:=WebBrowser1.OleObject.Document.forms.ite m(0).elements;
13 for i:=0 to (html_tag.length-1) do
14 begin
15 if (html_tag.item(i).name='username') then
16 html_tag.item(i).value:='*******';
17
18 if (html_tag.item(i).name='*******') then
19 html_tag.item(i).value:='e12A379F184ea1G5' ;
20
21 if (html_tag.item(i).value='Вход') then
22 html_tag.item(i).click;
23
24 end;
25
26 end;

Теперь по теме, автор! Почему ты if не закрываешь?

metraz · 22.04.2014, 02:06

Цитата:

Сообщение от KompliviT


	Форумчане, умеющие кодить, прошу вас помочь мне с авторизацией Но при открытии странички в программе Она НЕ заполняет поля логина и пароля В чём мб проблема? Или лучше подскажите, как пройти авторизацию

А не проще ли через индейца? Все равно выковыривать данные из твеббраузера будет достаточно проблемно.

KompliviT · 22.04.2014, 19:31

Цитата:


	Теперь по теме, автор! Почему ты if не закрываешь?

а зачем?
у меня все if'ы заключены в одном begin/end
т.е. они все заключены в одной функции

Цитата:


	А не проще ли через индейца? Все равно выковыривать данные из твеббраузера будет достаточно проблемно.

што есть индеец?)
Я просто новичёк в коддинге))

porkur666 · 22.04.2014, 19:39

Цитата:


	што есть индеец?) Я просто новичёк в коддинге))

он наверное говорит о indy

metraz · 22.04.2014, 20:12

Цитата:


	он наверное говорит о indy

Именно о нем, а потом уже из стринговых данных искать всю инфу. Авторизация произойдет куда быстрее, чем способом, указанным тобой.

porkur666 · 22.04.2014, 22:42

Интересно, автор, зачем ты делаешь авторизацию через ВебБраузер?? Нежели клиент делаешь? Не легче же post запрос отправить на авторизацию, выдернуть dosid с ответа, а потом уже ориентироваться?)))

KompliviT · 24.04.2014, 01:37

Цитата:


	Не легче же post запрос отправить на авторизацию,

Спасибо)
Разобрался не много в гет/пост запросах
теперь вопрос
[Ссылки могут видеть только зарегистрированные пользователи. ]
Вот такоую картину я наблюдаю, что в поле Вход нет никакого значения
И возникает вопрос
Что написать в delhi ?

Цитата:


	procedure TForm1.btn1Click(Sender: TObject); var post:tstringlist; result: string; begin post:=TStringList.Create; idhtp1.HandleRedirects:=True; try post.add ('username=nord70'); post.add ('password=nord'); post.add ('=Вход'); result:=idhtp1.Post ('http://darkorbit.com', post); if Pos ('action=externalLogout',result)>0 then MessageDlg('Да', mtinformation, [mbOK],1) else MessageDlg('Нет', mtinformation, [mbOK],0) except post.Free; end; end;

[Ссылки могут видеть только зарегистрированные пользователи. ]

Так что ли?
(хотя такой вариант не работает)

П.С. значения имени и пароля в коде и аналайзере разные!!!

KIIL · 24.04.2014, 10:40

Цитата:

Сообщение от KompliviT


	Спасибо) Разобрался не много в гет/пост запросах теперь вопрос [Ссылки могут видеть только зарегистрированные пользователи. ] Вот такоую картину я наблюдаю, что в поле Вход нет никакого значения И возникает вопрос Что написать в delhi ? [Ссылки могут видеть только зарегистрированные пользователи. ] Так что ли? (хотя такой вариант не работает) П.С. значения имени и пароля в коде и аналайзере разные!!!

О боже, уйди и не позорься

там помимо POST нужно ГЕТ, тоесть не сюда отправлять запрос <http://darkorbit.com>, а сюда <https://auth3.bpsecure.com/Sas/Authentication/Bigpoint?authUser=22&token=**********>, я подозреваю что для начала надо зайти на darkorbit.com и спарсить <token>. Точно не знаю, ради такого *****кодера я не буду проверять, но уверен что это будет именно так
---------

Цитата:


	post.add ('=Вход');

да это нахрен не нужно!
---------
И вообще программирование это не твое! завязывай и удали тему, пока тебя все еще не засмеяли!

Цитата:


	В чём мб проблема?

Скорее всего, проблема в голове, которая рукам покоя не дает.

metraz · 24.04.2014, 11:18

Цитата:

Сообщение от KIIL


	О боже, уйди и не позорься там помимо POST нужно ГЕТ, тоесть не сюда отправлять запрос <http://darkorbit.com>, а сюда <https://auth3.bpsecure.com/Sas/Authentication/Bigpoint?authUser=22&token=********>, я подозреваю что для начала надо зайти на darkorbit.com и спарсить <token>. Точно не знаю, ради такого *кодера я не буду проверять, но уверен что это будет именно так --------- да это нахрен не нужно! --------- И вообще программирование это не твое! завязывай и удали тему, пока тебя все еще не засмеяли!** Скорее всего, проблема в голове, которая рукам покоя не дает.

Ты чего на парня то набросился? Он же только учится. Приду вечером, попробую глянуть что там к чему.

KIIL · 24.04.2014, 11:21

Цитата:

Сообщение от metraz


	Ты чего на парня то набросился? Он же только учится. Приду вечером, попробую глянуть что там к чему.

он не учится, он балуется! Что по твоему он пытается написать, если не может сам додуматься как пройти авторизацию? Или авторизация это и есть вся задумка программы

?

ахах, а можно популярность округлить к примеру до <-1000>, так прикольнее будет смотреться

KompliviT · 24.04.2014, 12:42

Цитата:

Сообщение от KIIL


	О боже, уйди и не позорься там помимо POST нужно ГЕТ, тоесть не сюда отправлять запрос <http://darkorbit.com>, а сюда <https://auth3.bpsecure.com/Sas/Authentication/Bigpoint?authUser=22&token=********>, я подозреваю что для начала надо зайти на darkorbit.com и спарсить <token>. Точно не знаю, ради такого *кодера я не буду проверять, но уверен что это будет именно так --------- да это нахрен не нужно! --------- И вообще программирование это не твое! завязывай и удали тему, пока тебя все еще не засмеяли!** Скорее всего, проблема в голове, которая рукам покоя не дает.

Ммм
Ты с момента, как только открыл первый раз Delhi был трушным кодером и и начал писать основы всего софта Microsoft'a?
Я бы на твоём месте вместо того, что бы вы********я, помог бы лучше, ибо МОИ знания ограничиваются 12 часовой обучалке делфи, в которой рассказывают, что такое переменные и массивы, разбирают несколько компонентов, и показывают примеры написания некоторых наипростейших программ. И что касаемо этой темы, только вчера я нашёл 1 видеоурок по POST запросам, в котором объяснялся пример авторизации только через POST.

Цитата:


	Ты чего на парня то набросился? Он же только учится. Приду вечером, попробую глянуть что там к чему.

Спасибо)
Буду ждать)

малина · 24.04.2014, 15:07

Компливит,не обращай внимания на человека двум сообщениями выше,обычный провокатор,такие на форуме быстро уходят в бан!)
Удачи в усвоении языка

KIIL · 24.04.2014, 15:49

Цитата:

Сообщение от KompliviT


	Ммм Ты с момента, как только открыл первый раз Delhi был трушным кодером и и начал писать основы всего софта Microsoft'a? Я бы на твоём месте вместо того, что бы вы********я, помог бы лучше, ибо МОИ знания ограничиваются 12 часовой обучалке делфи, в которой рассказывают, что такое переменные и массивы, разбирают несколько компонентов, и показывают примеры написания некоторых наипростейших программ. И что касаемо этой темы, только вчера я нашёл 1 видеоурок по POST запросам, в котором объяснялся пример авторизации только через POST. Спасибо) Буду ждать)

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

!

Цитата:

Сообщение от малина


	Компливит,не обращай внимания на человека двум сообщениями выше,обычный провокатор,такие на форуме быстро уходят в бан!) Удачи в усвоении языка

Это было не провокацией, а таким своеобразным троллом, поверьте на форумах программистов его бы до смерти затролили))

metraz · 24.04.2014, 18:41

Значит так. Я посмотрел авторизацию.
1. Надо парсить token с главной, находится он в строке

Цитата:


	<form name="bgcdw_login_form" method="post" class="bgcdw_login_form" action="https://auth3.bpsecure.com/Sas/Authentication/Bigpoint?authUser=22&token=

2. В пост запросе всего две строки: логин и пароль.
3. Так как отправляется запрос по той же ссылке, что и в пункте 1, то скорее всего нужно будет подключить ssl(о подключении ssl вроде была статья в разделе программирования).
Ах да, не забудь включить редиректы(http.HandleRedirects:=true). Поскольку дальше они есть(начиная с пост запроса), они и выводят на аккаунт, так что возможно гет запросы никакие и не понадобятся больше, но я точно не уверен, надо смотреть подробнее.