pbbr (point blank brasil) Criando Trainer Simples em Visual Basic By NailtonJk

[nailtonjk 1]

 

Abra seu Visual Basic 2008 ou 2010 ,

 

Vá em File / New Project / Renomei seu Projeto !

 

Agora adicione a Sua Form

 

Um Button e Uma CheckBox

 

E Renomei dessa Forma !

 

 

 

 

 

Em seguida Vá em Project e Cliquem em Add Module !

 

Em seguida Apaguem o Que estiver Escrito e

 

Colem esse Modulo Aqui !

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Depois de Ter adcionado o Modulo !

 

Cliquem 2 Vezes na CheckBox ( No-Recoil ) !

 

e Add esse Codigo !

 

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

 

Dps Cliquem 2 Vezes no Button ( Proteção Universal ) !

 

e add esse Codigo !

 

Dim i2 As Integer

Dim h2 As String

Dim G2 As String

For i3 = 412 To 667 Step 1

G2 = Hex(i2)

h2 = "&H" & G2

WritePointerByte("PointBlank", &HA72C8C, 255, h2)

Next

 

Depois de Todos os Codigos Adicionado irá Ficar Assim !

 

 

Sempre Estarei Editando Postando Vários Metodos de Criar Cheats !

 

 

Créditos !

 

Nailtonjk !

 

Mr_s0beit !

 

Buu !

 

[willianpb98 0]

Boaa mano meu thaks vc não tem o de presisão ? , Queria Saber Tb como botar teclas de atalhos nos buttos e tal

[#EuGeNiO_ 0]

Proteção Universal

 

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

 

 

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)

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", &HA72C8C, 0, &H174, h, &HF5B)

Next

 

 

 

 

 

Reload Hack: CheckBox

 

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

WritePointerInteger("PointBlank", &HA70C8C, 16777215, &H174, h, &HEE3)

Next

 

 

Alcance: CheckBox

 

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

 

 

Munição Infinita: CheckBox

 

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, &HEF1)

Next

 

 

Taxa de Disparo: CheckBox

 

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

[willianpb98 0]

Cara isso não tah pegando não -'

 

CAra tem como vc falar como bota uma hotkey em button queria saber todos que eu ja vi naum funfo porfavor publica ae