(Ayuda) como usar los pointer & offset EN VB.NET

Buenos Despues De Tanto Leer Logre Creear mi Trainer de de PvZ 2

Les dejo

Citar

Código:

En un Modulo Colocamos Esto

Código:

'Importamos la libreria 
Imports System.Runtime.InteropServices
'Propietario Original del modulo
'Autor: Cless
' Editado: por Mi
Module MemoryEditor
    '########## Funcion Para Leer Memoria ############
    '   LMBytes: Sirve Para leer Los bytes 
    '   LMInt: aun no entiendo su funsionalidad completamente no si si lee de 2bytes, 4 bytes 8byte o un array
    '   LMFloat: Sirve para leer memoria flotante
    '   LMDouble: Sirve para leer Memoria Double
    '########## Funcion Para Escribir Memoria ############
    '   EMBytes: Sirve Para  escribir Los bytes 
    '   EMInt: aun no entiendo su funsionalidad completamente no  si Escribir de 2bytes, 4 bytes 8byte o un array
    '   EMFloat: Sirve para Escribir memoria flotante
    '   EMDouble: Sirve para Escribir Memoria Double

    Private Declare Function LMBytes 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 LMInt 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 LMFloat 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 LMDouble 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 EMBytes 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 EMInt 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 EMFloat 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 EMDouble 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 LBytes(ByVal NombreDelExe As String, ByVal Address As Integer) As Byte
        Dim Value As Byte
        If Process.GetProcessesByName(NombreDelExe).Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessesByName(NombreDelExe)(0).Handle
            If Handle <> 0 Then
                LMBytes(Handle, Address, Value)
            End If
        End If
        Return Value
    End Function
    Public Function LInt(ByVal NombreDelExe As String, ByVal Address As Integer) As Integer
        Dim Value As Integer
        If Process.GetProcessesByName(NombreDelExe).Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessesByName(NombreDelExe)(0).Handle
            If Handle <> 0 Then
                LMInt(Handle, Address, Value)
            End If
        End If
        Return Value
    End Function
    Public Function LFloat(ByVal NombreDelExe As String, ByVal Address As Integer) As Single
        Dim Value As Single
        If Process.GetProcessesByName(NombreDelExe).Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessesByName(NombreDelExe)(0).Handle
            If Handle <> 0 Then
                LMFloat(Handle, Address, Value)
            End If
        End If
        Return Value
    End Function
    Public Function LDouble(ByVal NombreDelExe As String, ByVal Address As Integer) As Double
        Dim Value As Double
        If Process.GetProcessesByName(NombreDelExe).Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessesByName(NombreDelExe)(0).Handle
            If Handle <> 0 Then
                LMBytes(Handle, Address, Value)
            End If
        End If
        Return Value
    End Function
    Public Function LPBytes(ByVal NombreDelExe As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Byte
        Dim Value As Byte
        If Process.GetProcessesByName(NombreDelExe).Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessesByName(NombreDelExe)(0).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    LMInt(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                LMBytes(Handle, Pointer, Value)
            End If
        End If
        Return Value
    End Function
    Public Function LPInt(ByVal NombreDelExe As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Integer
        Dim Value As Integer
        If Process.GetProcessesByName(NombreDelExe).Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessesByName(NombreDelExe)(0).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    LMInt(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                LMInt(Handle, Pointer, Value)
            End If
        End If
        Return Value
    End Function
    Public Function LPFloat(ByVal NombreDelExe As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Single
        Dim Value As Single
        If Process.GetProcessesByName(NombreDelExe).Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessesByName(NombreDelExe)(0).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    LMInt(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                LMFloat(Handle, Pointer, Value)
            End If
        End If
        Return Value
    End Function
    Public Function LPDouble(ByVal NombreDelExe As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Double
        Dim Value As Double
        If Process.GetProcessesByName(NombreDelExe).Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessesByName(NombreDelExe)(0).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    LMInt(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                LMDouble(Handle, Pointer, Value)
            End If
        End If
        Return Value
    End Function
    Public Sub EBytes(ByVal NombreDelExe As String, ByVal Address As Integer, ByVal Value As Byte)
        If Process.GetProcessesByName(NombreDelExe).Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessesByName(NombreDelExe)(0).Handle
            If Handle <> 0 Then
                EMBytes(Handle, Address, Value)
            End If
        End If
    End Sub
    Public Sub EInt(ByVal NombreDelExe As String, ByVal Address As Integer, ByVal Value As Integer)
        If Process.GetProcessesByName(NombreDelExe).Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessesByName(NombreDelExe)(0).Handle
            If Handle <> 0 Then
                EMInt(Handle, Address, Value)
            End If
        End If
    End Sub
    Public Sub EFloat(ByVal NombreDelExe As String, ByVal Address As Integer, ByVal Value As Single)
        If Process.GetProcessesByName(NombreDelExe).Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessesByName(NombreDelExe)(0).Handle
            If Handle <> 0 Then
                EMFloat(Handle, Address, Value)
            End If
        End If
    End Sub
    Public Sub EDouble(ByVal NombreDelExe As String, ByVal Address As Integer, ByVal Value As Double)
        If Process.GetProcessesByName(NombreDelExe).Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessesByName(NombreDelExe)(0).Handle
            If Handle <> 0 Then
                EMDouble(Handle, Address, Value)
            End If
        End If
    End Sub
    Public Sub EPBytes(ByVal NombreDelExe As String, ByVal Pointer As Integer, ByVal Value As Byte, ByVal ParamArray Offset As Integer())
        If Process.GetProcessesByName(NombreDelExe).Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessesByName(NombreDelExe)(0).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    LMInt(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                EMBytes(Handle, Pointer, Value)
            End If
        End If
    End Sub
    Public Sub EPInt(ByVal NombreDelExe As String, ByVal Pointer As Integer, ByVal Value As Integer, ByVal ParamArray Offset As Integer())
        If Process.GetProcessesByName(NombreDelExe).Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessesByName(NombreDelExe)(0).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    LMInt(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                EMInt(Handle, Pointer, Value)
            End If
        End If
    End Sub
    Public Sub EPFloat(ByVal NombreDelExe As String, ByVal Pointer As Integer, ByVal Value As Single, ByVal ParamArray Offset As Integer())
        If Process.GetProcessesByName(NombreDelExe).Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessesByName(NombreDelExe)(0).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    LMInt(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                EMFloat(Handle, Pointer, Value)
            End If
        End If
    End Sub
    Public Sub EPDouble(ByVal NombreDelExe As String, ByVal Pointer As Integer, ByVal Value As Double, ByVal ParamArray Offset As Integer())
        If Process.GetProcessesByName(NombreDelExe).Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessesByName(NombreDelExe)(0).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    LMInt(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                EMDouble(Handle, Pointer, Value)
            End If
        End If
    End Sub

End Module

Ahora En el Formulario Principal Ponemos El siguiente Codigo

Código:

Public Class FRMTRAINER
    <System.Runtime.InteropServices.DllImport("user32.dll")> _
    Private Shared Function GetAsyncKeyState(ByVal vkey As System.Windows.Forms.Keys) As Short
    End Function
    Private Sub TGeneral_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TGeneral.Tick
        Dim hotkey As Boolean
        hotkey = GetAsyncKeyState(Keys.F3)
        hotkey = GetAsyncKeyState(Keys.F4)
        hotkey = True
        Select Case hotkey
            Case Is = GetAsyncKeyState(Keys.F3)
                TSoles.Enabled = True
            Case Is = GetAsyncKeyState(Keys.F4)
                TMoney.Enabled = True
        End Select
    End Sub
    Private Sub TMoney_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TMoney.Tick
        EPInt("popcapgame1", &H73D7E8, 99999, &H94C, &H50) 'le agrega 1m de Dolares

        TMoney.Enabled = False
    End Sub
    Private Sub TSoles_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSoles.Tick
        EPInt("popcapgame1", &H73D7E8, 99999, &H868, &H5578) '  infinitos soles
        TSoles.Enabled = False
    End Sub
End Class

Yo use VB.Net 2010