Запуск WarFace без Game Center

[Attila]

Работает для WarFace EU
Delphi code:

    procedure RunGame(Login, Password, Server, Language, DirectoryGameClient: string);
    var
      o,xmlparser:OleVariant;
      Uid, Token, SessionKey: string;
      ProcInfo: TProcessInformation;
      StartInfo: TStartupInfo;
    begin
    
    //Europe - eu-comm.wf.my.com
    //North America - us-comm.wf.my.com
    
    CoInitialize(nil);
    o:=CreateOleObject('Microsoft.XMLHTTP');
    xmlparser:=CreateOleObject('Msxml2.DOMDocument');
    o.open ('POST', 'https://authdl.my.com/mygc.php?hint=Auth', False);
    o.setRequestHeader ('Content-Type', 'application/x-www-form-urlencoded');
    o.setRequestHeader ('Content-Length', Length('<?xml version="1.0" encoding="UTF-8"?><Auth Username="'+Login+'" Password="'+Password+'" ChannelId="35"/>'));
    o.setRequestHeader('User-Agent','Downloader/2010');
    o.send ('<?xml version="1.0" encoding="UTF-8"?><Auth Username="'+Login+'" Password="'+Password+'" ChannelId="35"/>');
    
    SessionKey := Pars('SessionKey="', o.responsetext, '"');
    
    o.open ('POST', 'https://authdl.my.com/mygc.php?hint=Login', False);
    o.setRequestHeader ('Content-Type', 'application/x-www-form-urlencoded');
    o.setRequestHeader ('Content-Length', Length('<?xml version="1.0" encoding="UTF-8"?><Login SessionKey="'+SessionKey+'" UserId="0" UserId2="0" ProjectId="2000076" ShardId="1" FirstLink="_1lp=0&amp;_1ld=2046937_0" Language="en_US"/>'));
    o.setRequestHeader('User-Agent','Downloader/2010');
    o.send ('<?xml version="1.0" encoding="UTF-8"?><Login SessionKey="'+SessionKey+'" UserId="0" UserId2="0" ProjectId="2000076" ShardId="1" FirstLink="_1lp=0&amp;_1ld=2046937_0" Language="en_US"/>');
    
    Uid := Pars('GameAccount="', o.responsetext, '"');
    Token := Pars('Code="', o.responsetext, '"');
    
    ZeroMemory(@StartInfo, SizeOf(TStartupInfo));
    StartInfo.cb := SizeOf(TStartupInfo);
    CreateProcess(nil, PChar(DirectoryGameClient + ' +online_server '+Server+' +g_language '+Language+' --shard_id=1 -token '+Token+' -uid '+Uid+''), nil, nil, False, 0, nil, nil, StartInfo, ProcInfo);
    end;

 

[Attila]

Таким способом запуска можно играть не прибегая использовать VPN (но это не точно)

 

[ORAKUL71Russ]

и куда это кидать?

 

[Vlupidoll]

Таким способом запуска можно играть не прибегая использовать VPN (но это не точно)

И чем же закрытие ИЦ повлияет на смену IP?Да и код этот реализуй на форму с кнопкой,скомпилируй и уже пол дела будет к полезности темы.

 

[Attila]

и куда это кидать?

В свой проект delphi

 

[halik872]

В свой проект delphi

ну ты и сказал в свой проекта что делать тем кто не умеет их создавать?

 

[каратель12]

1. почему не написано что ещё "Модуль: ComObj" используется
2. почему код парсинга не выложил

function Pars(T_, ForS, _T: String): String;
var
  A, B: integer;
begin
  Result := '';
  if (T_ = '') or (ForS = '') or (_T = '') then
    Exit;
  A := Pos(T_, ForS);
  if A = 0 then
    Exit
  else
    A := A + length(T_);
  ForS := Copy(ForS, A, length(ForS) - A + 1);
  B := Pos(_T, ForS);
  if B > 0 then
    Result := Copy(ForS, 1, B - 1);
end;

3. вы бы ещё в одну строку еба*у*и-бы код

procedure RunGame(Login, Password, Server, Language, DirectoryGameClient: string);
var
  o, xmlparser: OleVariant;
  Uid, Token, SessionKey: string;
  ProcInfo: TProcessInformation;
  StartInfo: TStartupInfo;
begin
  CoInitialize(nil);
  o := CreateOleObject('Microsoft.XMLHTTP');
  xmlparser := CreateOleObject('Msxml2.DOMDocument');
  o.open('POST', 'https://authdl.my.com/mygc.php?hint=Auth', False);
  o.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
  o.setRequestHeader('Content-Length',Length('<?xml version="1.0" encoding="UTF-8"?><Auth Username="' + Login + '" Password="' + Password + '" ChannelId="35"/>'));
  o.setRequestHeader('User-Agent', 'Downloader/2010');
  o.send('<?xml version="1.0" encoding="UTF-8"?><Auth Username="' + Login + '" Password="' + Password + '" ChannelId="35"/>');
  SessionKey := Pars('SessionKey="', o.responsetext, '"');
  o.open('POST', 'https://authdl.my.com/mygc.php?hint=Login', False);
  o.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
  o.setRequestHeader('Content-Length',Length('<?xml version="1.0" encoding="UTF-8"?><Login SessionKey="' + SessionKey + '" UserId="0" UserId2="0" ProjectId="2000076" ShardId="1" FirstLink="_1lp=0&amp;_1ld=2046937_0" Language="en_US"/>'));
  o.setRequestHeader('User-Agent', 'Downloader/2010');
  o.send('<?xml version="1.0" encoding="UTF-8"?><Login SessionKey="' + SessionKey + '" UserId="0" UserId2="0" ProjectId="2000076" ShardId="1" FirstLink="_1lp=0&amp;_1ld=2046937_0" Language="en_US"/>');
  Uid := Pars('GameAccount="', o.responsetext, '"');
  Token := Pars('Code="', o.responsetext, '"');
  ZeroMemory(@StartInfo, SizeOf(TStartupInfo));
  StartInfo.cb := SizeOf(TStartupInfo);
  CreateProcess(nil, PChar(DirectoryGameClient + ' +online_server ' + Server + ' +g_language ' + Language + ' --shard_id=1 -token ' + Token + ' -uid ' + Uid + ''), nil, nil, False, 0, nil, nil, StartInfo, ProcInfo);
end;

есть-же, синапс, или уже он дохлый для вас ?

 

[Fury]

Только на EU на RU никак ?