[Скрипт] "Патчер памяти" или "Пишем флайхак" [Delphi]

[Njkzy80]

Уважаемый Dinmaite, простите плиз, но просмотрев всю тему так и не понял как разморозить окно. Прошу вас обьясните поподробнее, плиз.

[Kitsune]

Njkzy80, есть 2 варианта:
1. Через N-интервал времени записывать в память клиента информацию, о том, что окно в фокусе, даже если это и не так.
2. Найти в памяти функцию, которая переключает флаг заморозки и сделать так, чтобы она этого не делала.

[Njkzy80]

Уважаемый TBX1n спасибо и вам что также откликнулись, на мои вопросы.
Исходя из вашего ответа у меня возникло несколько вопросов:
При первом варианте небудет ли мерцания окна игры?
При втором варианте я так понимаю что придется пропатчить клиент или можно будет это както организовать в программе? Если можно то приведите пример пожалуйсто.

И пожалуйсто помогите: немогу сделать так чтобы бот выводил имена всех персов(окон) т.е. Немогу организовать поиск всех окон клиента.

[Kitsune]

Njkzy80,
1. Не будет мерцаний.
2. Патчить память клиента или патчить ехе - разницы нет.
3. Найти все окна PW по классу, и прочитать по заданным оффсетам ники из каждого окна.

[Njkzy80]

Уважаемый TBX1n,
В том то и проблема что у я даже сообразить немогу как сделать чтобы бот нашел все окна.
Вот эта процедура находит тока один ник, а что надо сделать чтобы были найдены все ники?
WndHndl:=findwindow('ElementClient Window',nil);
GetWindowThreadProcessId(WndHndl, @PID);
hProcess:=OpenProcess(PROCESS_ALL_ACCESS, False, PID);
hProces:= hProcess;
ReadProcessMemory(hProces[index], ptr(base_addr), @ipbuf, sizeof(ipbuf), BytesCount);
ReadProcessMemory(hProces[index], ptr(ipbuf+$1C), @ipbuf, sizeof(ipbuf), BytesCount) ;
ReadProcessMemory(hProces[index], ptr(ipbuf+$20), @ipbuf, sizeof(ipbuf), BytesCount) ;
ReadProcessMemory(hProces[index], ptr(ipbuf+Name_offset), @ipbuf, 4, BytesCount);
ReadProcessMemory(hProces[index], ptr(ipbuf+0), @buft, 32, BytesCount) ;
s:=WideCharToString(buft) ;
ComboBox1.Items.Add(' '+s) ;
Прошу вас ПОЖАЛУЙСТО добавте, что необходимо чтобы были найдены все ники.

Добавлено через 5 минут
Ой, извините не то скопировал, та процедура приводит к ошибке
а эта выводит только один ник
WndHndl:=findwindow('ElementClient Window',nil);
GetWindowThreadProcessId(WndHndl, @PID);
hProcess:=OpenProcess(PROCESS_ALL_ACCESS, False, PID);
ReadProcessMemory(hProcess, ptr(base_addr), @ipbuf, sizeof(ipbuf), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuf+$1C), @ipbuf, sizeof(ipbuf), BytesCount) ;
ReadProcessMemory(hProcess, ptr(ipbuf+$20), @ipbuf, sizeof(ipbuf), BytesCount) ;
ReadProcessMemory(hProcess, ptr(ipbuf+Name_offset), @ipbuf, 4, BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuf+0), @buft, 32, BytesCount) ;
s:=WideCharToString(buft) ;
ComboBox1.Items.Add(' '+s) ;

ПМОГИТЕ ПРОШУ ВАС!

[Dinmaite]

function EnumProc (h: HWnd; Param: LongInt): Boolean; stdcall; // Îáÿçàòåëüíî stdcall !!!
var
p:array [0..255] of Char;
PID,hProc,nbyte,play_addres:dword;
bufd:dword;
bufs:array [1..60] of widechar;
Begin
  GetClassName(h ,p,sizeof(p));
  if p='ElementClient Window' then
    begin
      GetWindowThreadProcessId(h, @PID);
      hProc:=OpenProcess(PROCESS_ALL_ACCESS, False, PID);
      if hProc <> 0 then
        begin
          readprocessmemory(hProc,ptr($009C1514),@bufd,sizeof(dword),nbyte);
          readprocessmemory(hProc,ptr(bufd+$20),@bufd,sizeof(dword),nbyte);
          play_addres:=bufd;
          readprocessmemory(hProc,ptr(bufd+$608),@bufd,sizeof(dword),nbyte);
          readprocessmemory(hProc,ptr(bufd),@bufs,60,nbyte);
          form1.NickBox.Items.Add(string(bufs));
          akk[form1.NickBox.Items.Count-1].Wnd:=h;
          akk[form1.NickBox.Items.Count-1].PID:=PID;
          akk[form1.NickBox.Items.Count-1].play_addres:=play_addres;
        end;
      closehandle(hProc);
    end;
  EnumProc := TRUE;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
NickBox.Items.Clear;        // Î÷èñòèì ñïèñîê ïåðåä íà÷àëîì ïîèñêîâ
EnumWindows (@EnumProc, 0); // è ñêàæåì - èñêàòü
end;

[zaparca]

Цитата: Сообщение от Dinmaite Я своих ботов пишу многопоточными, по сути четырехпоточными. 1. GUI. 2. Bot, собственно выбор таргета, подьем дропа. 3. Heal, все что касается лечения. 4. Skill, Скиллы/бафы.

Можеш написать код 1. GUI. потока просто интересно как передать переменные в поток

[Dinmaite]

Я свой код не показываю, за редким мсключением.
Переменные в поток можно передать при создании потока (предварительно описав их в классе потока).

[Njkzy80]

Уважаемый Dinmaite, СПС за помощь! Три дня разбирался пытался понять сею процедуру и самое главное как из нее передать PID выбранного окна, но все таки победил и разобрался. Сейчас читаю про потоки и инжек. Надеюсь вы и TBX1n дальше сможете помогать советами. СПС вам и этому сайту.
Непрощаюсь))))
Пошел читать

Добавлено через 10 часов 8 минут
Уважаемый Dinmaite. Пожалуйсто объясните как понять и записать в коде: GA +8 +24 +18 +[I*4] + (+0)^J +4: (I in [0..300])
что такое J и I всмысле какой у них тип?
Пожалуйсто помогите!

[Njkzy80]

Цитата: Сообщение от Dinmaite Запись BA +218 +8 +[I*4] + (+0)^J +4 для разных значений J расшифровывается как: J = 0: BA +218 +8 +[I*4] +4 J = 1: BA +218 +8 +[I*4] +0 +4 J = 2: BA +218 +8 +[I*4] +0 +0 +4 J = 3: BA +218 +8 +[I*4] +0 +0 +0 +4 J = 4: BA +218 +8 +[I*4] +0 +0 +0 +0 +4 J = 5: ... Продолжать, пока не будут найдены все элементы. Элементы неравномерно распределены по всему массиву. Количество элементов можно посмотреть по адресу, указанному в первой строке описания каждой структуры.

Пожалуйсто подскажите как написать цикл добавления нулей, ПРОШУ ВАС помогите начинающему!
Я написал вот таким образом:
hProcess:=OpenProcess(PROCESS_ALL_ACCESS, False, p);
ReadProcessMemory(hProcess, ptr(base_addr), @ipbuft, sizeof(ipbuft), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuft+$1C), @ipbuft, sizeof(ipbuft), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuft+$8), @ipbuft, sizeof(ipbuft), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuft+$24), @ipbuft, sizeof(ipbuft), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuft+$18), @ipbuft, sizeof(ipbuft), BytesCount);
for i:=0 to $300 do begin
ReadProcessMemory(hProcess, ptr(ipbuft+(I*4)), @ipbuft, sizeof(ipbuft), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuft+$4), @ipbuft, sizeof(ipbuft), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuft+$11c), @ipbuft, sizeof(ipbuft), BytesCount);
if buft<>0 then
begin
ReadProcessMemory(hProcess, ptr(ipbuft+$124), @ipbuft, sizeof(buft), BytesCount);
ListBox2.Items.Add(IntToStr(buft));
end;
end;

for i:=0 to $300 do begin
ReadProcessMemory(hProcess, ptr(ipbuft+(I*4)), @ipbuft, sizeof(ipbuft), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuft+0), @ipbuft, sizeof(ipbuft), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuft+$4), @ipbuft, sizeof(ipbuft), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuft+$11c), @ipbuft, sizeof(ipbuft), BytesCount);

if buft<>0 then
begin
ReadProcessMemory(hProcess, ptr(ipbuft+$124), @ipbuft, sizeof(buft), BytesCount);
ListBox2.Items.Add(IntToStr(buft));
end;
end;

и таким образом добовлял нули, дошел до 10 и все пусто
ПОМОГИТЕ!

[Dinmaite]

Может быть там дальше ничего нет?
А может быть вам надо перейти на вторую страницу в памяти.

[Njkzy80]

В том то и проблема, я и прошу помощи что я никак немогу понять как перебирать страници в цикле, как к одному участку кода добовлять целую строчку еще и в цикле.

А разве я таким образом не перебираю страници?

for i:=0 to $300 do begin
ReadProcessMemory(hProcess, ptr(ipbuft+(I*4)), @ipbuft, sizeof(ipbuft), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuft+0), @ipbuft, sizeof(ipbuft), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuft+$4), @ipbuft, sizeof(ipbuft), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuft+$11c), @ipbuft, sizeof(ipbuft), BytesCount);

if buft<>0 then
begin
ReadProcessMemory(hProcess, ptr(ipbuft+$124), @ipbuft, sizeof(buft), BytesCount);
ListBox2.Items.Add(IntToStr(buft));
end;
for i:=0 to $300 do begin
ReadProcessMemory(hProcess, ptr(ipbuft+(I*4)), @ipbuft, sizeof(ipbuft), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuft+0), @ipbuft, sizeof(ipbuft), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuft+0), @ipbuft, sizeof(ipbuft), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuft+$4), @ipbuft, sizeof(ipbuft), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuft+$11c), @ipbuft, sizeof(ipbuft), BytesCount);

if buft<>0 then
begin
ReadProcessMemory(hProcess, ptr(ipbuft+$124), @ipbuft, sizeof(buft), BytesCount);
ListBox2.Items.Add(IntToStr(buft));
end;
for i:=0 to $300 do begin
ReadProcessMemory(hProcess, ptr(ipbuft+(I*4)), @ipbuft, sizeof(ipbuft), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuft+0), @ipbuft, sizeof(ipbuft), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuft+0), @ipbuft, sizeof(ipbuft), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuft+0), @ipbuft, sizeof(ipbuft), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuft+$4), @ipbuft, sizeof(ipbuft), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuft+$11c), @ipbuft, sizeof(ipbuft), BytesCount);

if buft<>0 then
begin
ReadProcessMemory(hProcess, ptr(ipbuft+$124), @ipbuft, sizeof(buft), BytesCount);
ListBox2.Items.Add(IntToStr(buft));
end;

Добавлено через 2 часа 19 минут
Да какже получить информацию о цели????? Людиии помогите!!! У мя уже башня съезжает

[Dinmaite]

Информацию о цели можно получить двумя способами.
1. Получить ID цели, преобразовать ее в номер ячейки и взять информацию из массива.
2. Прочитать весь массив, найти в нем цель, считать данные.

Нет, таким образом ты не "листаешь страницы"

[Njkzy80]

Цитата: Сообщение от Dinmaite Нет, таким образом ты не "листаешь страницы"

Максимум что смог найти тока это
"""1-я страница [BA] +8 +20 +18 +[I*4] +4:
2-я страница [BA] +8 +20 +18 +[I*4] +0 +4:
3-я страница [BA] +8 +20 +18 +[I*4] +0 +0 +4:
4-я страница [BA] +8 +20 +18 +[I*4] +0 +0 +0+4:
5-я ...
И т.д.
Через while легко реализовывается.""""
Перерыл кучу книг и сайтов , Но как реализовать так и непонял. Прошу помогите!
И еще во всех инжектах у меня компилятор ругается на aPParams:PParams - что это?
неизвестный параметр пишет и на ТParams?

[Dinmaite]

Я описал этот тип в своей теме.
Код уже приведен здесь, переписывать его времени у меня нет.