Tutorial BO SP Zombie Trainer - Printable Version

PHP Code:
Public Class Form1
    Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByVal lpBuffer() As Byte, ByVal nSize As Integer, ByVal lpNumberOfBytesWritten As UInteger) As Boolean
    Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
    Dim bGameIsReady As Boolean = False
    Dim gameProcess As Integer
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Not bGameIsReady = True Then
            Dim p As Process
            For Each p In Process.GetProcesses
                If p.ProcessName = "BlackOps" Then
                    gameProcess = OpenProcess(&H1F0FFF, 1, p.Id)
                    bGameIsReady = True
                    Label2.Text = "Game Found"
                End If
            Next
        End If
    End Sub
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        '1 Player
        If rb_players1.Checked = True Then
            If cb_LockAmmo.Checked Then
                WriteMemInt("&H01BDA7D8", 10) 'Primary ?
                WriteMemInt("&H01BDA7E8", 10) 'Secondary?
            End If
            If cbMoney.Checked = True Then
                WriteMemInt("&H01BDBFA0", 50000)
            End If

            '2 Players
        ElseIf rb_players2.Checked = True Then
            If cb_LockAmmo.Checked Then
                WriteMemInt("&H01BDA7D8", 10) 'Player 1 - Prim
                WriteMemInt("&H01BDA7E8", 10) 'Player 1 - Sec

                WriteMemInt("&H01BDC510", 10) 'Player 2 - Prim 
                WriteMemInt("&H01BDE228", 10) 'Player 2 - Sec
            End If
            If cbMoney.Checked = True Then
                WriteMemInt("&H01BDBFA0", 50000) 'Player 1
                WriteMemInt("&H01BDF9F0", 50000) 'Player 2
            End If

            '3 Players
        ElseIf rb_players3.Checked = True Then
            If cb_LockAmmo.Checked Then
                WriteMemInt("&H01BDA7D8", 10) 'Player 1 - Prim
                WriteMemInt("&H01BDA7E8", 10) 'Player 1 - Sec

                WriteMemInt("&H01BDC510", 10) 'Player 2 - Prim 
                WriteMemInt("&H01BDE228", 10) 'Player 2 - Sec

                WriteMemInt("&H01BDE238", 10) 'Player 3 - Prim 
                WriteMemInt("&H01BDC500", 10) 'Player 3 - Sec
            End If
            If cbMoney.Checked = True Then
                WriteMemInt("&H01BDBFA0", 50000) 'Player 1
                WriteMemInt("&H01BDF9F0", 50000) 'Player 2
                WriteMemInt("&H01BDDCC8", 50000) 'Player 3
            End If

            '4Players
        ElseIf rb_players1.Checked = True Then
            If cb_LockAmmo.Checked Then
                WriteMemInt("&H01BDA7D8", 10) 'Player 1 - Prim
                WriteMemInt("&H01BDA7E8", 10) 'Player 1 - Sec

                WriteMemInt("&H01BDC510", 10) 'Player 2 - Prim 
                WriteMemInt("&H01BDE228", 10) 'Player 2 - Sec

                WriteMemInt("&H01BDE238", 10) 'Player 3 - Prim 
                WriteMemInt("&H01BDC500", 10) 'Player 3 - Sec

                WriteMemInt("&H01BDFF50", 10) 'Player 4 - Prim 
                WriteMemInt("&H01BDFF60", 10) 'Player 4 - Sec
            End If
            If cbMoney.Checked = True Then
                WriteMemInt("&H01BDBFA0", 50000) 'Player 1
                WriteMemInt("&H01BDF9F0", 50000) 'Player 2
                WriteMemInt("&H01BDDCC8", 50000) 'Player 3
                WriteMemInt("&H01BE1718", 50000) 'Player 4
            End If
        End If
    End Sub
    Public Sub WriteMemInt(ByVal address As String, ByVal value As Integer)
        Try
            Dim wrmOut As UInteger = 0
            Dim IntToBytes As Integer = value
            Dim byteArray() As Byte = BitConverter.GetBytes(IntToBytes)
            Dim input As String = address
            Dim baseAddress As Integer = Val(input)
            WriteProcessMemory(gameProcess, baseAddress, byteArray, byteArray.Length, wrmOut)
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class