[Помогите!] Delphi

[ИМПЕРАТОР]

Добрый день уважаемые

В данной теме прошу помощи у знающих программистов!

Дело вот в чем:
1. Онлайн игра DarkOrbit, хотел бы узнать код по заходу на аккаунт! т.е что бы через программу можно было попадать на свой аккаунт!
2. хотелось бы узнать, как автоматизировать программу, т.е что бы через определенное время выполняла определенные действия

Заранее Благодарю за помощь!

[Skrillex3]

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

[ИМПЕРАТОР]

Цитата: Сообщение от Skrillex3 Charles в руки и вперёд , проходишь авторизацию вручную ,смотришь что отправляется , имитируешь отправку тех же самых пакетов в программе и всё) кидаешь на форму таймер , и действие будет повторяться через определённое время

Спасибо за помощь, сейчас буду пробовать!

[Skrillex3]

Цитата: procedure TPB.OpenAcc(Nick: string; Pass: string); var s2:string; b:string; begin Http.Create(nil); HTTP.HandleRedirects:=True; Sock.Active := False; try HTTP.ProtocolVersion:=PV1_1; HTTP.HandleRedirects:=True; HTTP.Request.ContentType:='text/html; charset=UTF-8'; HTTP.Request.UserAgent:='Mozilla/4.0.(compatible;.MSIE.6.0;.Windows.NT.5.1;.SV1;.NE T.CLR.1.1.4322)'; Data := TStringList.Create; Data.Clear; Data.Add('loginForm_default_username='+Nick); Data.Add('loginForm_default_password='+Pass); Data.Add('loginForm_default_login_submit=Вход'); Add('Запрос на сервер...'); s:=HTTP.Post('http://www.darkorbit.com/?locale=ru&aid=333&aip=STPACK',Data); Data.Free; if Pos('Выбери сервер, на котором хочешь играть: <a href="/">Отмена',S)<>0 then begin Add('Данные верные!') end else add('Данные не верные!'); Reg.Expression := 'http://'+Srv+'\.darkorbit\.bigpoint\.com/GameAPI\.php\?req=(.*?)">'; if Reg.Exec(S) then begin s := Reg.Match[1]; SetLength(S,Length(S)-2); S := HTTP.Get('http://'+Srv+'.darkorbit.bigpoint.com/GameAPI.php?req='+S); if Pos('span', S) <> 0 then Add('Вход успешен') else begin Add('Войти на сервер не удалось!'); Exit; end; end; begin S := HTTP.Get('http://'+SRV+'.darkorbit.bigpoint.com/indexInternal.es?action=internalStart'); Add('Вошли на сервер'); Reg.Expression := 'Текущая позиция: </div><div class="userInfo_right">([0-9]-[0-9])</div><br class="clearMe" />'; if Reg.Exec(S) then Map := Reg.Match[1] else begin Add('Не удалось найти текущее положение!'); Exit; end; Reg.Expression := 'dosid=(.*?)'#39';'; if Reg.Exec(S) then SID := Reg.Match[1] else begin Add('Не удалось найти SID!'); Exit; end; add (SID); button3.Enabled:=true; Reg.Expression := '<span>(.*?)</span>'; if Reg.Exec(S) then ID := StrToInt(Reg.Match[1]) else begin Add('Не удалось найти ID!'); Exit; end; add (IntToStr(ID)); HUID:=IntToHex(ID, 1); if GetMapIp(GetMapIdFromName(Map)) = '' then Exit; Add('Данные получены'); loginToGame; end; except Add('Ошибка при входе!'); end; end;

хз рабочий код или нет , мне уже давно пофиг на дарк , пробуй)

[ИМПЕРАТОР]

Цитата: Сообщение от Skrillex3 хз рабочий код или нет , мне уже давно пофиг на дарк , пробуй)

Спасибо конечно, но что этим кодом я добьюсь?? примерно какой результат получится?? наглядно объяснить можешь?

[Skrillex3]

в мемо появится айдишник только add нужно заменить на memo1.lines.add

[ИМПЕРАТОР]

Цитата: Сообщение от Skrillex3 в мемо появится айдишник только add нужно заменить на memo1.lines.add

Вот так куда понятнее)) Спасибо за помощь!

[victor20011]

Цитата: procedure TPB.OpenAcc(Nick: string; Pass: string); var s2:string; b:string; begin Http.Create(nil); HTTP.HandleRedirects:=True; Sock.Active := False; try HTTP.ProtocolVersion:=PV1_1; HTTP.HandleRedirects:=True; HTTP.Request.ContentType:='text/html; charset=UTF-8'; HTTP.Request.UserAgent:='Mozilla/4.0.(compatible;.MSIE.6.0;.Windows.NT.5.1;.SV1;.NE T.CLR.1.1.4322)'; Data := TStringList.Create; Data.Clear; Data.Add('loginForm_default_username='+Nick); Data.Add('loginForm_default_password='+Pass); Data.Add('loginForm_default_login_submit=Вход'); Add('Запрос на сервер...'); s:=HTTP.Post('http://www.darkorbit.com/?locale=ru&aid=333&aip=STPACK',Data); Data.Free; if Pos('Выбери сервер, на котором хочешь играть: <a href="/">Отмена',S)<>0 then begin Add('Данные верные!') end else add('Данные не верные!'); Reg.Expression := 'http://'+Srv+'\.darkorbit\.bigpoint\.com/GameAPI\.php\?req=(.*?)">'; if Reg.Exec(S) then begin s := Reg.Match[1]; SetLength(S,Length(S)-2); S := HTTP.Get('http://'+Srv+'.darkorbit.bigpoint.com/GameAPI.php?req='+S); if Pos('span', S) <> 0 then Add('Вход успешен') else begin Add('Войти на сервер не удалось!'); Exit; end; end; begin S := HTTP.Get('http://'+SRV+'.darkorbit.bigpoint.com/indexInternal.es?action=internalStart'); Add('Вошли на сервер'); Reg.Expression := 'Текущая позиция: </div><div class="userInfo_right">([0-9]-[0-9])</div><br class="clearMe" />'; if Reg.Exec(S) then Map := Reg.Match[1] else begin Add('Не удалось найти текущее положение!'); Exit; end; Reg.Expression := 'dosid=(.*?)'#39';'; if Reg.Exec(S) then SID := Reg.Match[1] else begin Add('Не удалось найти SID!'); Exit; end; add (SID); button3.Enabled:=true; Reg.Expression := '<span>(.*?)</span>'; if Reg.Exec(S) then ID := StrToInt(Reg.Match[1]) else begin Add('Не удалось найти ID!'); Exit; end; add (IntToStr(ID)); HUID:=IntToHex(ID, 1); if GetMapIp(GetMapIdFromName(Map)) = '' then Exit; Add('Данные получены'); loginToGame; end; except Add('Ошибка при входе!'); end; end;

Это c помошью synapse


begin
////
Data:=TStringList.Create;
Data2:=TStringList.Create;
Data.Add('loginForm_default_username='+Form1.edit1 .text);
Data.Add('loginForm_default_password='+Form1.edit1 .text);
Data.Add('loginForm_default_login_submit=Вход');
Data2.Text:=Form1.idHTTP1.Post('http://darkorbit.ru/?locale=ru&aid=0', Data);

[Skrillex3]

Цитата: Сообщение от victor20011 Это c помошью synapse begin //// Data:=TStringList.Create; Data2:=TStringList.Create; Data.Add('loginForm_default_username='+Form1.edit1 .text); Data.Add('loginForm_default_password='+Form1.edit1 .text); Data.Add('loginForm_default_login_submit=Вход'); Data2.Text:=Form1.idHTTP1.Post('http://darkorbit.ru/?locale=ru&aid=0', Data);

Это с помощью indy

[victor20011]

Цитата: Сообщение от Skrillex3 Это с помощью indy

Я имел в веду твой код

[Skrillex3]

мой код работет с помошью инди , что не понятно?

[ИМПЕРАТОР]

Цитата: Сообщение от Skrillex3 мой код работет с помошью инди , что не понятно?

Спасибо огромное! единственный человек, который соизволил помочь в моей теме!