Como ago mi propio hack ??? =)

Topic created · 7 Posts · 579 Views
  • para ke kieres acer un hac con todos los ke ai aki, si no saves ni como acerlo seguro ke tendria menos opciones ke los ke ai aki

  • porfa me podriar ayudar mr podrian dar una guia o algo cualquiercosa seles agradese ok grax 😃 ( D ;;) bienvenido x >) -s B-)

  • Lo primero tendrás que decir que tipo de hack no? Como no hay hacks y bots...

  • yo te puedo ayudar a hacer 1 para los privados, que no necesita fix y es mas facil

  • Preguntale a mikiller el save xd 😃

  • Lo primero si quieres aprender rápido te aconsejo que bajes el CheatEngine. Y que de ahí, saques los offSets y los pointers fijos del juego. Luego crear módules en el VB2008 / .NET
    (este te puede servir)
    Modul1.vb

    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
    

    Y hacerlo funcionar, es complicado pero no está mal para el vb2008.
    Suerte!
    @jack013 said:

    Preguntale a mikiller el save xd 😃

    Not Real.

  • Xd ok aganle caso a Anghios Xd Is Not Real XD. Anghios Buena explicacion esa

Log in to reply