pbbr (point blank brasil) Ajuda aqui com trainer!!!

[Joker-pow 0]

Galera estou criando um trainer de edição de sala mas já procurem em vários lugares e n achei os códigos, sera que vocês poderiam postar os códigos aqui, do tanks.

[-ZiG 0]

Você precisa aprender a meche no C.E para pegar por si mesmo seus P/O..

Abraços!

[' Makaveli 3]

Veja:

 

Patente Hack Completo

Código:

If (Me.ComboBox1.Text = "Novato") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, 0, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Recruta") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, 1, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Soldado") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, 2, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Cabo") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, 3, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Sargento") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, 4, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Terceiro-Sargento 1") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, 5, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Terceiro-Sargento 2") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, 6, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Terceiro-Sargento 3") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, 7, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Segundo-Sargento 1") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, 8, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Segundo-Sargento 2") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, 9, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Segundo-Sargento 3") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, 10, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Segundo-Sargento 4") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, 11, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Primeiro-Sargento 1") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, 12, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Primeiro-Sargento 2") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, 13, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Primeiro-Sargento 3") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, 14, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Primeiro-Sargento 4") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, 15, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Primeiro-Sargento 5") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H10, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Segundo-Tenente 1") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H11, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Segundo-Tenente 2") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H12, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Segundo-Tenente 3") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H13, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Segundo-Tenente 4") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, 20, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Primeiro-Tenente 1") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H15, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Primeiro-Tenente 2") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H16, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Primeiro-Tenente 3") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H17, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Primeiro-Tenente 4") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H18, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Primeiro-Tenente 5") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H19, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Capitao 1") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H1A, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Capitao 2") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H1B, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Capitao 3") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H1C, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Capitao 4") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H1D, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Capitao 5") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, 30, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Major 1") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H1F, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Major 2") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H20, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Major 3") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H21, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Major 4") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H22, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Major 5") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H23, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Tenente Coronel 1") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H24, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Tenente Coronel 2") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H25, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Tenente Coronel 3") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H26, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Tenente Coronel 4") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H27, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Tenente Coronel 5") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, 40, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Coronel 1") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H29, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Coronel 2") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H2A, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Coronel 3") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H2B, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Coronel 4") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H2C, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Coronel 5") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H2D, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "General de Brigada") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H2E, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "General de Divisao") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H2F, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "General de Exercito") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H30, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Marechal") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H31, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Heroi de Guerra") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, 50, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Heroi de Guerra(Modificado)") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H33, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "Bomba Patente") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H34, New Integer() {&H461D})

End If

If (Me.ComboBox1.Text = "GM") Then

Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H35, New Integer() {&H461D})

End If

Modo Head Hunter ( para outros modos basta alterar o valor )

 

 

Código:

WritePointerByte("PointBlank", &HAB64E8, 56, &H4CB59)

Nick Hack

 

 

Código:

WritePointerString("PointBlank", &HAB64E8, TextBox1.Text, &H48CC)

Host Hack

 

 

Código:

WritePointerInteger("PointBlank", &HAB64E8, 3, &H4CEC)

WritePointerInteger("PointBlank", &HAB64E8, 1, &H4CF0)

Passoword lock

 

 

Código:

WritePointerString("PointBlank", &HAB64E8, TextBox7.Text, &H4CB83)

Travar tempo

 

 

Código:

WritePointerByte("PointBlank", &HAB64E8, 40, &H4CB53)

Destravar Tempo

 

 

Código:

WritePointerByte("PointBlank", &HAB64E8, 0, &H4CB53)

baralho Hack

 

 

Código:

If ComboBox1.Text = "Missão Dinossauros" Then

WritePointerInteger("PointBlank", &HAB6E90, 2, &HD64)

End If

If ComboBox1.Text = "Missão Sobreviventes" Then

WritePointerInteger("PointBlank", &HAB6E90, 3, &HD64)

End If

If ComboBox1.Text = "Missão Total" Then

WritePointerInteger("PointBlank", &HAB6E90, 12, &HD64)

End If

Top Label

 

 

Código:

WriteString("PointBlank", &HAA2470, TextBox4.Text)

Macro Hack

 

 

Código:

WritePointerString("PointBlank", &HAB992C, TextBox6.Text, &H3F6)

No Fall Damage

 

 

Código:

WritePointerByte("PointBlank", &HAB64B0, 14, &H218)

WritePointerByte("PointBlank", &HAB64B0, 172, &H219)

WritePointerByte("PointBlank", &HAB64B0, 4, &H21A)

WritePointerByte("PointBlank", &HAB64B0, 64, &H21B)

fast Shot

 

 

Código:

WritePointerByte("PointBlank", &HAB64B0, 0, &H20C)

No-Respawn

 

 

Código:

WritePointerInteger("PointBlank", &HAB64C0, 0, &H148, &H180)

WritePointerInteger("PointBlank", &HAB64C0, 0, &H148, &H181)

WritePointerInteger("PointBlank", &HAB64C0, 160, &H148, &H182)

WritePointerInteger("PointBlank", &HAB64C0, 64, &H148, &H183)

Câmera LIvre ON

 

 

Código:

WritePointerByte("PointBlank", &HAB64E8, 255, &H4CB80)

Câmera LIvre OFF

 

 

Código:

WritePointerByte("PointBlank", &HAB64E8, 0, &H4CB80)

Team Kill

 

 

Código:

Pointer > 006B64B4

Offsets > 321

Value > FF = Mata Voçe Mesmo, 40 Mata do Mesmo Time.

Convite Hack

 

 

Código:

WritePointerInteger("PointBlank", &HAB9458, 1, &H6D0, &H4CC)

WritePointerInteger("PointBlank", &HAB9458, 1, &H6E0, &H4CC)

WritePointerInteger("PointBlank", &HAB9458, 1, &H6F0, &H4CC)

WritePointerInteger("PointBlank", &HAB9458, 1, &H700, &H4CC)

WritePointerInteger("PointBlank", &HAB9458, 1, &H710, &H4CC)

WritePointerInteger("PointBlank", &HAB9458, 1, &H720, &H4CC)

WritePointerInteger("PointBlank", &HAB9458, 1, &H730, &H4CC)

WritePointerInteger("PointBlank", &HAB9458, 1, &H740, &H4CC)

Fly Hack

 

 

Código:

WritePointerByte("PointBlank", &HAB64B0, 10, &H208)

 

Abraços

[Joker-pow 0]

Como sempre ' Makaveli salvando minha vida kk valeu vc é o cara mesmo

[Doof1212 10]

dúvida resolvida

 

Reportado#

para que um MOD feche

[MathMorison 0]

Dúvida Solucionada !

 

Caro Membro,

Contate-me por perfil para que eu re-abra o tópico.

 

Obrigado à todos que ajudaram.

 

Tópico Trancado