Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация

Ответ
 
Опции темы
Старый 21.04.2014, 16:41   #1
 Разведчик
Аватар для KompliviT
 
KompliviT никому не известный тип
Регистрация: 16.04.2014
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
Exclamation Авторизация в DO через Delphi

Форумчане, умеющие кодить, прошу вас помочь мне с авторизацией
Цитата:
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;

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

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

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

Последний раз редактировалось KompliviT; 22.04.2014 в 02:38.
  Ответить с цитированием
Старый 21.04.2014, 20:34   #2
 Разведчик
Аватар для porkur666
 
porkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нации
Регистрация: 09.01.2011
Сообщений: 29
Популярность: 2996
Сказал(а) спасибо: 3
Поблагодарили 59 раз(а) в 24 сообщениях
Отправить сообщение для porkur666 с помощью Skype™
 
По умолчанию Re: Авторизация в DO через Delphi

Цитата:
Кодер из меня как из тебя балерина но на фига энд 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 не закрываешь?
  Ответить с цитированием
Старый 22.04.2014, 03:06   #3
 Старший сержант
Аватар для metraz
 
metraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядом
Регистрация: 25.12.2011
Сообщений: 191
Популярность: 5259
Сказал(а) спасибо: 31
Поблагодарили 235 раз(а) в 135 сообщениях
Отправить сообщение для metraz с помощью Skype™
 
По умолчанию Re: Авторизация в DO через Delphi

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


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

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

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

А не проще ли через индейца? Все равно выковыривать данные из твеббраузера будет достаточно проблемно.
  Ответить с цитированием
Старый 22.04.2014, 20:31   #4
 Разведчик
Аватар для KompliviT
 
KompliviT никому не известный тип
Регистрация: 16.04.2014
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Авторизация в DO через Delphi

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

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

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

што есть индеец?)
Я просто новичёк в коддинге))
  Ответить с цитированием
Старый 22.04.2014, 20:39   #5
 Разведчик
Аватар для porkur666
 
porkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нации
Регистрация: 09.01.2011
Сообщений: 29
Популярность: 2996
Сказал(а) спасибо: 3
Поблагодарили 59 раз(а) в 24 сообщениях
Отправить сообщение для porkur666 с помощью Skype™
 
По умолчанию Re: Авторизация в DO через Delphi

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

он наверное говорит о indy
  Ответить с цитированием
Старый 22.04.2014, 21:12   #6
 Старший сержант
Аватар для metraz
 
metraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядом
Регистрация: 25.12.2011
Сообщений: 191
Популярность: 5259
Сказал(а) спасибо: 31
Поблагодарили 235 раз(а) в 135 сообщениях
Отправить сообщение для metraz с помощью Skype™
 
По умолчанию Re: Авторизация в DO через Delphi

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

Именно о нем, а потом уже из стринговых данных искать всю инфу. Авторизация произойдет куда быстрее, чем способом, указанным тобой.
  Ответить с цитированием
Старый 22.04.2014, 23:42   #7
 Разведчик
Аватар для porkur666
 
porkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нацииporkur666 гордость нации
Регистрация: 09.01.2011
Сообщений: 29
Популярность: 2996
Сказал(а) спасибо: 3
Поблагодарили 59 раз(а) в 24 сообщениях
Отправить сообщение для porkur666 с помощью Skype™
 
По умолчанию Re: Авторизация в DO через Delphi

Интересно, автор, зачем ты делаешь авторизацию через ВебБраузер?? Нежели клиент делаешь? Не легче же post запрос отправить на авторизацию, выдернуть dosid с ответа, а потом уже ориентироваться?)))
  Ответить с цитированием
Старый 24.04.2014, 02:37   #8
 Разведчик
Аватар для KompliviT
 
KompliviT никому не известный тип
Регистрация: 16.04.2014
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Авторизация в DO через Delphi

Цитата:
Не легче же 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;

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

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

П.С. значения имени и пароля в коде и аналайзере разные!!!
  Ответить с цитированием
Старый 24.04.2014, 11:40   #9
 Разведчик
Аватар для KIIL
 
KIIL неизвестен в этих краяхKIIL неизвестен в этих краяхKIIL неизвестен в этих краях
Регистрация: 06.11.2011
Сообщений: 1
Популярность: -299
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Авторизация в DO через Delphi

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



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

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

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

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

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

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

Последний раз редактировалось KIIL; 24.04.2014 в 12:00.
  Ответить с цитированием
Старый 24.04.2014, 12:18   #10
 Старший сержант
Аватар для metraz
 
metraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядом
Регистрация: 25.12.2011
Сообщений: 191
Популярность: 5259
Сказал(а) спасибо: 31
Поблагодарили 235 раз(а) в 135 сообщениях
Отправить сообщение для metraz с помощью Skype™
 
По умолчанию Re: Авторизация в DO через Delphi

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

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

Ты чего на парня то набросился? Он же только учится. Приду вечером, попробую глянуть что там к чему.
  Ответить с цитированием
Старый 24.04.2014, 12:21   #11
 Разведчик
Аватар для KIIL
 
KIIL неизвестен в этих краяхKIIL неизвестен в этих краяхKIIL неизвестен в этих краях
Регистрация: 06.11.2011
Сообщений: 1
Популярность: -299
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Авторизация в DO через Delphi

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

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

Последний раз редактировалось KIIL; 24.04.2014 в 12:43.
  Ответить с цитированием
Старый 24.04.2014, 13:42   #12
 Разведчик
Аватар для KompliviT
 
KompliviT никому не известный тип
Регистрация: 16.04.2014
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Авторизация в DO через Delphi

Цитата:
Сообщение от 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, 16:07   #13
 Разведчик
Аватар для малина
 
малина у всех на слухумалина у всех на слухумалина у всех на слухумалина у всех на слухумалина у всех на слухумалина у всех на слухумалина у всех на слухумалина у всех на слухумалина у всех на слухумалина у всех на слуху
Регистрация: 20.03.2011
Сообщений: 20
Популярность: 1466
Сказал(а) спасибо: 427
Поблагодарили 57 раз(а) в 42 сообщениях
 
По умолчанию Re: Авторизация в DO через Delphi

Компливит,не обращай внимания на человека двум сообщениями выше,обычный провокатор,такие на форуме быстро уходят в бан!)
Удачи в усвоении языка
________________
Фарм кредитов WoT
http://zhyk.ru/forum/showthread.php?t=880081
  Ответить с цитированием
Старый 24.04.2014, 16:49   #14
 Разведчик
Аватар для KIIL
 
KIIL неизвестен в этих краяхKIIL неизвестен в этих краяхKIIL неизвестен в этих краях
Регистрация: 06.11.2011
Сообщений: 1
Популярность: -299
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Авторизация в DO через Delphi

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


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

Я хоть грубо, но помог, чего не понятного то из моего поста? в общем то я так и понял что вы по видеоурокам с delphi знакомитесь, а надо книжки читать!
Цитата:
Сообщение от малинаПосмотреть сообщение
Компливит,не обращай внимания на человека двум сообщениями выше,обычный провокатор,такие на форуме быстро уходят в бан!)
Удачи в усвоении языка

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

Последний раз редактировалось KIIL; 24.04.2014 в 16:54.
  Ответить с цитированием
Старый 24.04.2014, 19:41   #15
 Старший сержант
Аватар для metraz
 
metraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядомmetraz в состоянии испепелить взглядом
Регистрация: 25.12.2011
Сообщений: 191
Популярность: 5259
Сказал(а) спасибо: 31
Поблагодарили 235 раз(а) в 135 сообщениях
Отправить сообщение для metraz с помощью Skype™
 
По умолчанию Re: Авторизация в DO через Delphi

Значит так. Я посмотрел авторизацию.
1. Надо парсить token с главной, находится он в строке
Цитата:
<form name="bgcdw_login_form" method="post" class="bgcdw_login_form" action="https://auth3.bpsecure.com/Sas/Authentication/Bigpoint?authUser=22&amp;token=

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

Последний раз редактировалось metraz; 24.04.2014 в 19:43.
  Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Руководство] Настраиваем Delphi 2010/XE, чтобы она выглядела как Delphi 7 RifmoGlas Pascal/Delphi 2 09.02.2013 14:09
[Помогите!] Ищу Человека который мне поможеть писать программы через Delphi(НеБесплатно!!) DedicatedServe Вопросы и ответы, обсуждения 2 04.12.2012 21:36
[Помогите!] Авторизация в ДО на delphi qwert-yg Вопросы и ответы, обсуждения 5 19.03.2012 17:55
[Информация] Помощь в Delphi 7 и в других версиях Delphi Babls77 Pascal/Delphi 4 03.11.2011 22:27

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 14:20.

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net