Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long
'API Declaration
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal Nachos As Long, lpdwProcessId As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Function WriteALong(Warrock As String, AddressInsertHere As Long, InsertValueHere As Long)
'to help keep module undetected change WriteALong to something else e.g. cdwriter
Dim Nachos As Long
Dim Random As Long
Dim Something As Long
Nachos = FindWindow(vbNullString, Warrock)
GetWindowThreadProcessId Nachos, Random
Something = OpenProcess(PROCESS_ALL_ACCESS, False, Random)
If (Something = 0) Then
Exit Function
End If
WriteProcessMemory Something, AddressInsertHere, InsertValueHere, 4, 0&
CloseHandle hProcess
End Function
Public Function ReadALong(Warrock As String, AddressInsertHere As Long, valbuffer As Long)
'to help keep module undetected change ReadALong to something else...
Dim Nachos As Long
Dim Random As Long
Dim Something As Long
Nachos = FindWindow(vbNullString, Warrock)
GetWindowThreadProcessId Nachos, Random
Something = OpenProcess(PROCESS_ALL_ACCESS, False, Random)
If (Something = 0) Then
Exit Function
End If
ReadProcessMem Something, AddressInsertHere, valbuffer, 4, 0&
CloseHandle hProcess
End Function
Public Function ReadAFloat(Warrock As String, AddressInsertHere As Long, valbuffer As Single)
'to help keep module undetected change ReadAFloat to something else...
Dim Nachos As Long
Dim Random As Long
Dim Something As Long
Nachos = FindWindow(vbNullString, Warrock)
GetWindowThreadProcessId Nachos, Random
Something = OpenProcess(PROCESS_ALL_ACCESS, False, Random)
If (Something = 0) Then
Exit Function
End If
ReadProcessMem Something, AddressInsertHere, valbuffer, 4, 0&
CloseHandle hProcess
End Function
Public Function WriteAFloat(Warrock As String, AddressInsertHere As Long, InsertValueHere As Single)
'to help keep module undetected change WriteAFloat to something else...
Dim Nachos As Long
Dim Random As Long
Dim Something As Long
Nachos = FindWindow(vbNullString, Warrock)
GetWindowThreadProcessId Nachos, Random
Something = OpenProcess(PROCESS_ALL_ACCESS, False, Random)
If (Something = 0) Then
Exit Function
End If
WriteProcessMemory Something, AddressInsertHere, InsertValueHere, 4, 0&
CloseHandle hProcess
End Function
Dont just copy and paste the whole thing read it first .
Home 
