Module1.vb [VB2010]

Topic created · 6 Posts · 1002 Views
  • Aquí dejo el module1.vb para hacer un hack en VisualBasic 2010.

    Module Module1
        Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Long, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
        Public Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
        Public Declare Function ReadSingle Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Boolean
        'Teletransporte
        Public Declare Function WriteSingle Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Boolean
        Public Declare Function WriteByte Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Byte, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
        Public Processo As Process() = Process.GetProcessesByName("metin2client.bin")
        Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
        Public AtkMode As Boolean = False
        Public rgatkkMode As Boolean = False
        Public hitmode As Boolean = False
        Public InviMode As Boolean = False
        Public MovMode As Boolean = False
    
    
        Public Function ReturnAddy(ByVal Addybase As String, ByVal Off1 As Integer, ByVal Off2 As Integer) As String
            Dim addy As String
            ReadProcessMemory(processHandle, "&H" & Addybase, value, 4, Nothing)
            addy = "&H" & Conversion.Hex(value + Off1)
            ReadProcessMemory(processHandle, addy, value, 4, Nothing)
            addy = "&H" & Conversion.Hex(value + Off2)
            Return addy
        End Function
    
    
        Public processHandle As IntPtr
        Public value As String
    End Module
    

    Esta parte de aquí:

    Public AtkMode As Boolean = False
        Public rgatkkMode As Boolean = False
        Public hitmode As Boolean = False
        Public InviMode As Boolean = False
        Public MovMode As Boolean = False
    

    Podéis cambiar el InviMode, MovMode etc y ponerle el nombre que queráis. Por ejemplo Chngnme sería changename, o lo que os salga de las narices xD

  • va esta guay pero.. como se hace y que funcion tiene?

  • Puedes dejar un tuto de como monto el hack? XD

  • es verdddddad yo no lo entiendo pon fotoes y di k hace por favor

  • Y este el que uso yo, Anghios, no se diferencian mucho no? xD y otra cosa, no crees que esto deberia ir en la zona de programacion?

    Module Module1
        Public Const PROCESS_ALL_ACCESS = &H ***change it***
        Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
        Public Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
        Public myProcesses As Process() = Process.GetProcessesByName("metin2client.bin")
        Public processHandle As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, myProcesses(0).Id)
        Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
        Public Function EditMemory(ByVal Pointer As String, ByVal OffSet1 As String, ByVal OffSet2 As String, ByVal Value As String)
            Pointer = "&H" & Pointer
            Dim buffer As Integer
            Dim buffer1 As Integer
            Dim off1 = "&H" & OffSet1
            Dim off2 = "&H" & OffSet2
            Dim val = Value
            ReadProcessMemory(processHandle, Pointer, buffer, 4, Nothing)
            buffer += off1
            ReadProcessMemory(processHandle, buffer, buffer1, 4, Nothing)
            buffer1 += off2
            WriteProcessMemory(processHandle, buffer1, val, 4, Nothing)
            Return 0
        End Function
    End Module
  • @jumarras said:

    Y este el que uso yo, Anghios, no se diferencian mucho no? xD y otra cosa, no crees que esto deberia ir en la zona de programacion?

    Module Module1
        Public Const PROCESS_ALL_ACCESS = &H ***change it***
        Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
        Public Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
        Public myProcesses As Process() = Process.GetProcessesByName("metin2client.bin")
        Public processHandle As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, myProcesses(0).Id)
        Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
        Public Function EditMemory(ByVal Pointer As String, ByVal OffSet1 As String, ByVal OffSet2 As String, ByVal Value As String)
            Pointer = "&H" & Pointer
            Dim buffer As Integer
            Dim buffer1 As Integer
            Dim off1 = "&H" & OffSet1
            Dim off2 = "&H" & OffSet2
            Dim val = Value
            ReadProcessMemory(processHandle, Pointer, buffer, 4, Nothing)
            buffer += off1
            ReadProcessMemory(processHandle, buffer, buffer1, 4, Nothing)
            buffer1 += off2
            WriteProcessMemory(processHandle, buffer1, val, 4, Nothing)
            Return 0
        End Function
    End Module
    

    **Creo que esta bien aqui, ya que el tutorial quieras o no pertenece a hacks y bots :icon_neutral: **

Log in to reply