Foro de elhacker.net

Private Declare Function VirtualProtectEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal flNewProtect As Long, lpflOldProtect As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Private Const PAGE_WRITECOPY = &H8&
Private Const PROCESS_ALL_ACCESS = &H1F0FFF

Private Sub Form_Load()
    Dim hWnd As Long, lngPID As Long, hProcess As Long
    Dim lngOldProt As Long
    Dim lngData As Long, lngWritten As Long
    hWnd = FindWindow(vbNullString, "Cheat Engine 5.2")
    If hWnd > 0 Then
        Call GetWindowThreadProcessId(hWnd, lngPID)
        hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, lngPID)
        If hProcess <> 0 Then
            lngData = 1092616192
            If VirtualProtectEx(hProcess, ByVal &H400000, LenB(lngData), PAGE_WRITECOPY, lngOldProt) <> 0 Then
                If WriteProcessMemory(hProcess, ByVal &H400000, lngData, LenB(lngData), lngWritten) <> 0 Then
                    Call MsgBox("Success!" & vbCrLf & lngWritten & " bytes written.")
                End If
            End If
            Call CloseHandle(hProcess)
        End If
    End If
End Sub