VB [net] jak odczytac wartosc adresów. i je modyfikowac ?

[ShiValOne]

siemka.

chcialbym zrobic bota do Tibii.

 

jak hp < 40 to wysyla wiadomosc do konsoli gry itd.

 

 

 

 

blad w nazwie tematu.

[Nygol]

Duzo pomogłes -_-. Z czym masz problem?? Masz juz jakiś kod czy chcesz znaleźć leszcza który odwali za Ciebie robote?

[ShiValOne]

dobra. znalazlem Read & Write.

 

wyciagnalem z posta od >>Kaka356<<

 

READ

function ReadMemInteger(Address: Cardinal): Cardinal;      //Read adress:value              << w tym miejscu pokazuje blad.
var
ProcId: Cardinal;
tProc: THandle;
NBR: Cardinal;
value:integer;
begin
       GetWindowThreadProcessId(FindWindow('WINDOW',Nil), @ProcId);
       tProc:= OpenProcess(PROCESS_ALL_ACCESS, False, ProcId);
       ReadProcessMemory(tProc, Ptr(Address), @value, 4, NBR);
       CloseHandle(tProc);
       Result:=value;
end;

 

Potem nadpisująca:

 

procedure MemWriteInteger(Address: Integer; buf: Integer; Length: DWORD);
var ProcID, THandle: Integer;
       e: DWORD;
begin
  GetWindowThreadProcessId(FindWindow('WINDOW',Nil), @ProcID);
  THandle := OpenProcess(PROCESS_ALL_ACCESS, False, ProcID);
  WriteProcessMemory(THandle, Ptr(Address), @buf, Length, e);
  CloseHandle(THandle);
end;

 

i

MemwriteInteger(adres,nowe(np.99),i_liczba_liter_w_nowe(w tym wypadku 2));

 

program jednak wywala blad:

`function' undeclared (first use this function)

 

moze brakuje jakiejs biblioteczlo?

[mjut]

W wywołaniu wpisz 'W' też duże. Swoją drogą jak można pisać w tym #$%^&, przecież ta składnia to porażka

[ShiValOne]

nie wiem o co chodzi kurWa