Programação VB.NET

[Hades¹1551870064 0]

Olá galera a WC, Hoje vim aqui postar para vocês Alguns Códigos que achei.

Bom, Antes que falem que isso já foi Postado, Eu procurei e não achei nada parecido, ai resolvi postar.

 

 

No - Recoil

 

Código:

Dim i As Integer

Dim h As String

Dim G As String

For i = 132 To 1076 Step 4

G = Hex(i)

h = "&H" & G

WritePointerByte("PointBlank", &HA72C8C, 0, &H174, h, &HF43)

WritePointerByte("PointBlank", &HA72C8C, 0, &H174, h, &HF4B)

WritePointerByte("PointBlank", &HA72C8C, 0, &H174, h, &HF5B)

Next

 

 

No - Reload

 

Código:

Dim i As Integer

Dim h As String

Dim G As String

For i = 132 To 1076 Step 4

G = Hex(i)

h = "&H" & G

WritePointerByte("PointBlank", &HA72C8C, 16777215, &H174, h, &HEE3)

Next

 

 

Munição

 

Código:

Dim i As Integer

Dim h As String

Dim G As String

For i = 132 To 1076 Step 4

G = Hex(i)

h = "&H" & G

WritePointerByte("PointBlank", &HA72C8C, TrackBar1.Value, &H174, h, &HEF9)

Next

 

 

Precisão

 

Código:

Dim i As Integer

Dim h As String

Dim G As String

For i = 132 To 1076 Step 4

G = Hex(i)

h = "&H" & G

WritePointerByte("PointBlank", &HA72C8C, TrackBar2.Value, &H174, h, &HF33)

Next

 

 

Mira certa

 

Código:

Dim i As Integer

Dim h As String

Dim G As String

For i = 132 To 1076 Step 4

G = Hex(i)

h = "&H" & G

WritePointerByte("PointBlank", &HA72C8C, 0, &H174, h, &HF53)

Next

 

 

Alcance

 

Código:

Dim i As Integer

Dim h As String

Dim G As String

For i = 132 To 1076 Step 4

G = Hex(i)

h = "&H" & G

WritePointerByte("PointBlank", &HA72C8C, TrackBar4.Value, &H174, h, &H507)

Next

 

 

Peso

 

Código:

Dim i As Integer

Dim h As String

Dim G As String

For i = 132 To 1076 Step 4

G = Hex(i)

h = "&H" & G

WritePointerByte("PointBlank", &HA72C8C, TrackBar5.Value, &H174, h, &H51A)

Next

 

 

Proteção Universal

 

Código:

Dim i As Integer

Dim h As String

Dim G As String

For i = 412 To 667 Step 1

G = Hex(i)

h = "&H" & G

WritePointerByte("PointBlank", &HA72C8C, 255, h)

Next

 

 

Dino Spam

 

Código:

WritePointerByte("PointBlank", &HA72C8C, 1, &H248, &HD4)

 

 

Head Hunter

Código:

WritePointerByte("PointBlank", &HA72C8C, 56, &H45E01)

 

 

Mk23 Metralha

 

Código:

WritePointerByte("PointBlank", &HA72C8C, 68, &H174, &H15C, &HED7)

WritePointerByte("PointBlank", &HA72C8C, 68, &H174, &H15C, &HF07)

 

 

Modo Clube

 

Código:

WritePointerByte("PointBlank", &HA72C8C, &H08, &H45E01)

 

 

Weapon Hacker

Código:

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGO DA ARMA, &H83C)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGO DA ARMA, &H994)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGO DA ARMA, &HC44)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGO DA ARMA, &HEF4)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGO DA ARMA, &H11A4)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGO DA ARMA, &H1454)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGO DA ARMA, &H1704)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGO DA ARMA, &H19B4)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGO DA ARMA, &H83C)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGO DA ARMA, &HAEC)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGO DA ARMA, &HD9C)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGO DA ARMA, &H104C)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGO DA ARMA, &H12FC)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGO DA ARMA, &H15AC)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGO DA ARMA, &H185C)

WritePointerInteger("PointBlank", &HA72CA8, CÓDIGO DA ARMA, &H1B0C)

WritePointerInteger("PointBlank", &HA72994, CÓDIGO DA ARMA, &H5B8, &H38, &H8)

 

Bom , galera, não testei ainda. Mas com isso pretendo fazer algum trainer.

Se quiserem usar esses códigos para algum hacker, usem , e me informem se está tudo funcionando.

Abraços.

 

Créitos:

HxRedBully , ~*filiρiинσ*~