12-08-2010, 16:04
![[Image: 29003529.png]](http://img842.imageshack.us/img842/6682/29003529.png)
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