VB.NET [Client Slide] By Nike!



VB.NET [Client Slide] By Nike!

Eae Galera .  Venho tá trazendo os Codigos Patente hacker 

(Client Slide) Para VB.Net!!

Espero que gostem!!



If ComboBox1.SelectedItem = "Novato" Then
WritePointerInteger("PointBlank", &HA99408, 1, &H461D)
End If
If ComboBox1.SelectedItem = "Recruta" Then
WritePointerInteger("PointBlank", &HA99408, 2, &H461D)
End If
If ComboBox1.SelectedItem = "Soldado" Then
WritePointerInteger("PointBlank", &HA99408, 3, &H461D)
End If
If ComboBox1.SelectedItem = "Cabo" Then
WritePointerInteger("PointBlank", &HA99408, 4, &H461D)
End If
If ComboBox1.SelectedItem = "Sargento" Then
WritePointerInteger("PointBlank", &HA99408, 5, &H461D)
End If
If ComboBox1.SelectedItem = "Terceiro-Sargento 1" Then
WritePointerInteger("PointBlank", &HA99408, 6, &H461D)
End If
If ComboBox1.SelectedItem = "Terceiro-Sargento 2" Then
WritePointerInteger("PointBlank", &HA99408, 7, &H461D)
End If
If ComboBox1.SelectedItem = "Terceiro-Sargento 3" Then
WritePointerInteger("PointBlank", &HA99408, 8, &H461D)
End If
If ComboBox1.SelectedItem = "Segundo-Sargento 1" Then
WritePointerInteger("PointBlank", &HA99408, 9, &H461D)
End If
If ComboBox1.SelectedItem = "Segundo-Sargento 2" Then
WritePointerInteger("PointBlank", &HA99408, 10, &H461D)
End If
If ComboBox1.SelectedItem = "Segundo-Sargento 3" Then
WritePointerInteger("PointBlank", &HA99408, 11, &H461D)
End If
If ComboBox1.SelectedItem = "Primeiro-Sargento 1" Then
WritePointerInteger("PointBlank", &HA99408, 12, &H461D)
End If
If ComboBox1.SelectedItem = "Primeiro-Sargento 2" Then
WritePointerInteger("PointBlank", &HA99408, 13, &H461D)
End If
If ComboBox1.SelectedItem = "Primeiro-Sargento 3" Then
WritePointerInteger("PointBlank", &HA99408, 14, &H461D)
If ComboBox1.SelectedItem = "Primeiro-Sargento 4" Then
WritePointerInteger("PointBlank", &HA99408, 15, &H461D)
End If
If ComboBox1.SelectedItem = "Primeiro-Sargento 5" Then
WritePointerInteger("PointBlank", &HA99408, 16, &H461D)
End If
If ComboBox1.SelectedItem = "Segundo-Tenente 1" Then
WritePointerInteger("PointBlank", &HA99408, 17, &H461D)
End If
If ComboBox1.SelectedItem = "Segundo-Tenente 2" Then
WritePointerInteger("PointBlank", &HA99408, 18, &H461D)
End If
If ComboBox1.SelectedItem = "Segundo-Tenente 3" Then
WritePointerInteger("PointBlank", &HA99408, 19, &H461D)
End If
If ComboBox1.SelectedItem = "Segundo-Tenente 4" Then
WritePointerInteger("PointBlank", &HA99408, 20, &H461D)
End If
If ComboBox1.SelectedItem = "Primeiro-Tenente 1" Then
WritePointerInteger("PointBlank", &HA99408, 21, &H461D)
End If
If ComboBox1.SelectedItem = "Primeiro-Tenente 2" Then
WritePointerInteger("PointBlank", &HA99408, 22, &H461D)
End If
If ComboBox1.SelectedItem = "Primeiro-Tenente 3" Then
WritePointerInteger("PointBlank", &HA99408, 23, &H461D)
End If
If ComboBox1.SelectedItem = "Primeiro-Tenente 4" Then
WritePointerInteger("PointBlank", &HA99408, 24, &H461D)
End If
If ComboBox1.SelectedItem = "Primeiro-Tenente 5" Then
WritePointerInteger("PointBlank", &HA99408, 25, &H461D)
End If
If ComboBox1.SelectedItem = "Capitão 1" Then
WritePointerInteger("PointBlank", &HA99408, 26, &H461D)
End If
If ComboBox1.SelectedItem = "Capitão 2" Then
WritePointerInteger("PointBlank", &HA99408, 27, &H461D)
End If
If ComboBox1.SelectedItem = "Capitão 3" Then
WritePointerInteger("PointBlank", &HA99408, 28, &H461D)
End If
If ComboBox1.SelectedItem = "Capitão 4" Then
WritePointerInteger("PointBlank", &HA99408, 29, &H461D)
End If
If ComboBox1.SelectedItem = "Capitão 5" Then
WritePointerInteger("PointBlank", &HA99408, 30, &H461D)
End If
If ComboBox1.SelectedItem = "Major 1" Then
WritePointerInteger("PointBlank", &HA99408, 31, &H461D)
End If
If ComboBox1.SelectedItem = "Major 2" Then
WritePointerInteger("PointBlank", &HA99408, 32, &H461D)
End If
If ComboBox1.SelectedItem = "Major 3" Then
WritePointerInteger("PointBlank", &HA99408, 33, &H461D)
End If
If ComboBox1.SelectedItem = "Major 4" Then
WritePointerInteger("PointBlank", &HA99408, 34, &H461D)
End If
If ComboBox1.SelectedItem = "Major 5" Then
WritePointerInteger("PointBlank", &HA99408, 35, &H461D)
End If
If ComboBox1.SelectedItem = "Tenente Coronel 1" Then
WritePointerInteger("PointBlank", &HA99408, 36, &H461D)
End If
If ComboBox1.SelectedItem = "Tenente Coronel 2" Then
WritePointerInteger("PointBlank", &HA99408, 37, &H461D)
End If
If ComboBox1.SelectedItem = "Tenente Coronel 3" Then
WritePointerInteger("PointBlank", &HA99408, 38, &H461D)
End If
If ComboBox1.SelectedItem = "Tenente Coronel 4" Then
WritePointerInteger("PointBlank", &HA99408, 39, &H461D)
End If
If ComboBox1.SelectedItem = "Tenente Coronel 5" Then
WritePointerInteger("PointBlank", &HA99408, 40, &H461D)
End If
If ComboBox1.SelectedItem = "Coronel 1" Then
WritePointerInteger("PointBlank", &HA99408, 41, &H461D)
End If
If ComboBox1.SelectedItem = "Coronel 2" Then
WritePointerInteger("PointBlank", &HA99408, 42, &H461D)
End If
If ComboBox1.SelectedItem = "Coronel 3" Then
WritePointerInteger("PointBlank", &HA99408, 43, &H461D)
End If
If ComboBox1.SelectedItem = "Coronel 4" Then
WritePointerInteger("PointBlank", &HA99408, 44, &H461D)
End If
If ComboBox1.SelectedItem = "Coronel 5" Then
WritePointerInteger("PointBlank", &HA99408, 45, &H461D)
End If
If ComboBox1.SelectedItem = "General de Brigada" Then
WritePointerInteger("PointBlank", &HA99408, 46, &H461D)
End If
If ComboBox1.SelectedItem = "General de Divisão" Then
WritePointerInteger("PointBlank", &HA99408, 47, &H461D)
End If
If ComboBox1.SelectedItem = "General de Exército" Then
WritePointerInteger("PointBlank", &HA99408, 48, &H461D)
End If
If ComboBox1.SelectedItem = "Marechal" Then
WritePointerInteger("PointBlank", &HA99408, 49, &H461D)
End If
If ComboBox1.SelectedItem = "Herói de Guerra" Then
WritePointerInteger("PointBlank", &HA99408, 50, &H461D)
End If
If ComboBox1.SelectedItem = "Patente Bomba" Then
WritePointerInteger("PointBlank", &HA99408, 52, &H461D)
End If
If ComboBox1.SelectedItem = "Patente GM" Then
WritePointerInteger("PointBlank", &HA99408, 53, &H461D)
End If
End If


Para usuarios Que não sabem usar, VB
Eu mesmo fiz um trainer patente hacker pra vocês!! "indetectavel"

Funcional em todos windows!
Baixar Deichar PB Visivel (win 32) entra na sala e escolher a patent!

PRINT


A Imagem saiu meia fraca Por causa duma parada aki 



Download: http://www.sendspace.com/file/84tqte

Scanner : https://www.virustotal.com/file/1223...is/1357662457/


Creditos

:Eu: (Por Atualizar os Codigos em ComboBox!)

:[E]xPsyZIKA:

GOSTOU ? DA THANKS! E SE FOR USAR NOS SEUS TRAINERS, NÃO ESQUECA DOS 

CREDITOS!
Deixe Um Comentario Nessa Postagem :

0 comentários:

Postar um comentário

REGRAS DO COMENTÁRIO

1º PROIBIDO SPAM
MAIS DE TRÊS PALAVRAS REPETIDAS NA POSTAGEM

2º PROIBIDO XINGAR / PALAVRAS DE BAIXO CALÃO / OFENSAS

3° PROIBIDO DIVULGAR LINK'S / EXCESSO PARA PARCERIA

TODOS OS COMENTÁRIOS PASSARÁ POR UMA MODERAÇÃO PARA SER APROVADO

CASO VOCÊS NÃO CUMPRIREM AS REGRAS SEUS COMENTÁRIOS SERÃO EXCLUÍDOS!

E-MAIL PARA CONTATO LEANDRODEMENOR1@HOTMAIL.COM

Aviso

Procuro pessoas para ser Postador do Blog se vocês se interessaram entrem em contato comigo Skype: leandro.noronha3 facebook: leandro.noronha.9279@facebook Msn: leandrodemenor1@hotmail.com