[Обсуждение] Авторизация в игре Delphi

["Unix]

Подскажите, как можно реализовать авторизацию онлайн игре?
Допустим я когда захожу в игру у меня появляется процесс elementclient.exe Вот собственно как в него залезть, и ввести данные пароль и логин.
Я в этом пока не очень разбираюсь, по этому тапками не кидать. Новичок пока в этом деле..

[VeTaL_UA]

Цитата: Сообщение от Desrpado как в него залезть

Найти окно ПВ по заголовку окна или по классу окна и, по надобности, дать программе доступ к процессу:

var
Wnd:THandle;
PID,hProcess:DWord;
begin
Wnd:=FindWindow('Perfect World','ElementClient Window'); //Первое - заголовок окна, второе - класс
GetWindowThreadProcessId(Wnd,@PID);
hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,PID);
end;

Далее нужно разморозить окно, для того, чтобы наша программа могла передать клиенту логин и пароль. Тут есть несколько способов, но самый лёгкий для понимания - это постоянная смена флага разморозки. Для этого кидаем на форму Таймер и ставим на нём интервал в 300мс. Потом в обработчике событий таймера пишем:

var
Wnd:THandle;
PID,hProcess,temp:DWord;
const
ua:DWord=$A5C43C;
unfreeze:DWord=1;
begin
Wnd:=FindWindow('Perfect World','ElementClient Window');
GetWindowThreadProcessId(Wnd,@PID);
hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,PID);
 try
  if hProcess<>0 then
   begin
   WriteProcessMemory(hProcess,ptr(ua),@unfreeze,1,temp);
   end;
 finally
 CloseHandle(hProcess);
 hProcess:=0;
 end;
end;

Ну а дальше нужно передать клиенту логин и пароль...

["Unix]

Цитата: Сообщение от VeTaL_UA Wnd:=FindWindow('Perfect World','ElementClient Window');

а разве не Wnd:=FindWindow('ElementClient','ElementClient Window');
ElementClient в процессах видно, и окно так же называется ElementClient
Спасибо вам большое, скажите а что на форму кидать что бы в писать первый код?
Если тут участвуют компоненты, напишите какие.?

[Skuka.95]

Цитата: Сообщение от Desrpado и окно так же называется ElementClient

а у меня окно называется

Цитата: Сообщение от Desrpado Perfect World

["Unix]

Цитата: Сообщение от Skuka.95 Perfect World

это руофф - у меня фришка)

[VeTaL_UA]

Цитата: Сообщение от Desrpado а разве не Wnd:=FindWindow('ElementClient','ElementClient Window');

Можно вообще:

Wnd:=FindWindow(nil,'ElementClient Window');

То есть искать по классу окна, или:

Wnd:=FindWindow('ElementClient',nil);

То есть искать по заголовку окна(он может быть разным).

Цитата: Сообщение от Desrpado Спасибо вам большое, скажите а что на форму кидать что бы в писать первый код?

В смысле вписать? Вписать заголовок окна и по нему найти само окно? Ну тогда нужно кинуть на форму компонент "Edit" из вкладки "Standart". Код:

Wnd:=FindWindow(Edit1.Text,nil);

Цитата: Сообщение от Desrpado Если тут участвуют компоненты, напишите какие.?

В приведенных мною примерах кода компоненты участия не берут.