Ir para conteúdo
Faça parte da equipe! (2024) ×

fellype12

Membro Avançado
  • Total de Posts

    36
  • Registro em

  • Última visita

  • WCoins

    0

Posts postados por fellype12

  1. e um lixo e inutil ums cara deses postano merda aki na wb afs ke merda mano filhoda ****

    nem rola ver ums cara deses ainda para ser tao inutil posta merda de um videl lixo desses afs

    toma no seu ** reportado.

    mas eu ainda acho ke a wb presisa ver os videus antes de permite o post pq se nao va ter so porcari aguns posta coisa

    boa e outros posta merda vai se foder mano esse e meu comentaril.....................

  2. mano modo lo para tu '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 agora codigo do time If Checkbox1.checked = True Then

    Timer1.start()

    Else

    Timer1.stop()

     

    End If codigo da arma Const myWeapon As Integer = 300005021 ' Código da Rangermaster .338

    Dim i As Integer

    For i = 2108 To 6924 Step 344

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

    WritePointerInteger("Pointblank", &HA72CA8, myWeapon, offset)

    Next

    WritePointerInteger("Pointblank", &HA72994, myWeapon, &H5B8, &H38, &H8)

     

    mano modo lo para tu '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 agora codigo do time If Checkbox1.checked = True Then

    Timer1.start()

    Else

    Timer1.stop()

     

    End If codigo da arma Const myWeapon As Integer = 300005021 ' Código da Rangermaster .338

    Dim i As Integer

    For i = 2108 To 6924 Step 344

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

    WritePointerInteger("Pointblank", &HA72CA8, myWeapon, offset)

    Next

    WritePointerInteger("Pointblank", &HA72994, myWeapon, &H5B8, &H38, &H8)

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