[Статья] Основы входа в DO (Darkorbit)

R-A-Z-O-R · 18.06.2011, 11:57

Привет всем! Так как у многих часто возникают вопросы по поводу входа в эту игру и т.д. решил написать эту статью. Что ж, начнем!

Для начала нам понадобится:

Код:

:info: Delphi 2010 (скачать: [Ссылки могут видеть только зарегистрированные пользователи. ]), (через торрент: [Ссылки могут видеть только зарегистрированные пользователи. ])
:info: Библиотека регулярных выражений, очень хороший парсер RegExpr (скачать: [Ссылки могут видеть только зарегистрированные пользователи. ])
:info: Прямые руки! ;)

Все скачали, установили, файлы RegExpr'a закинули в директорию \Embarcadero\RAD Studio\7.0\lib.

Теперь можно запустить Delphi и создать проект, появится форма. На нее кинем 3 Edit'a, 1 Label, 1 Button и самое главное, где мы будем записывать все, что вытащили из страницы ДО - ListBox.

Теперь, настроим форму (это не очень важно), свойство Bordertyle поставим в bsSingle, в BorderIcons впишем [biSystemMenu,biMinimize].

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

В раздел uses добавим RegExpr и idHTTP. Теперь 2 раза кликнем по кнопке и пропишем код так, как написано ниже:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var Reg: TRegExpr;
    Data: TStringList;
    S: string;
    HTTP: TIdHTTP;
begin
  // Проверям заполнены ли поля
  if (Edit1.Text = '')or(Edit2.Text = '')or(Edit3.Text = '') then
  begin
    ShowMessage('Заполните все поля!');
    Exit;
  end;
  // Создаем компоненты
  Reg := TRegExpr.Create; // Парсер
  Data := TStringList.Create; // Строки для посылки POST запроса
  HTTP := TIdHTTP.Create(nil); // HTTP
  HTTP.HandleRedirects := True; // Чтобы не выдавало ошибку 302, в Delphi 2010 не важно
  // Входим в игру
  Data.Clear; // Очистка не помешает ;)
  Data.Add('loginForm_default_username='+Edit1.Text);
  Data.Add('loginForm_default_password='+Edit2.Text);
  Data.Add('loginForm_default_login_submit=Вход');
  try
    S := HTTP.Post('http://darkorbit.bigpoint.com/?locale=ru&aid=0',Data);
  except
    ShowMessage('Ошибка при посылке данных!');
    Reg.Free;
    Data.Free;
    HTTP.Free;
    Exit;
  end;
  // Проверяем, правильны ли данные?
  if Pos('Выбор сервера',S) = 0 then
  begin
    ShowMessage('Неверные данные!');
    Reg.Free;
    Data.Free;
    HTTP.Free;
    Exit;
  end;
  // Выбираем сервер
  Reg.Expression := '"http://'+Edit3.Text+'\.darkorbit\.bigpoint\.com/GameAPI\.php\?req=(.*?)"';
  if Reg.Exec(S) then
  begin
    try
      S := HTTP.Get('http://'+Edit3.Text+'.darkorbit.bigpoint.com/GameAPI.php?req='+Reg.Match[1]);
      S := HTTP.Get('http://'+Edit3.Text+'.darkorbit.bigpoint.com/indexInternal.es?action=internalStart');
    except
      ShowMessage('Ошибка при запросе выбора сервера!');
      Reg.Free;
      Data.Free;
      HTTP.Free;
      Exit;
    end;
    // Сервер выбрали, проверяем данные
    if Pos('<title>www.DarkOrbit.com</title>',S) <> 0 then
    begin
      Reg.Expression := '<div class="userInfo_left fliess10px-white">Ник:</div><div class="userInfo_right">(.*?)</div>';
      if Reg.Exec(S) then ListBox1.Items.Add('Ник: '+Reg.Match[1]);
      Reg.Expression := '<div class="userInfo_left fliess10px-white">Сервер:</div><div class="userInfo_right">(.*?)</div>';
      if Reg.Exec(S) then ListBox1.Items.Add('Сервер: '+Reg.Match[1]);
      Reg.Expression := '<div class="userInfo_left fliess10px-white">Ранг:</div><div class="userInfo_right"><img src="(.*?)" style="vertical-align: baseline;"> (.*?)</div>';
      if Reg.Exec(S) then ListBox1.Items.Add('Ранг: '+Reg.Match[2]);
      Reg.Expression := '<div class="userInfo_left fliess10px-white">Премиум:</div><div class="userInfo_right">(.*?)</div>';
      if Reg.Exec(S) then ListBox1.Items.Add('Премиум: '+Reg.Match[1]);
      Reg.Expression := '<div class="userInfo_left fliess10px-white">Компания:</div><div class="userInfo_right">(.*?)</div>';
      if Reg.Exec(S) then ListBox1.Items.Add('Компания: '+Reg.Match[1]);
      // Достаточно, теперь вытащим другую инфу
      Reg.Expression := 'cred=(.*?)&amp;xcred=(.*?)&amp';
      if Reg.Exec(S) then ListBox1.Items.Add('Кредитов: '+Reg.Match[1]+' | Уридиума: '+Reg.Match[2]);
      ListBox1.items.Add('Информация загружена!');
    end else
    begin
      ShowMessage('Ошибка при входе на выбранный сервер!');
      Reg.Free;
      Data.Free;
      HTTP.Free;
      Exit;
    end;
  end else
  begin
    ShowMessage('Неудачный выбор сервера!');
    Reg.Free;
    Data.Free;
    HTTP.Free;
    Exit;
  end;
  // Уничтожаем компоненты
  Reg.Free;
  Data.Free;
  HTTP.Free;
end;

На форму можно кинуть IdAntiFreeze с панели Indy Misc, чтобы прога меньше висла.

Еще, RegExpr - отличный инструмент, прочитать про него подробнее вы можете по ссылке скачивания выше.

Исходники программы я выложил на RgHost: [Ссылки могут видеть только зарегистрированные пользователи. ]

Если помог, то от спасибок никогда не отказываюсь

Добавлено через 4 минуты
P.S. Если будут вопросы то пишите в теме

gum_classis · 18.06.2011, 14:42

Steam~ кстате у тебя есть кусок кода который даёт инфу в мемо только чтобы код подходил к моему вот

Цитата:


	procedure TForm1.Button1Click(Sender:TObject); var html,html1,html2:string; data:tstringlist; begin try data:=TStringList.Create; data.Add('loginForm_default_username='+UTF8Encode( Edit1.Text)); data.Add('loginForm_default_password='+UTF8Encode( Edit2.Text)); data.Add('loginForm_default_login_submit=Вход'); html:=idHTTP1.Post('http://darkorbit.bigpoint.com/?locale=ru&aid=821&aip=.darkorbit.bigpoint.com', data); html1:=Copy(html,Pos('http://'+Edit3.Text+'.darkorbit.bigpoint.com/GameAPI.php?req=',html),length(html)); Delete(html1,Pos('&ref_pid',html1)-14,length(html1)); html2:=idhttp1.Get(html1); if Pos('exitURL', html)<>0 then Label1.Caption:='Вошло' else Label1.Caption:='НЕ ВОШЛО'; finally data.Free; end; end;

~~Steam~~~ · 18.06.2011, 14:50

Цитата:

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


	Steam~ кстате у тебя есть кусок кода который даёт инфу в мемо только чтобы код подходил к моему вот

s4:=Copy(html2,Pos('cred',html2)+5,Length(html2));
Delete(s4,Pos('&amp',s4),Length(s4));
Memo.Lines.Add:=s4;

вот пример, показывает кредиты

gum_classis · 18.06.2011, 15:00

Цитата:


	s4:=Copy(html3,Pos('cred',html3)+5,Length(html3)); Delete(s4,Pos('&amp',s4),Length(s4)); Memo.Lines.Add:=s4; вот пример, показывает кредиты

У меня вылазят ошибки первая из них

Цитата:


	Undeclared identifier:'s4'

~~Steam~~~ · 18.06.2011, 15:01

Цитата:

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


	У меня вылазят ошибки первая из них

добавь в var переменную s4:= string;

doctor_flasher · 18.06.2011, 15:01

gum_classis, не нравится код? Ты вообще ничего не знаешь и не можешь нормально пару строк кода написать, но при этом еще других ругаешь. Нехорошо, да.

R-A-Z-O-R, работа с интернетом в основном потоке - моветон. Сделал бы с BeginThread - всего строк десять бы добавить пришлось, зато аккуратно и никому не мешает. И, да, код ужасен: при ошибках ты выходишь из процедуры нахрен, не освобождая при этом классы, которые инициализировал. Утечка памяти большая, да

gum_classis · 18.06.2011, 15:04

Всё ок я разобрался в чём была неудача с s4

Добавлено через 5 минут

Цитата:


	добавь в var переменную s4:= string;

С этой ошибкой я сам уже разобрался есть теперь другая ))))

Цитата:


	Not enough actual parameters

doctor_flasher · 18.06.2011, 15:18

gum_classis, Ты даже строку кода с ошибкой не дал. Учи уже матчасть и уходи отсюда: Memo.Lines.Add(s4);

**Dinmaite** · 18.06.2011, 17:17

Флуд в теме = РО на 3 дня.
Оффтопик в теме = РО 3 дня.
Переход на личности в теме = РО 3 дня.
Вопросы класса "Почему у меня такая ошибка?", без указания строки кода и собственно ошибки = красная карта.

R-A-Z-O-R · 18.06.2011, 19:27

Цитата:

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


	помоги перенести куки с одной формы на другую. Стукни в скайп blad56rus или в асю 337438

Извини, но не могу помочь, зарегистрируй свой аккаунт, а этот, который ты украл, отдай его владельцу.

Цитата:

Сообщение от Steam~


	использую ХЕ, закинул библиотеку, ругается на RegExpr

Да, на него ругается Delphi 2009 и XE, поэтому я и написал что лучше использовать версию 2010 года

Цитата:

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


	R-A-Z-O-R, работа с интернетом в основном потоке - моветон. Сделал бы с BeginThread - всего строк десять бы добавить пришлось, зато аккуратно и никому не мешает. И, да, код ужасен: при ошибках ты выходишь из процедуры нахрен, не освобождая при этом классы, которые инициализировал. Утечка памяти большая, да

Да, спасибо, как-то не обратил внимания

~~-=ShoN=-~~ · 18.06.2011, 23:20

Цитата:

Сообщение от R-A-Z-O-R


	Извини, но не могу помочь, зарегистрируй свой аккаунт, а этот, который ты украл, отдай его владельцу. Да, на него ругается Delphi 2009 и XE, поэтому я и написал что лучше использовать версию 2010 года Да, спасибо, как-то не обратил внимания

отличная работа, но опять же, ничего не сказал про int8=))

000_svhost_000 · 05.07.2011, 15:25

а откуда id вытащить? Reg.Expression := 'uid=(.*?)''&'''; вот так пробовал, вытаскивает какуету ерунду. прошу помочь

*xalyava* · 05.07.2011, 15:47

Цитата:

Сообщение от 000_svhost_000


	а откуда id вытащить? Reg.Expression := 'uid=(.?)''&'''; вот так пробовал, вытаскивает какуету ерунду. прошу помочь*

Reg.Expression := 'uid=(.*?)&amp';
вот правильный код!

*xalyava* · 06.07.2011, 20:32

откройте исходный код страницы ДО, нажмите Ctrl+F (поиск), введите UID (ваш ID), и увидите следующее:
uid=67184713&amp

uid=(.*?)&amp
UId= //откуда начинать парсить страничку
(.*?) // то, что нам надо спарсить
&amp // то, на чем заканчиваем парсить
=================================================

Цитата:


	а откуда id вытащить? Reg.Expression := 'uid=(.*?)''&'''; вот так пробовал, вытаскивает какуету ерунду. прошу помочь

У вас ошибка была тут: ''&'''
Собственно, не понятно зачем вы поставили кавычки, ведь в коде их нет, а если нет, то при парсере GegExpr их ставить не надо (да и вообще вроде не надо при любых парсерах)....

Mad_Sanek · 18.07.2011, 12:26

как в Delphi XE подключить регулярные выражения?
Облазил яндекс и гугл, только описание и уже практическая работа, но как подключать - нигде нет((