{Help!}

 Public Declare Function FCCA4A98 Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, ByVal lpdwID As Long) As Long
    Public Declare Function FEC6BFD6 Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwID As Long) As Long
    Public Declare Function F802DA4C Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, ByVal lpBuffer As Long, ByVal nSize As Long, ByVal lpNumberOfBytesWritten As Long) As Long
    Public Declare Function FF16D83D Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
    Public Declare Function F7985695 Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
    Public Declare Function C7EE08F7 Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, ByRef lpBuffer As Long, ByVal nSize As Long, ByVal lpNumberOfBytesWritten As Long) As Long
    Public Declare Function E77B595A Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer

    'WriteALong
    Public Function AF4E60B4(ByVal C408C874 As Long, ByVal A20BC8B2 As Long)
        Dim BAE65404 As Long
        Dim C6443B88 As Long
        Dim ABDE1F22 As Long

        BAE65404 = F7985695(vbNullString, "WindowName as String")

        If (BAE65404 = 0) Then
        End If

        FCCA4A98(BAE65404, ABDE1F22)

        C6443B88 = FEC6BFD6(&H1F0FFF, False, ABDE1F22)

        If (C6443B88 = 0) Then

        End If

        F802DA4C(C6443B88, C408C874, A20BC8B2, 4, 0&)

        FF16D83D(C6443B88)


        'WriteAByte
        End
    End Function
    Public Function C9E14EE0(ByVal C408C874 As Long, ByVal A20BC8B2 As Byte)
        Dim BAE65404 As Long
        Dim C6443B88 As Long
        Dim ABDE1F22 As Long

        BAE65404 = F7985695(vbNullString, "WindowName as String")

        If (BAE65404 = 0) Then

        End If

        FCCA4A98(BAE65404, ABDE1F22)

        C6443B88 = FEC6BFD6(&H1F0FFF, False, ABDE1F22)

        If (C6443B88 = 0) Then

        End If

        F802DA4C(C6443B88, C408C874, A20BC8B2, 1, 0&)

        FF16D83D(C6443B88)
        End
    End Function

    'WriteAFloat
    Public Function CB280065(ByVal C408C874 As Long, ByVal A20BC8B2 As Double)
        Dim BAE65404 As Long
        Dim C6443B88 As Long
        Dim ABDE1F22 As Long

        BAE65404 = F7985695(vbNullString, "WindowName as String")

        If (BAE65404 = 0) Then

        End If

        FCCA4A98(BAE65404, ABDE1F22)

        C6443B88 = FEC6BFD6(&H1F0FFF, False, ABDE1F22)

        If (C6443B88 = 0) Then

        End If

        F802DA4C(C6443B88, C408C874, A20BC8B2, 4, 0&)

        FF16D83D(C6443B88)
        End
    End Function

    'ReadALong
    Public Function A4BFCC58(ByVal C408C874 As Long, ByVal A20BC8B2 As Long)
        Dim BAE65404 As Long
        Dim C6443B88 As Long
        Dim ABDE1F22 As Long

        BAE65404 = F7985695(vbNullString, "WindowName as String")

        If (BAE65404 = 0) Then

        End If

        FCCA4A98(BAE65404, ABDE1F22)

        C6443B88 = FEC6BFD6(&H1F0FFF, False, ABDE1F22)

        If (C6443B88 = 0) Then

        End If

        C7EE08F7(C6443B88, C408C874, A20BC8B2, 4, 0&)

        FF16D83D(C6443B88)
        End
    End Function

    'ReadAByte
    Public Function F6481D74(ByVal C408C874 As Long, ByVal A20BC8B2 As Byte)
        Dim BAE65404 As Long
        Dim C6443B88 As Long
        Dim ABDE1F22 As Long

        BAE65404 = F7985695(vbNullString, "WindowName as String")

        If (BAE65404 = 0) Then

        End If

        FCCA4A98(BAE65404, ABDE1F22)

        C6443B88 = FEC6BFD6(&H1F0FFF, False, ABDE1F22)

        If (C6443B88 = 0) Then

        End If

        C7EE08F7(C6443B88, C408C874, A20BC8B2, 1, 0&)

        FF16D83D(C6443B88)
        End
    End Function

    'ReadAFloat
    Public Function C16EDCCE(ByVal C408C874 As Long, ByVal A20BC8B2 As Double)
        Dim BAE65404 As Long
        Dim C6443B88 As Long
        Dim ABDE1F22 As Long

        BAE65404 = F7985695(vbNullString, "WindowName as String")

        If (BAE65404 = 0) Then

        End If

        FCCA4A98(BAE65404, ABDE1F22)

        C6443B88 = FEC6BFD6(&H1F0FFF, False, ABDE1F22)

        If (C6443B88 = 0) Then

        End If

        C7EE08F7(C6443B88, C408C874, A20BC8B2, 4, 0&)

        FF16D83D(C6443B88)
        End
    End Function