[Guida]Come creare LockMob VB.Net (Metin2)

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 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
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 Const PROCESS_ALL_ACCESS = &H1F0FFF
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId 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 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 buff As String
Public hProcess As Long
Public Function caricaProcesso()
        Dim MetinProcesso As Process()
        MetinProcesso = Process.GetProcessesByName("metin2client.bin")
        If MetinProcesso.Length <> 0 Then
            hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, MetinProcesso(0).Id)
            If hProcess = IntPtr.Zero Then
                MsgBox("Unable To Open Process!", MsgBoxStyle.Critical, "Errore")
                End
            End If
        Else
        If MetinProcesso.Length = 0 Then
            MsgBox("Devi prima aprire il gioco!", MsgBoxStyle.Critical, "Errore!")
            End
        End If
        Return True
    End Function

caricaProcesso()

Public Function GetAdd(ByVal Addybase As String, ByVal of1 As Integer, ByVal of2 As Integer)
        Dim addy As String
        ReadProcessMemory(hProcess, "&H" & Addybase, buff, 4, Nothing)
        addy = "&H" & Conversion.Hex(buff + of1)
        ReadProcessMemory(hProcess, addy, buff, 4, Nothing)
        addy = "&H" & Conversion.Hex(buff + of2)
        Return addy
    End Function

Public Function X() As String
        ReadSingle(hProcess, GetAdd("619980", 16, 1412), buff, 4, Nothing)
        Return buff
    End Function
    Public Function Y() As String
        ReadSingle(hProcess, GetAdd("619980", 16, 1416), buff, 4, Nothing)
        Return buff
    End Function
    Public Function Z() As String
        ReadSingle(hProcess, GetAdd("619980", 16, 1420), buff, 4, Nothing)
        Return buff
 End Function

                WriteSingle(hProcess, &H600144, X(), 4, Nothing)
                WriteSingle(hProcess, &H60014A, Y(), 4, Nothing)
                WriteSingle(hProcess, &H600153, Z(), 4, Nothing)
                Dim xyz() As Byte = {&HA1, &H44, &H1, &H60, &H0, &H89, &H86, &HA8, &H3, &H0, &H0, &H8B, &HD, &H4A, &H1, &H60, &H0, &H89, &H8E, &HAC, &H3, &H0, &H0, &H8B, &H15, &H53, &H1, &H60, &H0, &H89, &H96, &HB0, &H3, &H0, &H0, &H5F, &HE9, &H9, &H3E, &HEA, &HFF, &H90}
                For i = 0 To xyz.lenght - 1
                WriteByte(hProcess, &H0060015D + i, xyz(i), 1, Nothing)
                Next
                Dim lock() As Byte = {&HE9, &HE2, &HC1, &H15, &H0, &H90}
                For i = 0 To lock.lenght - 1
                WriteByte(hProcess, &H4A3F76 + i,lock(i), 1, Nothing)
                Next

Dim unlock() As Byte = {&H89, &H86, &HA8, &H3, &H0, &H0}
For i = 0 To unlock.lenght - 1
WriteByte(hProcess,&H4A3F76 + i,unlock(i), 1, Nothing)
Next