[Статья] Авторизация дарк орбит(Рабочая)

[[Na`Vi]DendI]

Авторизация Дарк Орбит с отдельной функцией парса

var ssylka,page,pars1,pars2: String;  //объявляем переменные
    data: TstringList;

begin
ssylka:='http://www.darkorbit.ru/?locale=ru&aid=0'; //ссылка авторизации
data:=TstringList.Create; //создаем список
data.Add('loginForm_default_username='+Edit1.Text); //ник
data.Add('loginForm_default_password='+Edit2.Text); //пароль
data.Add('loginForm_default_login_submit=Вход');
 Memo1.Lines.Add('Авторизация...');
page:=idhttp1.Post(ssylka,data); //запрос
if Pos('selectInstanceHint',page)<>0 then
Memo1.Lines.Add('Данные введены верно..Входим на сервер')
else
Memo1.Lines.Add('Данные введены не верно!...');
pars1:=pars('http://'+edit3.Text+'.darkorbit.bigpoint.com/GameAPI.php?req=',page,'&ref_pid='); // парсим сервера
pars2:=idhttp1.Get('http://'+edit3.text+'.darkorbit.bigpoint.com/GameAPI.php?req='+pars1);     // парсим сервера
if Pos('span', pars2) <> 0 then
memo1.lines.add ('Вошли на аккаунт')
else memo1.lines.add ('Не вошли');


end;

function pars(s_, s, _s: string): string; //функция парса
var
  p: integer;
  _s_: string;
begin
  _s_ := copy(s, pos(s_, s) + length(s_), length(s) - pos(s_, s) - length(s_));
  p := pos(_s, _s_);
  result := copy(_s_, 1, p - 1);
end;

[old-z]

Программа тупо зависает на месте, и что-то грузит...

[Роспотребнадзор]

Цитата: Сообщение от old-z Программа тупо зависает на месте, и что-то грузит...

var i:integer;
begin
for i:=1 to 12 do begin Application.ProcessMessages () ;
      end; 
end.

Еще попробуй кинуть на форму компонент антифриз из Indy

[VeTaL_UA]

Цитата: Сообщение от РОСПОТРЕБНАДЗОР var i:integer; begin for i:=1 to 12 do begin Application.ProcessMessages () ; end; end.

Есть три вопроса:
1) Что за бред?
2) Куда ты его вставишь?
3) Почему прокручиваешь цикл только 12 раз?

[Steam~]

list:=tstringlist.Create;
 try
 list.Add('loginForm_default_username='+nick);
     list.Add('loginForm_default_password='+pass);
     s1:=MainForm.idhttp.post('http://darkorbit.bigpoint.com/index.es?action=externalHome&locale=ru&aid=333&aip=STPACK',list);      

    s2:=Copy(s1,Pos('http://'+serv+'.darkorbit.bigpoint.com/GameAPI.php?req=',s1),length(s1));
     Delete(s2,Pos('&ref_pid',s2)-14,length(s2));
    s3:=MainForm.idhttp.Get(s2);
finally
        list.Free;

так будет попроще , правда тут без проверок , но думаю со временем можно разобраться)

[[Na`Vi]DendI]

Цитата: Сообщение от old-z Программа тупо зависает на месте, и что-то грузит...

в Idhttp поставьте значение HandleRedirects true.

[VeTaL_UA]

Цитата: Сообщение от [Na`Vi]DendI в Idhttp поставьте значение HandleRedirects true.

При чём это к зависанию? Без этой галочки тупо выбивало бы ошибку...

[[Na`Vi]DendI]

Цитата: Сообщение от VeTaL_UA При чём это к зависанию? Без этой галочки тупо выбивало бы ошибку...

Да я знаю,но у меня в дел7 был такой баг что при любой ошибке просто висла прога и дельфа)
Так что мне кажется там ошибка)

[old-z]

Цитата: Сообщение от [Na`Vi]DendI Да я знаю,но у меня в дел7 был такой баг что при любой ошибке просто висла прога и дельфа) Так что мне кажется там ошибка)

Я уже разобрался, он у меня был написан, только правда как комментарий, забыл "//" убрать

[SuperCheaterPB]

pars2:=idhttp1.Get('http://ru1.darkorbit.bigpoint.com/indexInternal.es?action=internalStart');

Но получаю взамен просто главную страницу хотя я уже авторизовался

[metra3]

Цитата: Сообщение от SuperCheaterPB pars2:=idhttp1.Get('http://ru1.darkorbit.bigpoint.com/indexInternal.es?action=internalStart'); Но получаю взамен просто главную страницу хотя я уже авторизовался

Привяжи куки к http.

[SuperCheaterPB]

Я привязал куки о все тоже самое.
Может я не правильно это сделал? как правильно их привязывать: кукименеджер в idhttp и компонент на форму?*

[metra3]

Цитата: Сообщение от SuperCheaterPB Я привязал куки о все тоже самое. Может я не правильно это сделал? как правильно их привязывать: кукименеджер в idhttp и компонент на форму?*

да.
Http.AllowCookies:=true;
не забыли?

[[Na`Vi]DendI]

Цитата: Сообщение от SuperCheaterPB Но получаю взамен просто главную страницу хотя я уже авторизовался

от куда ты знаешь что получаешь главную страницу ? как проверяешь ?
Http.AllowCookies:=true; поставил ?

[D.E.Z.E.R.T.I.R]

[Na`Vi]DendI, что за бред? у тебя получается, что даже если данные введены неверно, то все равно программа продолжает попытку авторизации


вот это заменить на это:

if Pos('selectInstanceHint',page)<>0 then
Memo1.Lines.Add('Данные введены верно..Входим на сервер')
else
Memo1.Lines.Add('Данные введены не верно!...');
pars1:=pars('http://'+edit3.Text+'.darkorbit.bigpoint.com/GameAPI.php?req=',page,'&ref_pid='); // парсим сервера
pars2:=idhttp1.Get('http://'+edit3.text+'.darkorbit.bigpoint.com/GameAPI.php?req='+pars1);     // парсим сервера
if Pos('span', pars2) <> 0 then
memo1.lines.add ('Вошли на аккаунт')
else memo1.lines.add ('Не вошли');

на это:

if Pos('selectInstanceHint',page)=0 then
Memo1.Lines.Add('Данные введены не верно!...')
else begin
Memo1.Lines.Add('Данные введены верно..Входим на сервер');
pars1:=pars('http://'+edit3.Text+'.darkorbit.bigpoint.com/GameAPI.php?req=',page,'&ref_pid='); // парсим сервера
pars2:=idhttp1.Get('http://'+edit3.text+'.darkorbit.bigpoint.com/GameAPI.php?req='+pars1);     // парсим сервера
if Pos('span', pars2) <> 0 then
memo1.lines.add ('Вошли на аккаунт')
else memo1.lines.add ('Не вошли');
end;