Legolas93's Pointers and SourceCode!

[sillynuts]

Dim lng As Long
            Dim txt As String
            Dim lng1 As Long
            Dim txt1 As String
            Dim lng2 As Long
            Dim lng3 As Long
            Dim lng4 As Long
            Dim lng5 As Long
            Dim lng6 As Long
            Dim txt2 As String
            Dim i As Integer
            Dim lng7 As Long
            i = 0
            Module1.ReadLong(CType(Module1.processHandle, IntPtr), 6706812, lng4, 4, i)
            lng6 = lng4 + CType(2504, Long)
            Conversion.Hex(lng6)
            i = 0
            Module1.ReadLong(CType(Module1.processHandle, IntPtr), CType(lng6, Integer), lng5, 4, i)
            txt2 = Conversions.ToString(lng5 + CType(1148, Long))
            Me.oneshot = Conversion.Hex(txt2)
            lng1 = lng4 + CType(2504, Long)
            Conversion.Hex(lng1)
            i = 0
            Module1.ReadLong(CType(Module1.processHandle, IntPtr), CType(lng1, Integer), lng3, 4, i)
            txt1 = Conversions.ToString(lng3 + CType(1138, Long))
            Me.nomiss = Conversion.Hex(txt1)
            lng = lng4 + CType(2504, Long)
            Conversion.Hex(lng)
            i = 0
            Module1.ReadLong(CType(Module1.processHandle, IntPtr), CType(lng, Integer), lng2, 4, i)
            txt = Conversions.ToString(lng2 + CType(1152, Long))
            Me.magicshot = Conversion.Hex(txt)
            lng7 = CType(Math.Round(CType(Me.shoting, Double)), Long)
            i = 0
            Module1.ReadLong(CType(Module1.processHandle, IntPtr), Conversions.ToInteger(String.Concat("&H", Me.oneshot)), lng7, 4, i)
            Me.shoting = CType(lng7, Single)
            lng7 = CType(Math.Round(CType(Me.missing, Double)), Long)
            i = 0
            Module1.ReadLong(CType(Module1.processHandle, IntPtr), Conversions.ToInteger(String.Concat("&H", Me.nomiss)), lng7, 4, i)
            Me.missing = CType(lng7, Single)
            lng7 = CType(Math.Round(CType(Me.magicshoting, Double)), Long)
            i = 0
            Module1.ReadLong(CType(Module1.processHandle, IntPtr), Conversions.ToInteger(String.Concat("&H", Me.magicshot)), lng7, 4, i)
            Me.magicshoting = CType(lng7, Single)
            Return

module1

Option Strict Off
Option Explicit On

Imports System
Imports System.Diagnostics
Imports System.Runtime.InteropServices
Imports Microsoft.VisualBasic.CompilerServices

Namespace WindowsApplication1
    <StandardModule()> _
    NotInheritable Class Module1
        Inherits Object
        Private Const PAGE_NOACCESS As Long = 1
        Private Const PAGE_READONLY As Long = 2
        Private Const PAGE_READWRITE As Long = 4
        Private Const PAGE_WRITECOPY As Long = 8
        Private Const PAGE_EXECUTE As Long = 16
        Private Const PAGE_EXECUTE_READ As Long = 32
        Private Const PAGE_EXECUTE_READWRITE As Long = 64
        Private Const PAGE_EXECUTE_WRITECOPY As Long = 128
        Private Const PAGE_GUARD As Long = 256
        Private Const PAGE_NOCACHE As Long = 512
        Private Const PROCESS_ALL_ACCESS As Integer = 2035711
        Private Const HWND_TOPMOST As Integer = -1
        Private Const HWND_NOTOPMOST As Integer = -2
        Private Const SWP_NOSIZE As Integer = 1
        Private Const SWP_NOMOVE As Integer = 2
        Private Const SWP_NOACTIVATE As Integer = 16
        Private Const SWP_SHOWWINDOW As Integer = 64
        Public Shared myProcesses As System.Diagnostics.Process()
        Public Shared processHandle As IntPtr
        Shared Sub New()
            WindowsApplication1.Module1.myProcesses = Process.GetProcessesByName("TClient.exe")
            WindowsApplication1.Module1.processHandle = CType(WindowsApplication1.Module1.OpenProcess(2035711, 0, WindowsApplication1.Module1.myProcesses(0).Id), IntPtr)
            Return
        End Sub
        <DllImport("User32")> _
        Private Shared Sub SetWindowPos(ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
        End Sub
        <DllImport("shell32.dll", EntryPoint:="ShellExecuteA", ExactSpelling:=True, CharSet:=CharSet.[Ansi])> _
        Public Shared Function ShellExecute(ByVal hwnd As Long, <MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpOperation As String, <MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpFile As String, <MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpParameters As String, <MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpDirectory As String, ByVal nShowCmd As Long) As Long
        End Function
        <DllImport("kernel32")> _
        Public Shared Function OpenProcess(ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
        End Function
        <DllImport("kernel32", EntryPoint:="ReadProcessMemory", ExactSpelling:=True, CharSet:=CharSet.[Ansi])> _
        Public Shared Function ReadByte(ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Byte, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Boolean
        End Function
        <DllImport("kernel32", EntryPoint:="ReadProcessMemory", ExactSpelling:=True, CharSet:=CharSet.[Ansi])> _
        Public Shared Function ReadInt(ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Boolean
        End Function
        <DllImport("kernel32", EntryPoint:="ReadProcessMemory", ExactSpelling:=True, CharSet:=CharSet.[Ansi])> _
        Public Shared Function ReadLong(ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Long, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Boolean
        End Function
        <DllImport("kernel32", EntryPoint:="ReadProcessMemory", ExactSpelling:=True, CharSet:=CharSet.[Ansi])> _
        Public Shared Function ReadSingle(ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Boolean
        End Function
        <DllImport("kernel32", EntryPoint:="WriteProcessMemory", ExactSpelling:=True, CharSet:=CharSet.[Ansi])> _
        Public Shared Function WriteByte(ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Byte, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Boolean
        End Function
        <DllImport("kernel32", EntryPoint:="WriteProcessMemory", ExactSpelling:=True, CharSet:=CharSet.[Ansi])> _
        Public Shared Function WriteInt(ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Boolean
        End Function
        <DllImport("kernel32", EntryPoint:="WriteProcessMemory", ExactSpelling:=True, CharSet:=CharSet.[Ansi])> _
        Public Shared Function WriteLong(ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Long, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Boolean
        End Function
        <DllImport("kernel32", EntryPoint:="WriteProcessMemory", ExactSpelling:=True, CharSet:=CharSet.[Ansi])> _
        Public Shared Function WriteSingle(ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Boolean
        End Function
        <DllImport("kernel32")> _
        Public Shared Function VirtualProtectEx(ByVal hProcess As Integer, ByRef lpAddress As Object, ByVal dwSize As Integer, ByVal flNewProtect As Integer, ByRef lpflOldProtect As Integer) As Integer
        End Function
        <DllImport("user32")> _
        Public Shared Function GetKeyState(ByVal nVirtKey As Short) As Integer
        End Function
        <DllImport("gdi32")> _
        Public Shared Function GetPixel(ByVal hDC As Integer, ByVal x As Integer, ByVal y As Integer) As Integer
        End Function
        <DllImport("user32")> _
        Public Shared Function GetDC(ByVal hwnd As Integer) As Integer
        End Function
    End Class
End Namespace

[Embers]

sry wenn ich das frage aber
aber was bringt mir das hier ?

bessere frage....kann man mit irgend einem programm den hack so selber erstellen?
wenn ja mit welchem

[sillynuts]

eglish please

[Chibinaruto_xD]

Are These Codes for Dmg and C++.??

[FreakXZ]

Originally Posted by Embers

sry wenn ich das frage aber
aber was bringt mir das hier ?

bessere frage....kann man mit irgend einem programm den hack so selber erstellen?
wenn ja mit welchem

Originally Posted by sillynuts

eglish please

Translation:

 Spoiler

Sry cause I'm asking that, but what's the sin of that?

Better question....can I create a hack with that code?
If yes, with which program?

[sillynuts]

yes this is the source code to legol hack for 4 story that is the timer sub and the module with all the dll imports
Vb.net

[Embers]

but what do i do with all that stuff??

[Chibinaruto_xD]

Originally Posted by FreakXZ

Translation:

 Spoiler

iaa du kannst damit einen Trainer Machen

aber brauchst dafür Visual Studio 2008

[Embers]

ich überreiss das hier ned^^
kann das bitte irgendwer machen und dann hier posten...?
ich bin mir sicher das ich nicht der einzige bin der das will^^

[sillynuts]

english only please

[Embers]

sry

emm could you create the hack or somthing like that...because i have no idea how to do that