Code:
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
Code:
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
