Pointer e Offset para Visual Basic

[~Myth 0]

VB.NET

 

Wall - Name

 

CT

 

Dim re As Integer

re = ReadPointerInteger("PointBlank", &HA77C74, &H310)

ReadPointerInteger("PointBlank", &HA77C74, &H348)

ReadPointerInteger("PointBlank", &HA77C74, &H380)

ReadPointerInteger("PointBlank", &HA77C74, &H3B8)

ReadPointerInteger("PointBlank", &HA77C74, &H428)

ReadPointerInteger("PointBlank", &HA77C74, &H460)

ReadPointerInteger("PointBlank", &HA77C74, &H4D0)

WritePointerInteger("PointBlank", &HA77C74, re, &H32C)

WritePointerInteger("PointBlank", &HA77C74, re, &H364)

WritePointerInteger("PointBlank", &HA77C74, re, &H39C)

WritePointerInteger("PointBlank", &HA77C74, re, &H3D4)

WritePointerInteger("PointBlank", &HA77C74, re, &H40C)

WritePointerInteger("PointBlank", &HA77C74, re, &H444)

WritePointerInteger("PointBlank", &HA77C74, re, &H47C)

WritePointerInteger("PointBlank", &HA77C74, re, &H4B4)

 

TR

 

Dim re As Integer

re = ReadPointerInteger("PointBlank", &HA77C74, &H32C)

ReadPointerInteger("PointBlank", &HA77C74, &H364)

ReadPointerInteger("PointBlank", &HA77C74, &H39C)

ReadPointerInteger("PointBlank", &HA77C74, &H3D4)

ReadPointerInteger("PointBlank", &HA77C74, &H40C)

ReadPointerInteger("PointBlank", &HA77C74, &H444)

ReadPointerInteger("PointBlank", &HA77C74, &H47C)

ReadPointerInteger("PointBlank", &HA77C74, &H4B4)

WritePointerInteger("PointBlank", &HA77C74, re, &H310)

WritePointerInteger("PointBlank", &HA77C74, re, &H348)

WritePointerInteger("PointBlank", &HA77C74, re, &H380)

WritePointerInteger("PointBlank", &HA77C74, re, &H3B8)

WritePointerInteger("PointBlank", &HA77C74, re, &H428)

WritePointerInteger("PointBlank", &HA77C74, re, &H460)

WritePointerInteger("PointBlank", &HA77C74, re, &H4D0)

 

 

Nick - Color

 

WritePointerInteger("PointBlank", &HA77CA8, 1, &H49E4)

WritePointerInteger("PointBlank", &HA77CA8, 2, &H49E5)

WritePointerInteger("PointBlank", &HA77CA8, 3, &H49E6)

WritePointerInteger("PointBlank", &HA77CA8, 4, &H49E7)

WritePointerInteger("PointBlank", &HA77CA8, 5, &H49E8)

WritePointerInteger("PointBlank", &HA77CA8, 6, &H49E9)

WritePointerInteger("PointBlank", &HA77CA8, 7, &H49EA)

WritePointerInteger("PointBlank", &HA77CA8, 8, &H49EB)

WritePointerInteger("PointBlank", &HA77CA8, 9, &H49EC)

WritePointerInteger("PointBlank", &HA77CA8, 10, &H49ED)

WritePointerInteger("PointBlank", &HA77CA8, 1, &H49EE)

WritePointerInteger("PointBlank", &HA77CA8, 2, &H49EF)

WritePointerInteger("PointBlank", &HA77CA8, 3, &H49E0)

WritePointerInteger("PointBlank", &HA77CA8, 4, &H49E1)

WritePointerInteger("PointBlank", &HA77CA8, 5, &H49E2)

WritePointerInteger("PointBlank", &HA77CA8, 6, &H49E3)

 

Bug - Room

 

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

 

Fly - Hack

 

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

 

Repeat - Hacker

 

Dim Re As Integer

Re = ReadPointerInteger("PointBlank", &HA77CA8, &H45DCC)

Dim R As Integer

R = Re - 5

WritePointerInteger("PointBlank", &HA77CA8, R, &H45DCC)

 

Head - Hunter

 

WritePointerByte("PointBlank", &HA77CA8, 56, &H49D8D)

 

Modo Sniper

 

WritePointerByte("PointBlank", &HA77CA8, 32, &H49D8D)

 

Modo ShotGun

 

WritePointerByte("PointBlank", &HA77CA8, 24, &H49D8D)

 

Modo Clube

 

WritePointerByte("PointBlank", &HA77CA8, &H8, &H49D8D)

 

HH - Kill

 

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

 

Auto - Respawn

 

Dim Re As Integer

Re = ReadPointerInteger("PointBlank", &HA77CA8, &H45DCC)

Dim R As Integer

R = Re - 5

WritePointerInteger("PointBlank", &HA77CA8, R, &H45DCC)

 

Invisivel - Weapon

 

WritePointerByte("PointBlank", &HA77C70, 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", &HA77C8C, 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", &HA77C8C, 0, &H174, h, &HF43)

WritePointerByte("PointBlank", &HA77C8C, 0, &H174, h, &HF4B)

WritePointerByte("PointBlank", &HA77C8C, 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", &H677C8C, 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", &HA77C8C, 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", &HA77C8C, 0, &H174, h, &H507)

Next

 

Missão Hack

 

Missão Total

 

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

 

Missao Dos Sobreviventes

 

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

 

Missao Dos Dinossauros

 

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

 

Ghost Exit

 

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

 

Anti AFK

 

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

 

No Respawn

 

WritePointerByte("PointBlank", &HA77C80, 0, &H148, &H178)

WritePointerByte("PointBlank", &HA77C80, 0, &H148, &H179)

WritePointerByte("PointBlank", &HA77C80, 160, &H148, &H17A)

WritePointerByte("PointBlank", &HA77C80, 64, &H148, &H17B) 'timer

 

 

Derrubar Modo Dino

 

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

 

Dino Spam

 

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

 

Desequipar Arma Primária

 

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

 

Patente - Hacker

 

WritePointerInteger("PointBlank", &HA77CA8, 1, &H4745)

WritePointerInteger("PointBlank", &HA77CA8, 50, &H4745)

WritePointerInteger("PointBlank", &HA77CA8, 43, &H4745)

'timer

 

Processo : Trainer so é liberado com Jogo Online

 

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

 

Invisivel Weapon

 

WritePointerByte("PointBlank", &HA77C70, 10, &H214)

 

 

Repeat-Hacker

 

Dim Re As Integer

Re = ReadPointerInteger("PointBlank", &HA77CA8, &H45DCC)

Dim R As Integer

R = Re - 5

WritePointerInteger("PointBlank", &HA77CA8, R, &H45DCC)

 

 

Bug-Room

 

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

 

 

No Respawn

 

WritePointerInteger("PointBlank", &HA77C80, 1000, &H148, &H178)

WritePointerInteger("PointBlank", &HA77C80, 1000, &H148, &H179)

WritePointerInteger("PointBlank", &HA77C80, 1000, &H148, &H17A)

WritePointerInteger("PointBlank", &HA77C80, 1000, &H148, &H17B)

WritePointerInteger("PointBlank", &HA77C80, 1000, &H148, &H17C)

WritePointerInteger("PointBlank", &HA77C80, 1000, &H148, &H17D)

WritePointerInteger("PointBlank", &HA77C80, 1000, &H148, &H17E)

WritePointerInteger("PointBlank", &HA77C80, 1000, &H148, &H17F)

WritePointerInteger("PointBlank", &HA77C80, 1000, &H148, &H180)

 

 

 

Créditos:

HxRedBully Requentado

Tomodo

MR.s0beit (Coren "metodo de att pointer") ~never "Bug room e invisible weapon"

~Never (Bug Room e Invisible Weapon)

~Myth

 

Pegou? Da um Thanks ai neah pow

[denneson f. mendes ! 0]

ta funfando isso ai depois da att de 06/12/12 ?

[jose jobson 0]

ta funfando isso ai depois da att de 06/12/12 ?

Queria Sabe TBM

[~Myth 0]

Sim Esta Funcionado Depois que ocorreu a ATT 06/12/12...

[wastem 0]

CTRL+C CTRL+V Da Tuner Cheats

Poe Os Créditos Pelo Menos

[sedon 3]

Codigos atualziado ?

[free*step*team 27]

Atenção!

 

Seu tópico foi encontrado em área errada. Antes de postar em uma área, leia a descrição da mesma e procure saber se é adequada ou não para o seu post.

Caso ainda lhe reste dúvidas sobre o local correto para a postagem de seu tópico, contate a um moderador e pergunte qual a área correta.

 

 

Point Blank - Cheats

Área destinada à downloads de cheats, hacks e utilitários (aplicativos) para o jogo.

 

 

Point Blank - Tutoriais

Área destinada à postagem de tutoriais, dicas, bugs relacionados a Point Blank.

 

 

Point Blank - Dúvidas

Área destinada à postagem de dúvidas, solicitação de ajuda, pedidos e suporte em geral.

 

Point Blank - Off Topic

Área destinada à assuntos e discussões gerais, enquetes interativas, fotos, vídeos (replays), sátiras, personagens e tudo que seja relacionado a assuntos gerais sobre Point Blank.

 

 

Tópico Movido!