Ajuda Visual Basics ou Delphi

[pedrokkklol 0]

Queria fazer um memory write no delphi ou no vb

eis o codigigo Visual Basics

Dim processArray As Process() = Process.GetProcessesByName("war3")

If (processArray.Length = 0) Then

Me.WriteToLog("Error: Open Warcraft III first.")

Return

End If

Dim process As Process

For Each process In processArray

Dim handle As IntPtr = process.Handle

Dim num As Integer = 0

Dim module As ProcessModule

For Each module In processArray(0).Modules

If ([module].ModuleName.ToLower = "game.dll") Then

num = [module].BaseAddress.ToInt32

Exit For

End If

Next

If (num = 0) Then

Me.WriteToLog("Error: Didn't find game.dll?")

Return

End If

If (Me.revealUnitsMainmap.IsChecked = True) Then

Memory.Write(handle, DirectCast((num + &H39EBBC), IntPtr), Me.StringToByteArray("75"), 1, 0)

Memory.Write(handle, DirectCast((num + &H3A2030), IntPtr), Me.StringToByteArray("9090"), 2, 0)

Memory.Write(handle, DirectCast((num + &H3A20DB), IntPtr), Me.StringToByteArray("9090"), 2, 0)

Memory.Write(handle, DirectCast((num + &H28357C), IntPtr), Me.StringToByteArray("40C3"), 2, 0)

Memory.Write(handle, DirectCast((num + &H39A5D8), IntPtr), Me.StringToByteArray("EB"), 1, 0)

Memory.Write(handle, DirectCast((num + &H3A201B), IntPtr), Me.StringToByteArray("EB"), 1, 0)

 

 

 

Codigo Delphi

processArray := Process.GetProcessesByName('war3');

if (processArray.Length = 0) then

begin

self.WriteToLog('Error: Open Warcraft III first.');

exit

end;

 

for process in processArray do

begin

handle := process.Handle;

num := 0;

 

for module in processArray[0].Modules do

begin

if (module.ModuleName.ToLower = 'game.dll') then

begin

num := module.BaseAddress.ToInt32;

break;

 

end

end;

if (num = 0) then

begin

self.WriteToLog('Error: Didn''t find game.dll?');

exit

end;

if (self.revealUnitsMainmap.IsChecked = true) then

begin

Memory.Write(handle, ((num + $39ebbc) as IntPtr), self.StringToByteArray('75'), 1, 0);

Memory.Write(handle, ((num + $3a2030) as IntPtr), self.StringToByteArray('9090'), 2, 0);

Memory.Write(handle, ((num + $3a20db) as IntPtr), self.StringToByteArray('9090'), 2, 0);

Memory.Write(handle, ((num + $28357c) as IntPtr), self.StringToByteArray('40C3'), 2, 0);

Memory.Write(handle, ((num + $39a5d8) as IntPtr), self.StringToByteArray('EB'), 1, 0);

Memory.Write(handle, ((num + $3a201b) as IntPtr), self.StringToByteArray('EB'), 1, 0);

 

Só quero usar esse memory wirther como um patcher ...

quando clicar abilitar o Map Hack do Warcraft. esse é o codigo não quero para o Garena.. só quero aprender como faz.