Сканер памяти (типа ArtMoney)

← →
Stanislav (2007-10-14 13:42) [0]

Подскажите please, как можно осуществить сканер памяти (типа как в artMoney). Пробовал использовать многопоточность - вылетает ошибка, а при таком коде сканер работает, но очень очень медленно:

procedure Scan(min, max, nado:integer);
var
WindowName: integer;
ProcessId: integer;
ThreadId: integer;
HandleWindow: Integer;
write: cardinal;
buf: dword;
i:integer;
const
WindowTitle = "Program Manager";
NumberOfBytes = 4;
begin

For i:=min to max do begin
WindowName := FindWindow(nil,WindowTitle);
ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
ReadProcessMemory(HandleWindow, ptr(i), @buf, NumberOfBytes, write);
If buf=nado then begin
Form1.StringGrid1.RowCount:=Form1.StringGrid1.RowCount+1;
Form1.StringGrid1.Cells[0,Form1.StringGrid1.RowCount-1]:=inttostr(i);
end;
end;
end;

Этот кусок кода выводит в StringList адреса со значением переменной nado.

← →
Dib@zol © (2007-10-14 13:48) [1]

DLL-инжект?

← →
Denis__ © (2007-10-14 17:59) [2]

А artMoney законная программа?

← →
MetalFan © (2007-10-14 22:28) [3]

> Пробовал использовать многопоточность - вылетает ошибка,

> Form1.StringGrid1.RowCount:=Form1.StringGrid1.RowCount+1;
>
> Form1.StringGrid1.Cells[0,Form1.StringGrid1.RowCount-1]:
> =inttostr(i);

почитал бы про написание многопоточных приложений чтоли?!
например здесь
http://forum.vingrad.ru/forum/topic-60076.html

← →
antonn © (2007-10-14 23:32) [4]

> А artMoney законная программа?
>

нет, блин, подпольно-революционистическая, ей в webmoney буржуи деньги накручивают %)

← →
Stanislav © (2007-10-18 18:46) [5]

Спасибо MetalFan за полезную ссылочку

>например здесь
>http://forum.vingrad.ru/forum/topic-60076.html

Лучше второисточник смотреть, так как в третьеисточнике внесены еще ошибки ;)
http://mbo88.narod.ru/ToC.html

Первоисточник:
http://www.eonclash.com/Tutorials/Multithreading/MartinHarvey1.1/ToC.html

Thanks MBo.

Сканер памяти (типа ArtMoney) Найти похожие ветки