Lo primero si quieres aprender rápido te aconsejo que bajes el CheatEngine. Y que de ahí, saques los offSets y los pointers fijos del juego. Luego crear módules en el VB2008 / .NET
(este te puede servir)
Modul1.vb
Module Module1
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Long, 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 Declare Function ReadSingle Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Boolean
'Teletransporte
Public Declare Function WriteSingle Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Boolean
Public Declare Function WriteByte Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Byte, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Public Processo As Process() = Process.GetProcessesByName("metin2client.bin")
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
Public AtkMode As Boolean = False
Public rgatkkMode As Boolean = False
Public hitmode As Boolean = False
Public InviMode As Boolean = False
Public MovMode As Boolean = False
Public Function ReturnAddy(ByVal Addybase As String, ByVal Off1 As Integer, ByVal Off2 As Integer) As String
Dim addy As String
ReadProcessMemory(processHandle, "&H" & Addybase, value, 4, Nothing)
addy = "&H" & Conversion.Hex(value + Off1)
ReadProcessMemory(processHandle, addy, value, 4, Nothing)
addy = "&H" & Conversion.Hex(value + Off2)
Return addy
End Function
Public processHandle As IntPtr
Public value As String
End Module
Y hacerlo funcionar, es complicado pero no está mal para el vb2008.
Suerte!
@jack013 said:
Preguntale a mikiller el save xd 
Not Real.