pbbr (point blank brasil) [Tutorial] Fasendo weapon indetectavel Pelo VB.Net

[0lukas0 0]

galera antes de mais nada de um Thx pq sou movido por isso quanto mais eu tiver mais hackers e tutoriais voces teram

Intaum meu nome e lukas e hj eu vou estar mostrando como faser um trainer indetectavel pelo VB.Net

1-Abra o seu visual basic

2-clica em New Project e e um nome ao seu projeto

3-adicione dois buttons a sua Form

4-adicione uma CheckBox e d 2 clikes e colokem o seguinte codigo:

On Error Resume Next

 

WritePointerInteger("PointBlank", &HA72CA8, 0, &H460, &H0)

 

Appication.Restart()

5-adicione 2 timers

6-vai em seus button e renomei os dois um para BtnRepeat e o outro para Btnrepeat2 e assim vai

7-agora vai no seu time renomei para Hotkey mude oo Enable para True e interval se coloka 1000

8-principal Gente nao Esqueçao adicionm um Modulo ao project:

'VB.NET Module

'Author : Cless

'How to use Read/Write Pointer

'Example Read

' Me.Text = ReadPointerInteger(Game exe name, &HPointer,&HOffset).ToString()

'

' Me.Text = ReadPointerInteger("gta_sa", &HB71A38,&H540).ToString()

' Or

' Me.Text = ReadPointerInteger("gta_sa", &HB71A38,&H540,&H544).ToString()

'Example Write

' WritePointerInteger(Game exe name,&HPointer,Value,&HOffset)

'

' WritePointerInteger("gta_sa",&HB71A38,1000,&H540)

' Or

' WritePointerInteger("gta_sa",&HB71A38,1000,&H540, &H544)

 

Module Trainer

Private Declare Function ReadMemoryByte Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Byte, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Byte

Private Declare Function ReadMemoryInteger Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Integer, Optional ByVal Size As Integer = 4, Optional ByRef Bytes As Integer = 0) As Integer

Private Declare Function ReadMemoryFloat Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Single, Optional ByVal Size As Integer = 4, Optional ByRef Bytes As Integer = 0) As Single

Private Declare Function ReadMemoryDouble Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Double, Optional ByVal Size As Integer = 8, Optional ByRef Bytes As Integer = 0) As Double

 

Private Declare Function WriteMemoryByte Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Byte, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Byte

Private Declare Function WriteMemoryInteger Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Integer, Optional ByVal Size As Integer = 4, Optional ByRef Bytes As Integer = 0) As Integer

Private Declare Function WriteMemoryFloat Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Single, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Single

Private Declare Function WriteMemoryDouble Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Double, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Double

 

Public Function ReadByte(ByVal EXENAME As String, ByVal Address As Integer) As Byte

Dim Value As Byte

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

ReadMemoryByte(Handle, Address, Value)

End If

End If

Return Value

End Function

 

Public Function ReadInteger(ByVal EXENAME As String, ByVal Address As Integer) As Integer

Dim Value As Integer

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

ReadMemoryInteger(Handle, Address, Value)

End If

End If

Return Value

End Function

 

Public Function ReadFloat(ByVal EXENAME As String, ByVal Address As Integer) As Single

Dim Value As Single

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

ReadMemoryFloat(Handle, Address, Value)

End If

End If

Return Value

End Function

 

Public Function ReadDouble(ByVal EXENAME As String, ByVal Address As Integer) As Double

Dim Value As Double

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

ReadMemoryByte(Handle, Address, Value)

End If

End If

Return Value

End Function

 

Public Function ReadPointerByte(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Byte

Dim Value As Byte

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

ReadMemoryByte(Handle, Pointer, Value)

End If

End If

Return Value

End Function

 

Public Function ReadPointerInteger(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Integer

Dim Value As Integer

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

ReadMemoryInteger(Handle, Pointer, Value)

End If

End If

Return Value

End Function

 

Public Function ReadPointerFloat(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Single

Dim Value As Single

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

ReadMemoryFloat(Handle, Pointer, Value)

End If

End If

Return Value

End Function

 

Public Function ReadPointerDouble(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Double

Dim Value As Double

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

ReadMemoryDouble(Handle, Pointer, Value)

End If

End If

Return Value

End Function

 

Public Sub WriteByte(ByVal EXENAME As String, ByVal Address As Integer, ByVal Value As Byte)

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

WriteMemoryByte(Handle, Address, Value)

End If

End If

End Sub

 

Public Sub WriteInteger(ByVal EXENAME As String, ByVal Address As Integer, ByVal Value As Integer)

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

WriteMemoryInteger(Handle, Address, Value)

End If

End If

End Sub

 

Public Sub WriteFloat(ByVal EXENAME As String, ByVal Address As Integer, ByVal Value As Single)

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

WriteMemoryFloat(Handle, Address, Value)

End If

End If

End Sub

 

Public Sub WriteDouble(ByVal EXENAME As String, ByVal Address As Integer, ByVal Value As Double)

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

WriteMemoryDouble(Handle, Address, Value)

End If

End If

End Sub

 

Public Sub WritePointerByte(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As Byte, ByVal ParamArray Offset As Integer())

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

WriteMemoryByte(Handle, Pointer, Value)

End If

End If

End Sub

 

Public Sub WritePointerInteger(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As Integer, ByVal ParamArray Offset As Integer())

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

WriteMemoryInteger(Handle, Pointer, Value)

End If

End If

End Sub

 

Public Sub WritePointerFloat(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As Single, ByVal ParamArray Offset As Integer())

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

WriteMemoryFloat(Handle, Pointer, Value)

End If

End If

End Sub

 

Public Sub WritePointerDouble(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As Double, ByVal ParamArray Offset As Integer())

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

WriteMemoryDouble(Handle, Pointer, Value)

End If

End If

End Sub

End Module

9-vai em hotkey(Timer)e da 2 clikes vai no final dapalavra end sub e aperta Enter agora adiciona o seguinte codigo

<System.Runtime.InteropServices.DllImportAttribute("user32.dll")> _

Private Shared Function GetAsyncKeyState(ByVal vkey As System.Windows.Forms.Keys) As Short

End Function

9-agora de volte a sua form e de dois clikes no seu btnrepeat ou Btnrepeat2/3/4/5/6/7/8/9/10 adicione o seguinte codigo:

On Error Resume Next

 

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &H83C)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &H994)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &HC44)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &HEF4)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &H11A4)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &H1454)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &H1704)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &H19B4)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &H83C)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &HAEC)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &HD9C)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &H104C)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &H12FC)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &H15AC)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &H185C)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &H1B0C)

WritePointerInteger("PointBlank", &HA72994, Codigo Da Arma desejada, &H5B8, &H38, &H8)

 

 

Application.Restart()

 

 

Dim Re As Integer

Re = ReadPointerInteger("PointBlank", &HA72CA8, &H45DCC)

Dim R As Integer

R = Re - 5

WritePointerInteger("PointBlank", &HA72CA8, R, &H45DCC)

 

10-renomeie o seu Buton No Text para o nome da arma desejada

11-agora clike na hotkey(Timer) e adicione o seguinte codigo:

Dim Hotkey As Boolean

Hotkey = GetAsyncKeyState(Keys.F10)

If Hotkey = True Then

Button1.PerformClick()

End If

 

Obs;

1-a cada Button q vc colokar c adiciona um timer a ele

2-sempre renomeie o seus butons para

Name:Btnrepeat

e o seu Text para o da arma q vc quiser

 

Pronto seu weapon esta criado agora se vc nao entendeu Releia e aprenda pq nao e facil

vou disponibilisar varios codigos para download eu nao irei deixar scan pq nao sera preciso pq sao textos no Bloco De Nota entaum nao vai ser preciso

Se eu Te Ajuei de Um Thx ai pq nao e facil faser um texto desse aki pra voces apenas lerem e naoo darem Thx ok flw gente ate a proxima

Download Codigos:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[[A]ɱɑɗѳʀ 0]

Tem como por o link de download do visual basic?

[SexWithYou 0]

ɱɑɗѳʀ;7641645']Tem como por o link de download do visual basic?

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Não vou por scan por ser do baixaki e eu não uso o VB.

 

 

Quanto ao topico,está morto,sem cores,já postado pelo menos umas 516381381681 (apenas um exagero) de vezes.