pbbr (point blank brasil) Ajudar aki com editor de armas

[gabrielzikibaile 0]

galera eu to fazendo um trainer que editar as armas mais eu so tenho 2 codigos de no-recoil e precisao e outros que nao funfa,

se v6 souberem mim passa.

to fazendo pelo visual basic 10

[simin123 0]

Eu tenhoo todos aii manim vo te passa aki

 

Weapon Hacker [Primarias] :

Ps¹: Nao Coloque Pistolas Com Esses Pointer e Offset’s Pois Ele Bugara o Seu Trainer E Ira Dar DC (DisConect)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGODAARMA, &H83C)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGODAARMA, &H994)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGODAARMA, &HC44)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGODAARMA, &HEF4)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGODAARMA, &H11A4)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGODAARMA, &H1454)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGODAARMA, &H1704)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGODAARMA, &H19B4)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGODAARMA, &H83C)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGODAARMA, &HAEC)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGODAARMA, &HD9C)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGODAARMA, &H104C)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGODAARMA, &H12FC)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGODAARMA, &H15AC)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGODAARMA, &H185C)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGODAARMA, &H1B0C)

WritePointerInteger("PointBlank", &HA72994, CÓDIGODAARMA, &H5B8, &H38, &H8)

 

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

 

Missao 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)

 

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)

 

Slot Dono Da Sala [Ao Seu Gosto]

WritePointerInteger("PointBlank", &HA72CA8, 0, &H4E18)

 

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)

 

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.DllImportAttribute ("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

 

:meliga:

 

By:simin123