Como crear un Trainer para KO en VB.net

Tema en 'Knight Online' iniciado por S4Player, 5 Jun 2012.

Estado del tema:
Cerrado para nuevas respuestas
  1. S4P

    S4Player
    Expand Collapse
    Recluta

    Mensajes:
    2
    Me Gusta recibidos:
    2
    Hola a todos este es mi primer post, primero necesitamos el modulo:
    HS4L-[Open].vb
    PHP:
    Module HS4L__Open_
        
    Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As IntegerByVal bInheritHandle As IntegerByVal dwProcessId As Integer) As Integer
        
    Private Declare Function WriteProcessMemory1 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As IntegerByVal lpBaseAddress As IntegerByRef lpBuffer As IntegerByVal nSize As IntegerByRef lpNumberOfBytesWritten As Integer) As Integer
        
    Private Declare Function WriteProcessMemory2 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As IntegerByVal lpBaseAddress As IntegerByRef lpBuffer As LongByVal nSize As IntegerByRef lpNumberOfBytesWritten As Integer) As Integer
        
    Private Declare Function WriteProcessMemory3 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As IntegerByVal lpBaseAddress As IntegerByRef lpBuffer As SingleByVal nSize As IntegerByRef lpNumberOfBytesWritten As Integer) As Integer
        
    Private Declare Function WriteProcessMemory4 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As IntegerByVal lpBaseAddress As IntegerByRef lpBuffer As DoubleByVal nSize As IntegerByRef lpNumberOfBytesWritten As Integer) As Integer
       
        
    Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer
        
    Const PROCESS_ALL_ACCESS = &H1F0FF
        
    Public Sub WriteInteger(ByVal ProcessName As StringByVal Address As IntegerByVal Value As Integer)
            If 
    ProcessName.EndsWith(".exe"Then
                ProcessName 
    ProcessName.Replace(".exe""")
            
    End If
            
    Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
            If 
    MyP.Length 0 Then
                MessageBox
    .Show(ProcessName " isn't open!")
                Exit 
    Sub
            End 
    If
            
    Dim hProcess As IntPtr OpenProcess(PROCESS_ALL_ACCESS0MyP(0).Id)
            If 
    hProcess IntPtr.Zero Then
                MessageBox
    .Show("Failed to open " ProcessName "!")
                Exit 
    Sub
            End 
    If
            
    Dim hAddressvBuffer As Integer
            hAddress 
    Address
            vBuffer 
    Value
            WriteProcessMemory1
    (hProcesshAddressCInt(vBuffer), vBuffer.ToString.Length0)
        
    End Sub
        
    Public Sub WriteLong(ByVal ProcessName As StringByVal Address As IntegerByVal Value As Long)
            If 
    ProcessName.EndsWith(".exe"Then
                ProcessName 
    ProcessName.Replace(".exe""")
            
    End If
            
    Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
            If 
    MyP.Length 0 Then
                MessageBox
    .Show(ProcessName " isn't open!")
                Exit 
    Sub
            End 
    If
            
    Dim hProcess As IntPtr OpenProcess(PROCESS_ALL_ACCESS0MyP(0).Id)
            If 
    hProcess IntPtr.Zero Then
                MessageBox
    .Show("Failed to open " ProcessName "!")
                Exit 
    Sub
            End 
    If
            
    Dim hAddress As Integer
            Dim vBuffer 
    As Long
            hAddress 
    Address
            vBuffer 
    Value
            WriteProcessMemory2
    (hProcesshAddressvBuffervBuffer.ToString.Length0)
        
    End Sub
        
    Public Sub WriteFloat(ByVal ProcessName As StringByVal Address As IntegerByVal Value As Single)
            If 
    ProcessName.EndsWith(".exe"Then
                ProcessName 
    ProcessName.Replace(".exe""")
            
    End If
            
    Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
            If 
    MyP.Length 0 Then
                MessageBox
    .Show(ProcessName " isn't open!")
                Exit 
    Sub
            End 
    If
            
    Dim hProcess As IntPtr OpenProcess(PROCESS_ALL_ACCESS0MyP(0).Id)
            If 
    hProcess IntPtr.Zero Then
                MessageBox
    .Show("Failed to open " ProcessName "!")
                Exit 
    Sub
            End 
    If
            
    Dim hAddress As Integer
            Dim vBuffer 
    As Single
            hAddress 
    Address
            vBuffer 
    Value
            WriteProcessMemory3
    (hProcesshAddressvBuffervBuffer.ToString.Length0)
        
    End Sub
        
    Public Sub WriteDouble(ByVal ProcessName As StringByVal Address As IntegerByVal Value As Double)
            If 
    ProcessName.EndsWith(".exe"Then
                ProcessName 
    ProcessName.Replace(".exe""")
            
    End If
            
    Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
            If 
    MyP.Length 0 Then
                MessageBox
    .Show(ProcessName " isn't open!")
                Exit 
    Sub
            End 
    If
            
    Dim hProcess As IntPtr OpenProcess(PROCESS_ALL_ACCESS0MyP(0).Id)
            If 
    hProcess IntPtr.Zero Then
                MessageBox
    .Show("Failed to open " ProcessName "!")
                Exit 
    Sub
            End 
    If
            
    Dim hAddress As Integer
            Dim vBuffer 
    As Double
            hAddress 
    Address
            vBuffer 
    Value
            WriteProcessMemory4
    (hProcesshAddressvBuffervBuffer.ToString.Length0)
        
    End Sub
        
    Public Function HS4LRunnigProcess(ByVal name As String) As Boolean
            
    For Each clsProcess As Process In Process.GetProcesses()
                If 
    clsProcess.ProcessName.StartsWith(nameThen
                    
    Return True
                End 
    If
            
    Next
            
    Return False
        End 
    Function
    End Module
    declaramos el sleep
    PHP:
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    ahora en la funciona de tu timer pudes poner esto:
    PHP:
    If (HS4LRunnigProcess("KnightOnLine") = TrueThen
                ToolTip1
    .Show("Changue Values"Me00)
                
    ToolStripStatusLabel4.Text "Changue Value"
                
    Sleep(550)
                If (
    CheckBox1.Checked TrueThen
                    WriteLong
    ("KnightOnLine", &H6CD1EC20)
                
    End If
                If (
    CheckBox2.Checked TrueThen
                    WriteLong
    ("KnightOnLine", &H6CD1EC20)
                
    End If
                
    Application.Exit()
            Else
                
    ToolStripStatusLabel4.Text "Waiting S4League"
                
    ToolTip1.Show("Waiting S4League"Me00)
            
    End If
        
    End Sub
    recuerden que si la address es 0x00458654 cambian el "0x00" por &H->
    PHP:
    &H458654
    eso es todo, easy and simple.
    saludos.

    Agradecer no cuesta nada .-.
     
    A LACUCA y MexicanSniper les gusta esto.
  2. Ari

    Aris
    Expand Collapse
    Subteniente

    Mensajes:
    434
    Me Gusta recibidos:
    48
    Jajaajajaja nose que hicistes pero vale la intencion ajajaja se ve que te esofrzastes sigue asi... algun dia aprendere.
     
Estado del tema:
Cerrado para nuevas respuestas

Compartir esta página