Y este el que uso yo, Anghios, no se diferencian mucho no? xD y otra cosa, no crees que esto deberia ir en la zona de programacion?
Module Module1
Public Const PROCESS_ALL_ACCESS = &H ***change it***
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Public Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Public myProcesses As Process() = Process.GetProcessesByName("metin2client.bin")
Public processHandle As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, myProcesses(0).Id)
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
Public Function EditMemory(ByVal Pointer As String, ByVal OffSet1 As String, ByVal OffSet2 As String, ByVal Value As String)
Pointer = "&H" & Pointer
Dim buffer As Integer
Dim buffer1 As Integer
Dim off1 = "&H" & OffSet1
Dim off2 = "&H" & OffSet2
Dim val = Value
ReadProcessMemory(processHandle, Pointer, buffer, 4, Nothing)
buffer += off1
ReadProcessMemory(processHandle, buffer, buffer1, 4, Nothing)
buffer1 += off2
WriteProcessMemory(processHandle, buffer1, val, 4, Nothing)
Return 0
End Function
End Module
**Creo que esta bien aqui, ya que el tutorial quieras o no pertenece a hacks y bots :icon_neutral: **
