Ir para conteúdo
Faça parte da equipe! (2024) ×
Conheça nossa Beta Zone! Novas áreas a caminho! ×

  • Quem está por aqui   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.

Criando um Weapon Hack Completo [ VBNET ] 30/11/2012

renanzinhodogc

Por ,
em Point Blank - Tutoriais

 Compartilhar

Posts Recomendados

renanzinhodogc Novato

renanzinhodogc 1

Postado
Denunciar
Postado
  • [video=youtube;dgqSWX_LIu0]
    É necessário se cadastrar para acessar o conteúdo.



  • [DOWN]
    É necessário se cadastrar para acessar o conteúdo.
    [/DOWN]


  • [sCAN]
    É necessário se cadastrar para acessar o conteúdo.
    [/sCAN]


  • Bug do trap

  • [video=youtube;7KjmbeVgQXA]
    É necessário se cadastrar para acessar o conteúdo.


  • Link Dos Arquivos para Fazer o Bug Trap:
  • Download Bug Trap.rar from Sendspace.com - send big files the easy way


  • É necessário se cadastrar para acessar o conteúdo.
    7d68d1a76038755/analysis/1354144015/1


  • quem ta com problema em abrir o Slach Dective , baixe esse outro aki
  • slach detective 2.0.rar - 4shared.com - online file sharing and storage - download


  • É necessário se cadastrar para acessar o conteúdo.
    7d68d1a76038755/analysis/1354144015/1

  • AVISO: EM NOME DO PROCESSO NO MENDES INJECTOR COLOQUE: PointBlank.exe

  • DA UM LIKE DA VIDEO AI SE GOSTO

  • INSCREVA-SE NO CANAL PARA RECEBER MAIS NOVIDADES!



ﾠﾠTroféus e Medalhasﾠﾠ
Link para o comentário
Compartilhar em outros sites
tiozin23111123 Novato

tiozin23111123 0

Postado
Denunciar
Postado

Códigos Do Visual Basic

 

ta aki os códigos pra kem kiser criar um trainer:

 

pra fazer o weapon faiz igual o cara do video

 

códigos:

 

If ComboBox1.SelectedItem = "nome da arma aki" Then

On Error Resume Next

WritePointerInteger("PointBlank", &HA72CA8, código da arma aki, &H83C)

WritePointerInteger("PointBlank", &HA72CA8, código da arma aki, &H994)

WritePointerInteger("PointBlank", &HA72CA8, código da arma aki, &HC44)

WritePointerInteger("PointBlank", &HA72CA8, código da arma aki, &HEF4)

WritePointerInteger("PointBlank", &HA72CA8, código da arma aki, &H11A4)

WritePointerInteger("PointBlank", &HA72CA8, código da arma aki, &H1454)

WritePointerInteger("PointBlank", &HA72CA8, código da arma aki, &H1704)

WritePointerInteger("PointBlank", &HA72CA8, código da arma aki, &H19B4)

WritePointerInteger("PointBlank", &HA72CA8, código da arma aki, &H83C)

WritePointerInteger("PointBlank", &HA72CA8, código da arma aki, &HAEC)

WritePointerInteger("PointBlank", &HA72CA8, código da arma aki, &HD9C)

WritePointerInteger("PointBlank", &HA72CA8, código da arma aki, &H104C)

WritePointerInteger("PointBlank", &HA72CA8, código da arma aki, &H12FC)

WritePointerInteger("PointBlank", &HA72CA8, código da arma aki, &H15AC)

WritePointerInteger("PointBlank", &HA72CA8, código da arma aki, &H185C)

WritePointerInteger("PointBlank", &HA72CA8, código da arma aki, &H1B0C)

WritePointerInteger("PointBlank", &HA72994, código da arma aki, &H5B8, &H38, &H8)

End If

 

 

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.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

 

CODIGO DAS ARMAS

 

Só use armas que tem no PB, caso contrario, poderá tomar DC !!!

 

 

Codigos:

 

Rifles:

 

SG-550 Ext. 100003001

AK-47 Ext. 100003002

M4A1 Ext. 100003003

K-2 100003004

F2000 Ext. 100003005

AK-47 G. 100003009

M4A1 S. 100003010

K-201 Ext. 100003011

G36C Ext. 100003013

SG-550 S. 100003014

AK SOPMOD 100003015

AK-47 Sl. 100003017

SG-550 Mb. 100003018

SG-550 Sl. 100003019

SG-550 Wh. 100003020

M4A1 Sl. 100003021

M4A1 Wh. 100003022

M4A1 G. 100003023

M4A1 G+ 100003024

AK-47 Sl+ 100003025

SG-550 Mb+ 100003026

G36C Ext. 100003027

AUG A3 100003028

G36C Sl. 100003029

SG-550 Mb+20% 100003030

G36C +20% 100003031

F2000 Sl. 100003032

AK SOPMOD+20% 100003033

G36C Ext. 100003034

SG-550 S D. 100003035

AUG A3 100003036

AUG A3 G. 100003037

G36C Ext. D 100003038

AK SOPMOD D 1000039

AUG A3 D 100003040

AK SOPMOD CG 100003041

M4 SR-16 1lvl 100003042

M4 SR-16 2lvl 100003043

M4 SR-16 3lvl 100003044

M4 SR-16 F. C. (4lvl) 100003045

F2000 Sl. 100003046

K-2 100003047

AUG A3 Black 100003048

FAMAS G2 100003049

FAMAS G2 Com 100003050

FAMAS G2 M203 100003051

FAMAS G2 Sn 100003052

SS2-V4 Para Sniper 100003053

AK-47 G. D 100003054

M4A1 Wh. D 100003055

SG-550 Sl. D 100003056

Vz. 52 100003057

AK-47 F. C. 100003058

AK-47 100003059

M4A1 100003060

Nova AUG 100003063

Nova Famas 100003064

AUG A3 Blue 100003065

 

Subs:

 

MP5K Ext. 200004001

Spectre Ext. 200004002

K-1 Ext. 200004003

MP7 Ext. 200004004

K-1 200004006

MP5K G. 200004007

UMP45 Ext. 200004008

Spectre W. 200004009

P90 M.C 200004010

P90 Ext. 200004011

KrissSuperV 200004012

Kriss S. V. 200004013

MP5K Sl. 200004014

MP5K Wh. 200004015

Spectre Wh. 200004016

Kriss S. V. 200004019

Spectre Sl. 200004020

K-1 Sl. 200004021

MP7 Sl. 200004022

UMP45 Sl. 200004023

MP5K D G. 200004024

Spectre W D. 200004025

kriss S.V G. 200004026

P90 M.C. S. 200004027

kriss S.V G. Dummy 200004028

p90 ext D 200004029

kriss S.V. D 200004030

kriss S.V. D 200004031

p90 M.C. D 200004032

AKS47U Ext. 200004033

M4 CQB-R lvl1 200004034

M4 CQB-R lvl2 200004035

M4 CQB-R lvl3 200004036

MP7 SL. 200004037

MP7 S. 200004038

Kriss S.V Black 200004039

MP5K Sl. D 200004041

Spectre Sl. D 200004042

SS1-R5 Carabine 200004043

MP7 Ext. D 200004045

UMP45 Ext. D 200004046

Kriss S.V Batik D 200004047

Parece AK SOPMOD 200004049

Nova Kriss S.V 200004050

Kriss S.V Batik 200004052

KrissSuperV Vector 200004054

Dupla Uzi 200018004

Bits. Mini-Uzi 200018005

Dupla Micro Uzi 200018006

Bits. Uzi com o deserto. 200018007

Bits. Mini-Uzi com o deserto. 200018008

Bits. Micro-Uzi com o deserto. 200018009

Bits. Mini-Uzi com o deserto. SL 200018008

Nova Mini-Uzi 200018013

 

Snipers:

 

Dragunov 300005001

PSG-1 300005002

SSG-69 300005003

SSG-69 S. 300005004

L115A1 300005005

Dragunov G. 300005006

PSG-1 S. 300005007

SSG-69 Sl. 300005008

PSG-1 Sl. 300005009

Dragunov Sl. 300005010

Dragunov CS. 300005011

Dragunov CG. 300005012

Nova L115A1 300005015

PSG1 S. D 300005016

L115A1 D 300005017

M4 SRP lvl 1 300005018

M4 SRP lvl 2 300005019

M4 SRP lvl 3 300005020

Rangemaster .338 300005021

Rangemaster 7.62 300005022

Rangemaster 7.62 STBY 300005023

SSG-69 300005025

L115a1 black 300005026

SSG-69 Sl. D 300005027

SVD D 300005028

VSK-94 300005029

CheyTac M200 300005030

Winchester M70 300005031

Barrett M82A1 300005032

L115A1 pontilhada 300005033

DSR-1 300005034

IEDs 300005035

 

Shotguns:

 

870MCS 400006001

Shotgun Kahn Cholchzhuna 400006002

SPAS-15 400006003

870MCS W. 400006004

M1887 400006005

SPAS-15 Sl. 400006006

870MCS T. 400006007

870MCS Sl. 400006008

SPAS-15 Sl.+ 400006009

M1887 W. 400006010

870MCS W D 400006011

SPAS-15 D 400006012

M26 LSS 400006013

870MCS Sl. D 400006014

870MCS D 400006015

SPAS-15 Sl. D 400006016

M1887 D 400006017

SPAS-15 MSC 400006018

JackHammer 400006019

 

Guns:

 

Mk 46 Ext. 500010001

Mk 46 Sl. 500010002

Rap 500010003

L86 LSW 500010004

 

Pistolas:

 

Desert Eagle 601002001

Mk 23 Ext. 601002002

K-5 601002003

D-Eagle S. 601002005

P99 601002006

Colt Python 601002007

D-Eagle S 601002008

K-5 601002009

Colt Python G. 601002010

Glock 18 601002011

Colt Python D 601002012

R.B 454 SS2M 601002013

R.B 454 SS5M 601002014

R.B 454 SS8M 601002015

R.B 454 SS8M 601002016

Colt Python G 601002017

Colt Python G D 601002018

Mk 23 Ext. D 601002019

Colt Python D 601002020

Glock 18 D 601002021

Colt 45 601002022

IMI Uzi 9mm 601002023

Kriss Vector SDP 601002024

P99&HAK 601013001

P99&HAK Sl. 601013002

P99&HAK D. 601013003

P99&HAK Sl. D 601013004

Dual Handgun 601014001

Dual D-Eagle 601014002

Dual D-Eagle G. 601014004

Dual Handgun D. 601014005

Dual D-Eagle D 601014006

Hk45 Dual 601014007

 

Armas Brancas:

 

M7 702001001

M9 702001002

HAK 702001003

Amok Kukri 702001004

Mini-Axe 702001006 (Eles são os mesmos)\/

Mini-Axe 702001007 (Eles são os mesmos)

Mini-Axe 702001008 (Eles são os mesmos)/\

M7 G. 702001009

HAK Sl. 702001010

Amok Kukri D 702001011

Mini-Axe D 702001012 (Eles são os mesmos)\/

Mini-Axe D 702001013 (Eles são os mesmos)/\

Machete DE Combate 702001014

Fang Blade 702001017

Ballistic Knife 702001018 (Eles são os mesmos)\/

Ballistic Knife 702001019 (Eles são os mesmos)/\

Keris 702001021

Dual Knife 700015001

Dual Knife D 700015002

Faca de osso 700015003

 

Especiais:

 

K-400 904007001

Smoke 904007002

FlashBang 904007003

C-5 904007004

WP Smoke 904007005

C-5 D. 904007006

Wp Smoke D. 904007007

Granada Chocolate 904007009

Smoke Plus 904007010

Medical Kit 904007011

WP Smoke Plus 904007012

Flash Bang Plus 904007013

Halloween Medical Kit 904007014

ﾠﾠTroféus e Medalhasﾠﾠ
Link para o comentário
Compartilhar em outros sites
Este tópico está impedido de receber novos posts.
 Compartilhar
Ir para a lista de tópicos
×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.

 Accept Cookies  Reject Cookies