Witam. Piszę ten post, ponieważ mi brakuje doświadczenia, oraz elementarnej wiedzy i nie potrafię Sobie niestety poradzić z kodem, by wyglądał on tak jak bym tego chciał.
Na chwilę obecną wygląda on tak:
Procedure Whatever;
var
Value1, Value2, Value3, Value4, Value5, Value6: DWORD;
Name1, Name2, Name3 : DWORD;
Nick1, Nick2, Nick3 : String;
begin
Form1.Hook;
Form16.ListBox1.Clear;
ReadProcessMemory(IDProcess, Ptr(BLAddress), @Value1, SizeOf(Value1), BytesRead);
ReadProcessMemory(IDProcess, Ptr(Value1 + BLOffset1), @Value2, SizeOf(Value2), BytesRead);
ReadProcessMemory(IDProcess, Ptr(Value2 + BLOffset2), @Value3, SizeOf(Value3), BytesRead);
//do node trzeba dodac +4 zeby uzyskac nastepny wynik
//ReadProcessMemory(IDProcess, Ptr(Value3 + (BLNode)), @Value4, SizeOf(Value4), BytesRead);
//1
ReadProcessMemory(IDProcess, Ptr(Value3 + (BLNode)), @Value4, SizeOf(Value4), BytesRead);
ReadProcessMemory(IDProcess, Ptr(Value4 + BattleName1), @Name1, SizeOf(Name1), BytesRead);
//2
ReadProcessMemory(IDProcess, Ptr(Value3 + (BLNode+4)), @Value5, SizeOf(Value5), BytesRead);
ReadProcessMemory(IDProcess, Ptr(Value5 + BattleName1), @Name2, SizeOf(Name2), BytesRead);
//3
ReadProcessMemory(IDProcess, Ptr(Value3 + (BLNode+8)), @Value6, SizeOf(Value6), BytesRead);
ReadProcessMemory(IDProcess, Ptr(Value6 + BattleName1), @Name3, SizeOf(Name3), BytesRead);
Nick1 := (MemReadString(StrToInt64('$' + IntToHex(Name1 + BattleName2, 8))));
Nick2 := (MemReadString(StrToInt64('$' + IntToHex(Name2 + BattleName2, 8))));
Nick3 := (MemReadString(StrToInt64('$' + IntToHex(Name3 + BattleName2, 8))));
//1
Form16.ListBox1.Items.Add(&Nick1);
//2 chce uzyskac kolejny wynik
Form16.ListBox1.Items.Add(&Nick2);
//3 chce uzyskac kolejny wynik
Form16.ListBox1.Items.Add(&Nick3);
end;
Chciałbym dążyć do tego, bym nie musiał nick1, nick2, nick3 wpisywać manualnie robiąc sobie syf w kodzie. Rozwiązaniem tego było by to, by po dodaniu Form16.ListBox1.Items.Add(&Nick1); kod wrócił do ReadProcessMemory(IDProcess, Ptr(Value3 + (BLNode)), @Value4, SizeOf(Value4), BytesRead); i do "BL Node" dodał 4. Wiem że to może nie być łatwe, ale czy mógłby mi ktoś udzielić informacji jak to zrobić?
Jak ktoś ma zamiar pisać zdania typu "IDŹ POCZYTAJ, NAUCZ SIĘ ITP" to lepiej by tego nie robił, bo jakby każdy wszystko wiedział to by fora o tej tematyce nie były potrzebne.
Dziękuję.