pbbr (point blank brasil) Modulo mais Pontos offsets

[XGeovaneGamerX 0]

Pra Quem sabe oque e e Saber Usar Neh ¬¬'

 

 

 

__________________________________________________ ____________________

 

Fast Shot

 

 

 

WritePointerByte("PointBlank", &HA9A3D0, 8, &H20C

__________________________________________________ _____________________

 

Fly

 

 

 

WritePointerByte("PointBlank", &HA9A3D0, 10, &H208)

__________________________________________________ ______________________

Ghost exit

 

WritePointerInteger("PointBlank", &HA9A3E0, 4, &H148, &H11C, &H1E0)

__________________________________________________ ____________________________

convite hack

 

 

 

WritePointerInteger("PointBlank", &HA9D378, 1, &H6D0, &H4CC)

WritePointerInteger("PointBlank", &HA9D378, 1, &H6E0, &H4CC)

WritePointerInteger("PointBlank", &HA9D378, 1, &H6F0, &H4CC)

WritePointerInteger("PointBlank", &HA9D378, 1, &H700, &H4CC)

WritePointerInteger("PointBlank", &HA9D378, 1, &H710, &H4CC)

WritePointerInteger("PointBlank", &HA9D378, 1, &H720, &H4CC)

WritePointerInteger("PointBlank", &HA9D378, 1, &H730, &H4CC)

WritePointerInteger("PointBlank", &HA9D378, 1, &H740, &H4CC)

__________________________________________________ _______________________________

invisivel weapon

 

 

 

WritePointerInteger("PointBlank", &HA9A3D0, 10, &H215) ativar

WritePointerInteger("PointBlank", &HA9A3D0, 0, &H215) desativar

__________________________________________________ ______________________________________

Dino spam

 

 

 

WritePointerInteger("PointBlank", &HA9A3D0, 1, &H248, &HD4)

__________________________________________________ __________________________________

 

 

 

No Respawn

 

 

 

Coloque em CheckBox.

 

 

Código

 

 

WritePointerInteger("PointBlank", &HA9A0F4, 0, &H134, &H194, &H180)

WritePointerInteger("PointBlank", &HA9A0F4, 0, &H134, &H194, &H181)

WritePointerInteger("PointBlank", &HA9A0F4, 160, &H134, &H194, &H182)

WritePointerInteger("PointBlank", &HA9A0F4, &H40, &H134, &H194, &H183)

 

__________________________________________________ _____________________________________________

 

 

Fly Hack

 

 

Coloque em label qual a tecla que usa pra voar e coloque em Hotkey.

 

Dim hotkey As Boolean = GetAsyncKeyState(Keys.A)

If hotkey = True Then

WritePointerByte("PointBlank", &HA9A3D0, 10, &H208)

End If

 

__________________________________________________ ________________________________________________

 

Ghost Exit

 

 

 

Coloque em Button e de preferência com Hotkey

 

Código

WritePointerInteger("PointBlank", &HA9A3E0, 4, &H148, &H11C, &H1E0)

 

 

__________________________________________________ __________________________________________________ ___________

 

 

MODULO

 

 

 

'VB.NET Module

'Author : Cless

'How to use Read/Write Pointer

'Example Read

' Me.Text = ReadPointerInteger(Game exe name, &HPointer,&HOffset).ToString()

'

' Me.Text = ReadPointerInteger("gta_sa", &HB71A38,&H540).ToString()

' Or

' Me.Text = ReadPointerInteger("gta_sa", &HB71A38,&H540,&H544).ToString()

'Example Write

' WritePointerInteger(Game exe name,&HPointer,Value,&HOffset)

'

' WritePointerInteger("gta_sa",&HB71A38,1000,&H540)

' Or

' WritePointerInteger("gta_sa",&HB71A38,1000,&H540, &H544)

 

Module Trainer

Private Declare Function ReadMemoryByte Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Byte, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Byte

Private Declare Function ReadMemoryInteger Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Integer, Optional ByVal Size As Integer = 4, Optional ByRef Bytes As Integer = 0) As Integer

Private Declare Function ReadMemoryFloat Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Single, Optional ByVal Size As Integer = 4, Optional ByRef Bytes As Integer = 0) As Single

Private Declare Function ReadMemoryDouble Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Double, Optional ByVal Size As Integer = 8, Optional ByRef Bytes As Integer = 0) As Double

 

Private Declare Function WriteMemoryByte Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Byte, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Byte

Private Declare Function WriteMemoryInteger Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Integer, Optional ByVal Size As Integer = 4, Optional ByRef Bytes As Integer = 0) As Integer

Private Declare Function WriteMemoryFloat Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Single, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Single

Private Declare Function WriteMemoryDouble Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Double, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Double

 

Public Function ReadByte(ByVal EXENAME As String, ByVal Address As Integer) As Byte

Dim Value As Byte

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

ReadMemoryByte(Handle, Address, Value)

End If

End If

Return Value

End Function

 

Public Function ReadInteger(ByVal EXENAME As String, ByVal Address As Integer) As Integer

Dim Value As Integer

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

ReadMemoryInteger(Handle, Address, Value)

End If

End If

Return Value

End Function

 

Public Function ReadFloat(ByVal EXENAME As String, ByVal Address As Integer) As Single

Dim Value As Single

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

ReadMemoryFloat(Handle, Address, Value)

End If

End If

Return Value

End Function

 

Public Function ReadDouble(ByVal EXENAME As String, ByVal Address As Integer) As Double

Dim Value As Double

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

ReadMemoryByte(Handle, Address, Value)

End If

End If

Return Value

End Function

 

Public Function ReadPointerByte(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Byte

Dim Value As Byte

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

ReadMemoryByte(Handle, Pointer, Value)

End If

End If

Return Value

End Function

 

Public Function ReadPointerInteger(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Integer

Dim Value As Integer

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

ReadMemoryInteger(Handle, Pointer, Value)

End If

End If

Return Value

End Function

 

Public Function ReadPointerFloat(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Single

Dim Value As Single

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

ReadMemoryFloat(Handle, Pointer, Value)

End If

End If

Return Value

End Function

 

Public Function ReadPointerDouble(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Double

Dim Value As Double

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

ReadMemoryDouble(Handle, Pointer, Value)

End If

End If

Return Value

End Function

 

Public Sub WriteByte(ByVal EXENAME As String, ByVal Address As Integer, ByVal Value As Byte)

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

WriteMemoryByte(Handle, Address, Value)

End If

End If

End Sub

 

Public Sub WriteInteger(ByVal EXENAME As String, ByVal Address As Integer, ByVal Value As Integer)

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

WriteMemoryInteger(Handle, Address, Value)

End If

End If

End Sub

 

Public Sub WriteFloat(ByVal EXENAME As String, ByVal Address As Integer, ByVal Value As Single)

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

WriteMemoryFloat(Handle, Address, Value)

End If

End If

End Sub

 

Public Sub WriteDouble(ByVal EXENAME As String, ByVal Address As Integer, ByVal Value As Double)

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

WriteMemoryDouble(Handle, Address, Value)

End If

End If

End Sub

 

Public Sub WritePointerByte(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As Byte, ByVal ParamArray Offset As Integer())

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

WriteMemoryByte(Handle, Pointer, Value)

End If

End If

End Sub

 

Public Sub WritePointerInteger(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As Integer, ByVal ParamArray Offset As Integer())

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

WriteMemoryInteger(Handle, Pointer, Value)

End If

End If

End Sub

 

Public Sub WritePointerFloat(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As Single, ByVal ParamArray Offset As Integer())

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

WriteMemoryFloat(Handle, Pointer, Value)

End If

End If

End Sub

 

Public Sub WritePointerDouble(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As Double, ByVal ParamArray Offset As Integer())

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

WriteMemoryDouble(Handle, Pointer, Value)

End If

End If

End Sub

End Module

 

 

Creditos :

 

 

 

CancelleD

XGeovaneGamerX

 

 

Ajudei de um Thanks, Nao cai o dedo:no: :suando: