Pointer's - Offset. VB.NET

VB.NET

Wall - Name

CT

Dim re As Integer
re = ReadPointerInteger("PointBlank", &HA72C74, &H310)
ReadPointerInteger("PointBlank", &HA72C74, &H348)
ReadPointerInteger("PointBlank", &HA72C74, &H380)
ReadPointerInteger("PointBlank", &HA72C74, &H3B8)
ReadPointerInteger("PointBlank", &HA72C74, &H428)
ReadPointerInteger("PointBlank", &HA72C74, &H460)
ReadPointerInteger("PointBlank", &HA72C74, &H4D0)
WritePointerInteger("PointBlank", &HA72C74, re, &H32C)
WritePointerInteger("PointBlank", &HA72C74, re, &H364)
WritePointerInteger("PointBlank", &HA72C74, re, &H39C)
WritePointerInteger("PointBlank", &HA72C74, re, &H3D4)
WritePointerInteger("PointBlank", &HA72C74, re, &H40C)
WritePointerInteger("PointBlank", &HA72C74, re, &H444)
WritePointerInteger("PointBlank", &HA72C74, re, &H47C)
WritePointerInteger("PointBlank", &HA72C74, re, &H4B4)

TR

Dim re As Integer
re = ReadPointerInteger("PointBlank", &HA72C74, &H32C)
ReadPointerInteger("PointBlank", &HA72C74, &H364)
ReadPointerInteger("PointBlank", &HA72C74, &H39C)
ReadPointerInteger("PointBlank", &HA72C74, &H3D4)
ReadPointerInteger("PointBlank", &HA72C74, &H40C)
ReadPointerInteger("PointBlank", &HA72C74, &H444)
ReadPointerInteger("PointBlank", &HA72C74, &H47C)
ReadPointerInteger("PointBlank", &HA72C74, &H4B4)
WritePointerInteger("PointBlank", &HA72C74, re, &H310)
WritePointerInteger("PointBlank", &HA72C74, re, &H348)
WritePointerInteger("PointBlank", &HA72C74, re, &H380)
WritePointerInteger("PointBlank", &HA72C74, re, &H3B8)
WritePointerInteger("PointBlank", &HA72C74, re, &H428)
WritePointerInteger("PointBlank", &HA72C74, re, &H460)
WritePointerInteger("PointBlank", &HA72C74, re, &H4D0)


Nick - Color

WritePointerInteger("PointBlank", &HA72CA8, 1, &H49E4)
WritePointerInteger("PointBlank", &HA72CA8, 2, &H49E5)
WritePointerInteger("PointBlank", &HA72CA8, 3, &H49E6)
WritePointerInteger("PointBlank", &HA72CA8, 4, &H49E7)
WritePointerInteger("PointBlank", &HA72CA8, 5, &H49E8)
WritePointerInteger("PointBlank", &HA72CA8, 6, &H49E9)
WritePointerInteger("PointBlank", &HA72CA8, 7, &H49EA)
WritePointerInteger("PointBlank", &HA72CA8, 8, &H49EB)
WritePointerInteger("PointBlank", &HA72CA8, 9, &H49EC)
WritePointerInteger("PointBlank", &HA72CA8, 10, &H49ED)
WritePointerInteger("PointBlank", &HA72CA8, 1, &H49EE)
WritePointerInteger("PointBlank", &HA72CA8, 2, &H49EF)
WritePointerInteger("PointBlank", &HA72CA8, 3, &H49E0)
WritePointerInteger("PointBlank", &HA72CA8, 4, &H49E1)
WritePointerInteger("PointBlank", &HA72CA8, 5, &H49E2)
WritePointerInteger("PointBlank", &HA72CA8, 6, &H49E3)

Bug - Room

WritePointerByte("PointBlank", &HA72CA8, 93, &H45EE3)

Fly - Hack

WritePointerByte("PointBlank", &HA72C70, 10, &H208) 'Timer

Repeat - Hacker

Dim Re As Integer
Re = ReadPointerInteger("PointBlank", &HA72CA8, &H45DCC)
Dim R As Integer
R = Re - 5
WritePointerInteger("PointBlank", &HA72CA8, R, &H45DCC)

Head - Hunter

WritePointerByte("PointBlank", &HA72CA8, 56, &H45EC1)

Modo Sniper

WritePointerByte("PointBlank", &HA72CA8, 32, &H45EC1)

Modo ShotGun

WritePointerByte("PointBlank", &HA72CA8, 24, &H45EC1)

Modo Clube

WritePointerByte("PointBlank", &HA72CA8, &H8, &H45EC1)

HH - Kill

WritePointerByte("PointBlank", &HA72CA8, 0, &H5EC1) 'Timer

Auto - Respawn

Dim Re As Integer
Re = ReadPointerInteger("PointBlank", &HA72CA8, &H45DCC)
Dim R As Integer
R = Re - 5
WritePointerInteger("PointBlank", &HA72CA8, R, &H45DCC)

Invisivel - Weapon

WritePointerByte("PointBlank", &HA72C70, 10, &H214) 'Timer

Fechar Jogo

Dim Processos As Process() = Process.GetProcessesByName("PointBlank")
For Each Processo As Process In Processos
Processo.Kill()
Next

Edição de Armas

Alcançe

Dim i As Integer
Dim h As String
Dim G As String
For i = 132 To 1076 Step 4
G = Hex(i)
h = "&H" & G
WritePointerByte("PointBlank", &HA70C8C, 77, &H174, h, &H50F)
Next

No - Recoil

Dim i As Integer
Dim h As String
Dim G As String
For i = 132 To 1076 Step 4
G = Hex(i)
h = "&H" & G
WritePointerByte("PointBlank", &HA72C8C, 0, &H174, h, &HF43)
WritePointerByte("PointBlank", &HA72C8C, 0, &H174, h, &HF4B)
WritePointerByte("PointBlank", &HA72C8C, 0, &H174, h, &HF5B)
Next

Precisão


Dim i As Integer
Dim h As String
Dim G As String
For i = 132 To 1076 Step 4
G = Hex(i)
h = "&H" & G
WritePointerByte("PointBlank", &H672C8C, 0, &H174, h, &HF33)
Next

Proteção

Dim i As Integer
Dim h As String
Dim G As String
For i = 412 To 667 Step 1
G = Hex(i)
h = "&H" & G
WritePointerByte("PointBlank", &HA72C8C, 255, h)
Next


Taxa De Disparo

Dim i As Integer
Dim h As String
Dim G As String
For i = 132 To 1140 Step 4
G = Hex(i)
h = "&H" & G
WritePointerByte("PointBlank", &HA70C8C, 0, &H174, h, &H507)
Next

Missão Hack

Missão Total

WritePointerInteger("PointBlank", &HA73610, 12, &HD58)

Missao Dos Sobreviventes

WritePointerInteger("PointBlank", &HA73610, 17, &HD58)

Missao Dos Dinossauros

WritePointerInteger("PointBlank", &HA73610, 16, &HD58)

Ghost Exit

WritePointerInteger("PointBlank", &HA72C78, 4, &H10, &H21C)

Anti AFK

WritePointerByte("PointBlank", &HA72C64, 65, &H250, &H2F7)

No Respawn

WritePointerByte("PointBlank", &HA72C80, 0, &H148, &H178)
WritePointerByte("PointBlank", &HA72C80, 0, &H148, &H179)
WritePointerByte("PointBlank", &HA72C80, 160, &H148, &H17A)
WritePointerByte("PointBlank", &HA72C80, 64, &H148, &H17B) 'timer

Hacker - Convite

WritePointerInteger("PointBlank", &HA75BF0, 1, &H6D0, &H568) 'Player 1
WritePointerInteger("PointBlank", &HA75BF0, 1, &H6E0, &H568) 'Player 2
WritePointerInteger("PointBlank", &HA75BF0, 1, &H6F0, &H568) 'Player 3
WritePointerInteger("PointBlank", &HA75BF0, 1, &H700, &H568) 'Player 4
WritePointerInteger("PointBlank", &HA75BF0, 1, &H710, &H568) 'Player 5
WritePointerInteger("PointBlank", &HA75BF0, 1, &H720, &H568) 'Player 6
WritePointerInteger("PointBlank", &HA75BF0, 1, &H730, &H568) 'Player 7
WritePointerInteger("PointBlank", &HA75BF0, 1, &H740, &H568) 'Player 8
'Timer

Derrubar Modo Dino

WritePointerByte("PointBlank", &HA72C70, 255, &H209) 'Timer

Dino Spam

WritePointerByte("PointBlank", &HA72C8C, 1, &H248, &HD4) 'timer

Desequipar Arma Primária

WritePointerInteger("PointBlank", &HA72CA8, 0, &H460, &H0)

Patente - Hacker

WritePointerInteger("PointBlank", &HA72CA8, 1, &H4745)
WritePointerInteger("PointBlank", &HA72CA8, 50, &H4745)
WritePointerInteger("PointBlank", &HA72CA8, 43, &H4745)
'timer

Processo : Trainer so é liberado com Jogo Online

If System.Diagnostics.Process.GetProcesses("PointBlan k").Length > 0 Then