pbbr (point blank brasil) VB NET - Programação ( COD )

[by:Dns-Lamer 0]

Missao Haker ( Codigo VB )

 

Missão Total [Coloque Em Button]

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

 

Missao Dos Sobreviventes [Coloque Em Button]

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

Missao Dos Dinossauros [ Coloque Em Button]:

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

 

Cheats

 

Ghost Exit [Coloque Ao Seu Gosto]

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

 

Anti AFK [ Coloque Ao Seu Gosto] {Button Ou CheckBox ou Label}

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

 

Dino Spam [Coloque EM Timer]

WritePointerInteger("PointBlank", &HA72C70, 1, &H248, &HD4) 'timer

 

No Respawn [Coloque No Timer]

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

 

Patente Heroi De Guerra [ Coloquem No Timer]

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

Ps¹: No Set Value "50" Coloque O Numero Da Patente Que Voce Quiser

Set Value: "53" = Patente De GM

"51"= Patente 4 Estrelas Prata A Patente Dos BOT

"52"= Patente Do Livre Iniciante "2" e "12" o Livre Do K/D Abaixo De "39"

 

Hacker De Convite: [Aconselho A Colocar No Timer]

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 [Aconselho TIMER]

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

 

Colocando Uma Hotkey No Seu Trainer:

De 2 Clikes Na Sua Form

e ADICIONE O SEGUINTE Codigo ANTES DE ADICIONARE CLIQE NO End Sub E DE UM ENTER PARA IR PARA A PROX. LINHA E COLOQEM O CODIGO:

 

COLOQUEM ESTE CODIGO ANTES DO "End Class" e DEPOIS DO "End Sub"

 

<System.Runtime.InteropServices.DllImportAttribu te ("user32.dll")> _

Private Shared Function GetAsyncKeyState(ByVal vkey As System.Windows.Forms.Keys) As Short

End Function

 

ADICIONEM UM TIMER E MUDE O ENABLED PARA "True" DEEM 2 CLIKES NO TIMER E COLOQUEM O SEGUINTE CODIGO:

Dim Hotkey As Boolean

Hotkey = GetAsyncKeyState(Keys.F10) '<< Hotkey Escolhida

If Hotkey = True Then

Button1.PerformClick() '<<< Butão Que Vai Ser Pra a Hotkey Ser Ativa >>

End If

 

Proteção Universal

 

Proteção Universal [Adicione Em Algum Button ou Label]

 

MsgBox("Proteção Universal Ativada Com Sucesso Faça Bom Proveito ")

WritePointerInteger("PointBlank", &HA70C8C, 255, &H19C)

Dim i As Integer ' Variavel do tipo enteiro

Dim h As String ' variavel do tipo texto

Dim G As String ' Variavel do tipo texto

For i = 412 To 667 Step 1 ' Loop for para fazer o utimo offset ir de 412 até 667 de 1 em 1

G = Hex(i) 'converte o valor da Variavel i em Hex

h = "&H" & G ' adiciona &H na frente do numero para que seja um offset valido

WritePointerByte("PointBlank", &HA72C8C, 255, h) ' edita tudo para 255 desdo offset 19C até 29B

Next ' Fim do Loop for

 

Repeat Hacker [ Ao Seu Gosto]

Dim Re As Integer

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

Dim R As Integer

R = Re - 5

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

 

Homem Bomba

 

WritePointerInteger("PointBlank", &HA70C8C, 255, &HFFB)

WritePointerInteger("PointBlank", &HA70C8C, 255, &H3E0)

WritePointerInteger("PointBlank", &HA70C8C, 255, &H174)

WritePointerInteger("PointBlank", &HA70C8C, 255, &H148)

WritePointerInteger("PointBlank", &HA70C8C, 255, &H144)

 

 

Lançamento k-400

WritePointerInteger("PointBlank", &HA71610, 68, &HD58)

 

Galera, Nao Puis em Codigo PHP Por que Voces nao Iam Consegui colocar no VB, Mais se caso algm nao entender, e so voces me falaram via MP/Post, que eu edito se quiserem, se eu ver mais algum codigo, eu Edito o Topico.

Creditos#

 

By:DnsLamer

[HaniballKill 0]

a maioria disso é crtl+C crtl+V

 

mais homem bomba e laçamento k-400 não tinha visto

 

Infuncional Homen Bomba E LANÇAMENTO K-400

[kirchof 0]

o q é uma hotkey??

[Sherex 0]

Copiado nem vou dizer de que forum é.

@kirchof

HotKey é tipo um atalho do teclado Ex: vc clica F2 ai ocorre uma reação !