[Tutorial] BO SP Zombie Trainer

[d0h!]

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

Credits:
scrapdizle

[aosma8]

Interesting...wish it was in C++ lool

[d0h!]

much easier in VB...

[Cgallagher]

True much in VB. GJ Doh

[Arteq]

gj thx =D i just started learning vb, but can understand this code) cool))) the only i cant understand are 4 players... lol in sp there is 1 player o_O

[SuperNovaAO]

To lock these you only need to change 2 opcodes.
One for money, one for Ammo.

[TheCodKingz10]

cam you make like a video tutorial instead of just a straight up source code?

[aosma8]

cam you make like a video tutorial instead of just a straight up source code?

If you don't know what to do with the source code, I suggest you learn the language before attempting anything.