MW3 HACK

<DllImport("kernel32.dll")> _
    Public Shared Function WriteProcessMemory( _
        ByVal hProcess As IntPtr, _
        ByVal lpBaseAddress As IntPtr, _
        ByVal lpBuffer As Byte(), _
        ByVal nSize As UInt32, _
        ByRef lpNumberOfBytesWritten As UInt32 _
    ) As Boolean
    End Function

Dim en1 As Byte() = {&HE9, &H9C, &H23, &HEC, &HFF}
    Dim en2 As Byte() = {&HE9, &H31, &H9A, &HEC, &HFF}

WriteProcessMemory(p(0).Handle, &H49183D, en1, 5, 0)
        WriteProcessMemory(p(0).Handle, &H498ED7, en2, 5, 0)