• 2 Vote(s) - 3 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Tutorial] BO SP Zombie Trainer
#1
[Image: 29003529.png]

PHP Code:
Public Class Form1
    
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As IntegerByVal lpBaseAddress As IntegerByVal lpBuffer() As ByteByVal nSize As IntegerByVal lpNumberOfBytesWritten As UInteger) As Boolean
    
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As IntegerByVal bInheritHandle As IntegerByVal dwProcessId As Integer) As Integer
    Dim bGameIsReady 
As Boolean False
    Dim gameProcess 
As Integer
    
Private Sub Timer1_Tick(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer1.Tick
        
If Not bGameIsReady True Then
            Dim p 
As Process
            
For Each p In Process.GetProcesses
                
If p.ProcessName "BlackOps" Then
                    gameProcess 
OpenProcess(&H1F0FFF1p.Id)
                    
bGameIsReady True
                    Label2
.Text "Game Found"
                
End If
            
Next
        End 
If
    
End Sub
    
Private Sub Timer2_Tick(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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
  Reply
#2
Interesting...wish it was in C++ lool
  Reply
#3
much easier in VB...
  Reply
#4
True much in VB. GJ Doh
  Reply
#5
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
[Image: r212360a129ce9b84444093b6cd2699013a1fbn155.png]
  Reply
#6
To lock these you only need to change 2 opcodes.
One for money, one for Ammo.
  Reply
#7
cam you make like a video tutorial instead of just a straight up source code?
  Reply
#8
(08-15-2011, 01:35)TheCodKingz10 Wrote: 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.
  Reply


Possibly Related Threads…
Thread Author Replies Views Last Post
  BF4 zombie 'mod' JariZ 4 5,771 08-17-2014, 14:23
Last Post: Yamato
  [Request] Modder/s for R2K Zombie MOD mr.apple 4 4,140 10-25-2013, 12:45
Last Post: mr.apple
Tongue Zombie CE Table xtreme2010 5 5,100 08-01-2013, 18:15
Last Post: barata
  Zombie model imchasinyou 7 6,107 07-31-2013, 01:11
Last Post: rotceh_dnih
Star [Release] 8 new Zombie maps for ItsZombieMod mahafy00 31 31,707 07-20-2013, 07:28
Last Post: benm4a
  Help Modding Zombie Mode DarthKiller 3 4,483 07-09-2013, 21:08
Last Post: Nekochan
Information Preview 'KillMe' zombie mod Nekochan 115 51,783 07-03-2013, 14:56
Last Post: X-Track
  [Release] Black Ops Single Player/Zombie Trainer V3.6 Craig87 52 79,407 07-01-2013, 15:12
Last Post: explosivebanana55
  [Release] MW3 Mod: Zombie Juggernauts NChecker 8 16,425 06-27-2013, 05:38
Last Post: xX_ANTZ_Xx
Video Preview AIZombies eXtreme 2.0 / Zombie Player (Music Player) DidUknowiPwn 4 5,398 06-24-2013, 16:37
Last Post: DidUknowiPwn

Forum Jump:


Users browsing this thread: 1 Guest(s)