[SOURCE CODE] MakeWeapon Function

[NightKnight 0]

Olá galera,

Hoje como meu primeiro post estarei postando um nova função, ela irá resumir e deixar mais organizado seus trainer com weapon hack:

 

Sub makeWeapon(ByVal weaponCode As Integer, ByVal Pointer As Integer, ByVal lastPointer As Integer)

Dim i As Integer

For i = 2108 To 6924 Step 344

Dim offset As String = "&H" & Hex(i)

WritePointerInteger("Pointblank", Pointer, weaponCode, offset)

Next

WritePointerInteger("Pointblank", lastPointer, weaponCode, &H5B8, &H38, &H8)

End Sub

 

Exemplo de uso:

 

If currentWeapon.SelectedItem = "AUG A3 G." Then

makeWeapon(100003037, &HA72CA8, &HA72994) ' codigo da arma, pointer fixo, pointer final

End If

 

Verdadeiros Hackers entenderão como eu entendi!

 

Créditos: (H)ard©heater

 

Ajudou, dê thanks e não se esqueça do autor. S2

[nailtonjk 1]

Manow coloque os devidos

 

Créditos do HACK***USER !

 

e eu testei no topico que ele fez e Funfou !

 

Mas quando adcionei para ComboBox deu erro ai desisti !

[CarlossWW 0]

LOL Cara saquei como tu feiz você so resumio tudo em apenas alguns cód's é como se fosse as regras do loop for etc porém vc não usou o loop for.

[TkoProgramador 0]

Creio que seja fake ~s

[rickrick2011 0]

Sim, concordo.

Os enderecos, como disse nesse post http://www.webcheats.com.br/forum/c-c-c/1785979-pbbr-video-aula-como-editar-varias-armas-do-pointblank-usando-loops.html#post7390588, sao apenas enderecos de classes.

 

Eu uso diretamente na classe.