[Help] Trainer [Solved]

Hello again.
i finished my trainer, but i have a problem.
after using it it fu**s up the game.
i get an error saying that patch_mp.ff is different from the servers.
I allready fixed the game on my computer but on my friends computer he still have the problem.
Blubb helped by creating the modules and thats why i dont understand that there is a problem. If i had created it all by myself would it be quite normal.
Here is the code:
Form1:

Code:

Public Class Form1


    Dim string1 As Long
    Dim string2 As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'deaths
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2B8B8)
            Call OIBGHGEJUO(string2, NumericUpDown1.Value, 4)
        Catch ex As exception
        End Try

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'kills
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2B8B0)
            Call OIBGHGEJUO(string2, NumericUpDown2.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'Ak47
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF45)
            Call OIBGHGEJUO(string2, NumericUpDown3.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        'F2000
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF6C)
            Call OIBGHGEJUO(string2, NumericUpDown4.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        'ACR
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF5C)
            Call OIBGHGEJUO(string2, NumericUpDown5.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        'M16A4
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF25)
            Call OIBGHGEJUO(string2, NumericUpDown6.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        'FAL
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF3D)
            Call OIBGHGEJUO(string2, NumericUpDown7.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        'Tar-21
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF35)
            Call OIBGHGEJUO(string2, NumericUpDown8.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        'SCAR H
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF64)
            Call OIBGHGEJUO(string2, NumericUpDown9.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        'FAMAS
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF2D)
            Call OIBGHGEJUO(string2, NumericUpDown10.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        'M4A1
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF54)
            Call OIBGHGEJUO(string2, NumericUpDown11.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        'UMP45
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF8D)
            Call OIBGHGEJUO(string2, NumericUpDown12.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        'MP5K
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BFA2)
            Call OIBGHGEJUO(string2, NumericUpDown13.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        'VECTOR
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF86)
            Call OIBGHGEJUO(string2, NumericUpDown14.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        'P90
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF9B)
            Call OIBGHGEJUO(string2, NumericUpDown15.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        'Mini Uzi
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF94)
            Call OIBGHGEJUO(string2, NumericUpDown16.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        'L86 LSG
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BFB0)
            Call OIBGHGEJUO(string2, NumericUpDown17.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        'RPD
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BFA9)
            Call OIBGHGEJUO(string2, NumericUpDown18.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        'MG4
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BFC34)
            Call OIBGHGEJUO(string2, NumericUpDown19.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        'AUG HBAR
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BFB7)
            Call OIBGHGEJUO(string2, NumericUpDown20.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
        'M240
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF4D)
            Call OIBGHGEJUO(string2, NumericUpDown21.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
        'Intervention
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF74)
            Call OIBGHGEJUO(string2, NumericUpDown22.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
        'Barret50cal
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF7A)
            Call OIBGHGEJUO(string2, NumericUpDown23.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
        'WA2000
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BFBE)
            Call OIBGHGEJUO(string2, NumericUpDown24.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
        'M21 EBR
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF80)
            Call OIBGHGEJUO(string2, NumericUpDown25.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
        'Ghilie 
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2C032)
            Call OIBGHGEJUO(string2, NumericUpDown26.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
        'Headshots
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2B8C4)
            Call OIBGHGEJUO(string2, NumericUpDown27.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
        'Wins
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2B8E4)
            Call OIBGHGEJUO(string2, NumericUpDown28.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click
        'Losses
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2B8E8)
            Call OIBGHGEJUO(string2, NumericUpDown29.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click
        'deaths
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2B8B8)
            Call OIBGHGEJUO(string2, NumericUpDown30.Value, 4)
        Catch ex As Exception
        End Try

    End Sub

    Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click
        'kills
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2B8B0)
            Call OIBGHGEJUO(string2, NumericUpDown31.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click
        'Info
        MsgBox("Camos:  1= Weapon unlocked          2= Woodland           3= Digital       4= Urban         5= Blue Tiger          6= Red Tiger          7= Fall")


    End Sub
End Class

Module1:

Code:

Module Module1

    Private Declare Function TYKKABMBQU Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
    Private Declare Function BEXOBTUFNE 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 OMJZAHPQKN 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 NTRBPISWMX 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 JSSBOLXQYI 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 AAUBSVVZFS Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Integer) As Integer
    Public Declare Function ULUHVAGOMA Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer


    Public CUQEOTZZZK As Long
    Public GWGBROTYVU As Single
    Public FHVVZPHLND As Integer

    'WriteMemory
    Public Function OIBGHGEJUO(ByVal BKFPQUXMPO As Integer, ByVal KLLAYLUJWY As Long, ByVal EBTAURQFTH As Integer)
        Dim ZNKEYWAMJL As Process() = Process.GetProcessesByName("iw4mp")
        If ZNKEYWAMJL.Length = 0 Then
            End
        End If
        Dim UUBRHBBUBV As IntPtr = TYKKABMBQU(&H1F0FFF, 0, ZNKEYWAMJL(0).Id)
        BEXOBTUFNE(UUBRHBBUBV, BKFPQUXMPO, KLLAYLUJWY, EBTAURQFTH, Nothing)
        AAUBSVVZFS(UUBRHBBUBV)
    End Function

    'ReadFloat
    Public Function OPJHXHHPWY(ByVal BKFPQUXMPO As Single)
        Dim ZNKEYWAMJL As Process() = Process.GetProcessesByName("iw4mp")
        If ZNKEYWAMJL.Length = 0 Then
            End
        End If
        Dim UUBRHBBUBV As IntPtr = TYKKABMBQU(&H1F0FFF, 0, ZNKEYWAMJL(0).Id)
        JSSBOLXQYI(UUBRHBBUBV, BKFPQUXMPO, CUQEOTZZZK, 4, Nothing)
        AAUBSVVZFS(UUBRHBBUBV)
        Return CUQEOTZZZK
    End Function

    'WriteFloat
    Public Function RZPQKEXCYH(ByVal BKFPQUXMPO As Integer, ByVal KLLAYLUJWY As Single)
        Dim ZNKEYWAMJL As Process() = Process.GetProcessesByName("iw4mp")
        If ZNKEYWAMJL.Length = 0 Then
            End
        End If
        Dim UUBRHBBUBV As IntPtr = TYKKABMBQU(&H1F0FFF, 0, ZNKEYWAMJL(0).Id)
        OMJZAHPQKN(UUBRHBBUBV, BKFPQUXMPO, KLLAYLUJWY, 4, Nothing)
        AAUBSVVZFS(UUBRHBBUBV)
    End Function

    'ReadLong
    Public Function HGQPPNVLFQ(ByVal BKFPQUXMPO As Integer)
        Dim ZNKEYWAMJL As Process() = Process.GetProcessesByName("iw4mp")
        If ZNKEYWAMJL.Length = 0 Then
            End
        End If
        Dim UUBRHBBUBV As IntPtr = TYKKABMBQU(&H1F0FFF, 0, ZNKEYWAMJL(0).Id)
        JSSBOLXQYI(UUBRHBBUBV, BKFPQUXMPO, CUQEOTZZZK, 4, Nothing)
        AAUBSVVZFS(UUBRHBBUBV)
        Return CUQEOTZZZK
    End Function

    'ReadFloatPointer
    Public Function VHMOCAVHXB(ByVal EDSIRRIFFR As Integer, ByVal IJQYMNNKRB As Short)
        Dim CAPVITJYXF As Long
        Dim ZNKEYWAMJL As Process() = Process.GetProcessesByName("iw4mp")
        If ZNKEYWAMJL.Length = 0 Then
            End
        End If
        Dim UUBRHBBUBV As IntPtr = TYKKABMBQU(&H1F0FFF, 0, ZNKEYWAMJL(0).Id)
        JSSBOLXQYI(UUBRHBBUBV, EDSIRRIFFR, CUQEOTZZZK, 4, Nothing)
        CAPVITJYXF = CUQEOTZZZK + IJQYMNNKRB
        NTRBPISWMX(UUBRHBBUBV, CAPVITJYXF, GWGBROTYVU, 4, Nothing)
        Return GWGBROTYVU
        AAUBSVVZFS(UUBRHBBUBV)
    End Function

    'ReadLongPointer
    Public Function DQILWSOSJK(ByVal EDSIRRIFFR As Integer, ByVal IJQYMNNKRB As Short, ByVal EBTAURQFTH As Integer)
        Dim CAPVITJYXF As Long
        Dim ZNKEYWAMJL As Process() = Process.GetProcessesByName("iw4mp")
        If ZNKEYWAMJL.Length = 0 Then
            End
        End If
        Dim UUBRHBBUBV As IntPtr = TYKKABMBQU(&H1F0FFF, 0, ZNKEYWAMJL(0).Id)
        JSSBOLXQYI(UUBRHBBUBV, EDSIRRIFFR, CUQEOTZZZK, 4, Nothing)
        CAPVITJYXF = CUQEOTZZZK + IJQYMNNKRB
        JSSBOLXQYI(UUBRHBBUBV, CAPVITJYXF, FHVVZPHLND, EBTAURQFTH, Nothing)
        Return FHVVZPHLND
        AAUBSVVZFS(UUBRHBBUBV)
    End Function

    'WriteFloatPointer
    Public Function HSXHYOIRGV(ByVal EDSIRRIFFR As Integer, ByVal IJQYMNNKRB As Short, ByVal KLLAYLUJWY As Single)
        Dim CAPVITJYXF As Long
        Dim ZNKEYWAMJL As Process() = Process.GetProcessesByName("iw4mp")
        If ZNKEYWAMJL.Length = 0 Then
            End
        End If
        Dim UUBRHBBUBV As IntPtr = TYKKABMBQU(&H1F0FFF, 0, ZNKEYWAMJL(0).Id)
        JSSBOLXQYI(UUBRHBBUBV, EDSIRRIFFR, CUQEOTZZZK, 4, Nothing)
        CAPVITJYXF = CUQEOTZZZK + IJQYMNNKRB
        OMJZAHPQKN(UUBRHBBUBV, CAPVITJYXF, KLLAYLUJWY, 4, Nothing)
        AAUBSVVZFS(UUBRHBBUBV)
    End Function

    'WriteLongPointer
    Public Function GDNCGPWEXE(ByVal EDSIRRIFFR As Integer, ByVal IJQYMNNKRB As Short, ByVal KLLAYLUJWY As Long, ByVal EBTAURQFTH As Integer)
        Dim CAPVITJYXF As Long
        Dim ZNKEYWAMJL As Process() = Process.GetProcessesByName("iw4mp")
        If ZNKEYWAMJL.Length = 0 Then
            End
        End If
        Dim UUBRHBBUBV As IntPtr = TYKKABMBQU(&H1F0FFF, 0, ZNKEYWAMJL(0).Id)
        JSSBOLXQYI(UUBRHBBUBV, EDSIRRIFFR, CUQEOTZZZK, 4, Nothing)
        CAPVITJYXF = CUQEOTZZZK + IJQYMNNKRB
        BEXOBTUFNE(UUBRHBBUBV, CAPVITJYXF, KLLAYLUJWY, EBTAURQFTH, Nothing)
        AAUBSVVZFS(UUBRHBBUBV)
    End Function

    'NOP
    Public Function CGXWYTMFZO(ByVal BKFPQUXMPO As Integer, ByVal KLLAYLUJWY As Integer)
        Dim ZNKEYWAMJL As Process() = Process.GetProcessesByName("iw4mp")
        If ZNKEYWAMJL.Length = 0 Then
            End
        End If
        Dim UUBRHBBUBV As IntPtr = TYKKABMBQU(&H1F0FFF, 0, ZNKEYWAMJL(0).Id)
        BEXOBTUFNE(UUBRHBBUBV, BKFPQUXMPO, KLLAYLUJWY, 1, Nothing)
        AAUBSVVZFS(UUBRHBBUBV)
    End Function




End Module

Module2:

Code:

Module Module2
    'readdll
    Public Function readdll(ByVal modulename As String)
        Dim procmodule As ProcessModule
        Dim constant1 As Integer
        Dim constant2 As Long
        Dim constant3 As Process() = Process.GetProcessesByName("iw4mp")
        If constant3.Length = 0 Then
            Return 0
        End If
        For Each procmodule In constant3(0).Modules
            If modulename = procmodule.ModuleName Then
                constant1 = procmodule.BaseAddress
            End If
        Next
        constant2 = constant1
        Return constant2
    End Function
End Module

Screenshot of the exe:

please help.. i have no idear whats wrong.

Edit
Something wierd happened.. My friend clicked verify game somthing in properties and then 15min. later he went in cod and it all worked again...
the verify thing said that nothing was wrong.
I got my game to work by using a backup and a Patch_mp.ff i got from another friend of mine.
I dont know if this means that there is nothing wrong with the program. If so tell me and delete post.

Code:

Public Class Form1


    Dim string1 As Long
    Dim string2 As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'deaths
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2B8B8)
            Call OIBGHGEJUO(string2, NumericUpDown1.Value, 4)
        Catch ex As exception
        End Try

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'kills
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2B8B0)
            Call OIBGHGEJUO(string2, NumericUpDown2.Value, 4)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'Ak47
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF45)
            Call OIBGHGEJUO(string2, NumericUpDown3.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        'F2000
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF6C)
            Call OIBGHGEJUO(string2, NumericUpDown4.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        'ACR
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF5C)
            Call OIBGHGEJUO(string2, NumericUpDown5.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        'M16A4
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF25)
            Call OIBGHGEJUO(string2, NumericUpDown6.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        'FAL
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF3D)
            Call OIBGHGEJUO(string2, NumericUpDown7.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        'Tar-21
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF35)
            Call OIBGHGEJUO(string2, NumericUpDown8.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        'SCAR H
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF64)
            Call OIBGHGEJUO(string2, NumericUpDown9.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        'FAMAS
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF2D)
            Call OIBGHGEJUO(string2, NumericUpDown10.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        'M4A1
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF54)
            Call OIBGHGEJUO(string2, NumericUpDown11.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        'UMP45
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF8D)
            Call OIBGHGEJUO(string2, NumericUpDown12.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        'MP5K
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BFA2)
            Call OIBGHGEJUO(string2, NumericUpDown13.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        'VECTOR
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF86)
            Call OIBGHGEJUO(string2, NumericUpDown14.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        'P90
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF9B)
            Call OIBGHGEJUO(string2, NumericUpDown15.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        'Mini Uzi
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF94)
            Call OIBGHGEJUO(string2, NumericUpDown16.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        'L86 LSG
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BFB0)
            Call OIBGHGEJUO(string2, NumericUpDown17.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        'RPD
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BFA9)
            Call OIBGHGEJUO(string2, NumericUpDown18.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        'MG4
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BFC34)
            Call OIBGHGEJUO(string2, NumericUpDown19.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        'AUG HBAR
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BFB7)
            Call OIBGHGEJUO(string2, NumericUpDown20.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
        'M240
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF4D)
            Call OIBGHGEJUO(string2, NumericUpDown21.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
        'Intervention
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF74)
            Call OIBGHGEJUO(string2, NumericUpDown22.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
        'Barret50cal
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF7A)
            Call OIBGHGEJUO(string2, NumericUpDown23.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
        'WA2000
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BFBE)
            Call OIBGHGEJUO(string2, NumericUpDown24.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
        'M21 EBR
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2BF80)
            Call OIBGHGEJUO(string2, NumericUpDown25.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
        'Ghilie 
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2C032)
            Call OIBGHGEJUO(string2, NumericUpDown26.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
        'Headshots
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2B8C4)
            Call OIBGHGEJUO(string2, NumericUpDown27.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
        'Wins
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2B8E4)
            Call OIBGHGEJUO(string2, NumericUpDown28.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click
        'Losses
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2B8E8)
            Call OIBGHGEJUO(string2, NumericUpDown29.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click
        'deaths
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2B8B8)
            Call OIBGHGEJUO(string2, NumericUpDown30.Value, 1)
        Catch ex As Exception
        End Try

    End Sub

    Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click
        'kills
        Try
            string1 = readdll("cshell.dll")
            string2 = "&H" + Hex(string1 + &H1B2B8B0)
            Call OIBGHGEJUO(string2, NumericUpDown31.Value, 1)
        Catch ex As Exception
        End Try

    End Sub
    Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click
        'Info
        MsgBox("Camos:  1= Weapon unlocked          2= Woodland           3= Digital       4= Urban         5= Blue Tiger          6= Red Tiger          7= Fall")


    End Sub
End Class

Fixxed it for you. This should actually work.

The bytelength of the expert challenge is 1. You actually used 4 as bytelength, which is wrong. Enjoy.

[Help] Trainer [Solved]

Post a Reply

Similar Threads

Tags for this Thread