1. Inicio
  2. Metin2
  3. Utilidades, hacks y bots
  4. Module1.vb [VB2010]

Module1.vb [VB2010]

Topic created · 6 Mensajes · 1075 Visitas

  • 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

    0

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

    0

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

    0

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

    0

  • 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
    0

  • @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: **

    0
Accede para responder