[Help]Write memory[Solved]

Module Module1
    Private Declare Function KGCDGTJAWN Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
    Private Declare Function XGYCUGJWNY Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    Private Declare Function FPUZNYCHAH 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 IntegModule Module1
    Private Declare Function KGCDGTJAWN Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
    Private Declare Function XGYCUGJWNY Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    Private Declare Function FPUZNYCHAH 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 Integer
    Private Declare Function JRJVQUWGWR Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByRef buffer As Single, ByVal size As Int32, ByRef lpNumberOfBytesRead As Int32) As Boolean
    Private Declare Function ICZQYVKUOB 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
    Private Declare Function EFJKPZAUQL Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Integer) As Integer
    Public Declare Function URTCMJIKNU Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer

    Dim GWXUSXTOUE As Long
    Dim GYWCPXLNGO As Single
    Dim KEUSKTQTTY As Integer

    Private string1 As Long
    Private string2 As Integer

    'WriteMemory
    Public Function OIBGHGEJUO(ByVal ITSGLVPNZG As Integer, ByVal DAKUVAQVRQ As Long, ByVal MFXXWRYZOA As Integer)
        Dim UUSLJJBKZE As Process() = Process.GetProcessesByName("BlackOps")
        If UUSLJJBKZE.Length = 0 Then
            End
        End If
        Dim KCUKNTYTGO As IntPtr = KGCDGTJAWN(&H1F0FFF, 0, UUSLJJBKZE(0).Id)
        XGYCUGJWNY(KCUKNTYTGO, ITSGLVPNZG, DAKUVAQVRQ, MFXXWRYZOA, Nothing)
        EFJKPZAUQL(KCUKNTYTGO)
        Return False
    End Function

    'ReadFloat
    Public Function RYGKMMXSWQ(ByVal ITSGLVPNZG As Single)
        Dim UUSLJJBKZE As Process() = Process.GetProcessesByName("BlackOps")
        If UUSLJJBKZE.Length = 0 Then
            MsgBox("CoD was not found", MsgBoxStyle.Information, "M-efti's Trainer - Error")
            End
        End If
        Dim KCUKNTYTGO As IntPtr = KGCDGTJAWN(&H1F0FFF, 0, UUSLJJBKZE(0).Id)
        ICZQYVKUOB(KCUKNTYTGO, ITSGLVPNZG, GWXUSXTOUE, 4, Nothing)
        EFJKPZAUQL(KCUKNTYTGO)
        Return GWXUSXTOUE
    End Function

    'WriteFloat
    Public Function JYRXFUZNYB(ByVal ITSGLVPNZG As Integer, ByVal DAKUVAQVRQ As Single)
        Dim UUSLJJBKZE As Process() = Process.GetProcessesByName("BlackOps")
        If UUSLJJBKZE.Length = 0 Then
            MsgBox("CoD was not found", MsgBoxStyle.Information, "M-efti's Trainer - Error")
            End
        End If
        Dim KCUKNTYTGO As IntPtr = KGCDGTJAWN(&H1F0FFF, 0, UUSLJJBKZE(0).Id)
        FPUZNYCHAH(KCUKNTYTGO, ITSGLVPNZG, DAKUVAQVRQ, 4, Nothing)
        EFJKPZAUQL(KCUKNTYTGO)
        Return False
    End Function

    'ReadLong
    Public Function LMFZLSBGQK(ByVal ITSGLVPNZG As Integer)
        Dim UUSLJJBKZE As Process() = Process.GetProcessesByName("BlackOps")
        If UUSLJJBKZE.Length = 0 Then
            MsgBox("CoD was not found", MsgBoxStyle.Information, "M-efti's Trainer - Error")
            End
        End If
        Dim KCUKNTYTGO As IntPtr = KGCDGTJAWN(&H1F0FFF, 0, UUSLJJBKZE(0).Id)
        ICZQYVKUOB(KCUKNTYTGO, ITSGLVPNZG, GWXUSXTOUE, 4, Nothing)
        EFJKPZAUQL(KCUKNTYTGO)
        Return GWXUSXTOUE
    End Function

    'ReadFloatPointer
    Public Function UNLJTJYDXU(ByVal RDFAGMHRVL As Integer, ByVal QKNCVNKXXV As Short)
        Dim FNURQYKINX As Long
        Dim UUSLJJBKZE As Process() = Process.GetProcessesByName("BlackOps")
        If UUSLJJBKZE.Length = 0 Then
            MsgBox("CoD was not found", MsgBoxStyle.Information, "M-efti's Trainer - Error")
            End
        End If
        Dim KCUKNTYTGO As IntPtr = KGCDGTJAWN(&H1F0FFF, 0, UUSLJJBKZE(0).Id)
        ICZQYVKUOB(KCUKNTYTGO, RDFAGMHRVL, GWXUSXTOUE, 4, Nothing)
        FNURQYKINX = GWXUSXTOUE + QKNCVNKXXV
        JRJVQUWGWR(KCUKNTYTGO, FNURQYKINX, GYWCPXLNGO, 4, Nothing)
        Return GYWCPXLNGO
        EFJKPZAUQL(KCUKNTYTGO)
    End Function

    'ReadLongPointer
    Public Function HSOBAWIGEE(ByVal RDFAGMHRVL As Integer, ByVal QKNCVNKXXV As Short, ByVal MFXXWRYZOA As Integer)
        Dim FNURQYKINX As Long
        Dim UUSLJJBKZE As Process() = Process.GetProcessesByName("BlackOps")
        If UUSLJJBKZE.Length = 0 Then
            MsgBox("CoD was not found", MsgBoxStyle.Information, "M-efti's Trainer - Error")
            End
        End If
        Dim KCUKNTYTGO As IntPtr = KGCDGTJAWN(&H1F0FFF, 0, UUSLJJBKZE(0).Id)
        ICZQYVKUOB(KCUKNTYTGO, RDFAGMHRVL, GWXUSXTOUE, 4, Nothing)
        FNURQYKINX = GWXUSXTOUE + QKNCVNKXXV
        ICZQYVKUOB(KCUKNTYTGO, FNURQYKINX, KEUSKTQTTY, MFXXWRYZOA, Nothing)
        Return KEUSKTQTTY
        EFJKPZAUQL(KCUKNTYTGO)
    End Function
    'ReadLong2
    '    Public Function ReadLong(ByVal Base As Integer, ByVal Bytes As Integer, ByRef lpBuffer As Integer)
    '        Dim fullAddress As Long
    '        Dim BlackOpsLookUp As Process() = Process.GetProcessesByName("BlackOps")
    '        If BlackOpsLookUp.Length = 0 Then
    '            MsgBox("CoD was not found", MsgBoxStyle.Information, "M-efti's Trainer - Error")
    '            End
    '        End If
    '        Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, BlackOpsLookUp(0).Id)
    '        ReadProcessMemory(processHandle, Base, RBuff1, 4, Nothing)
    '        fullAddress = RBuff1 + Offset
    '        ReadProcessMemory(processHandle, fullAddress, RBuff3, Bytes, Nothing)
    '        Return RBuff1
    '        CloseHandle(processHandle)
    '    End Function

    'WriteFloatPointer
    Public Function OFSRMPMZGN(ByVal RDFAGMHRVL As Integer, ByVal QKNCVNKXXV As Short, ByVal DAKUVAQVRQ As Single)
        Dim FNURQYKINX As Long
        Dim UUSLJJBKZE As Process() = Process.GetProcessesByName("BlackOps")
        If UUSLJJBKZE.Length = 0 Then
            MsgBox("CoD was not found", MsgBoxStyle.Information, "M-efti's Trainer - Error")
            End
        End If
        Dim KCUKNTYTGO As IntPtr = KGCDGTJAWN(&H1F0FFF, 0, UUSLJJBKZE(0).Id)
        ICZQYVKUOB(KCUKNTYTGO, RDFAGMHRVL, GWXUSXTOUE, 4, Nothing)
        FNURQYKINX = GWXUSXTOUE + QKNCVNKXXV
        FPUZNYCHAH(KCUKNTYTGO, FNURQYKINX, DAKUVAQVRQ, 4, Nothing)
        EFJKPZAUQL(KCUKNTYTGO)
        Return False
    End Function

    'WriteLongPointer
    Public Function SLQHHLRESX(ByVal RDFAGMHRVL As Integer, ByVal QKNCVNKXXV As Short, ByVal DAKUVAQVRQ As Long, ByVal MFXXWRYZOA As Integer)
        Dim FNURQYKINX As Long
        Dim UUSLJJBKZE As Process() = Process.GetProcessesByName("BlackOps")
        If UUSLJJBKZE.Length = 0 Then
            MsgBox("CoD was not found", MsgBoxStyle.Information, "M-efti's Trainer - Error")
            End
        End If
        Dim KCUKNTYTGO As IntPtr = KGCDGTJAWN(&H1F0FFF, 0, UUSLJJBKZE(0).Id)
        ICZQYVKUOB(KCUKNTYTGO, RDFAGMHRVL, GWXUSXTOUE, 4, Nothing)
        FNURQYKINX = GWXUSXTOUE + QKNCVNKXXV
        XGYCUGJWNY(KCUKNTYTGO, FNURQYKINX, DAKUVAQVRQ, MFXXWRYZOA, Nothing)
        EFJKPZAUQL(KCUKNTYTGO)
        Return False
    End Function

    'NOP
    Public Function JPKNTUEGKH(ByVal ITSGLVPNZG As Integer, ByVal DAKUVAQVRQ As Integer)
        Dim UUSLJJBKZE As Process() = Process.GetProcessesByName("BlackOps")
        If UUSLJJBKZE.Length = 0 Then
            MsgBox("CoD was not found", MsgBoxStyle.Information, "M-efti's Trainer - Error")
            End
        End If
        Dim KCUKNTYTGO As IntPtr = KGCDGTJAWN(&H1F0FFF, 0, UUSLJJBKZE(0).Id)
        XGYCUGJWNY(KCUKNTYTGO, ITSGLVPNZG, DAKUVAQVRQ, 1, Nothing)
        EFJKPZAUQL(KCUKNTYTGO)
        Return False
    End Function



    Public Function writememory(ByVal address As String, ByVal value As Long, ByVal Bytes As Integer)

        string1 = readdll("cshell.dll")
        string2 = "&H" & Hex(string1 + address)
        Call OIBGHGEJUO(string2, value, Bytes)

        Return Nothing
    End Function

    Public Function writefloat(ByVal address As String, ByVal value As Long)

        string1 = readdll("cshell.dll")
        string2 = "&H" & Hex(string1 + address)
        Call JYRXFUZNYB(string2, value)

        Return Nothing
    End Function
End Module