WriteLongPointer anzeigen lassen

[0knower]

Hi, ich bekomme es einfach nicht hin einen Value in einem Spiel anzeigen zu lassen
den value den ich anzeigen lassen möchte ist
Adresse : &H28CB56A
Progarmm: Pinball.EXE im modul definirt als PINBALL

würde mich freuen auf hilfe

 

[dr_pepper]

hey,

wir bräuchten die dekleration der funktion 'WriteLongPointer'

wenn ich dich richtig verstanden habe möchtest du per readprocessmemory die werte von einer adresse rausbekommen, oder?

ich mache das so:

Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd 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 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 ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, _
ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, _
lpNumberOfBytesWritten As Long) As Long

Public Const PROCESS_ALL_ACCESS = &H1F0FFF


Public Function readmemory(window, addy As Long, buffer As Byte)

    Dim hWnd As Long, pid As Long, phandle As Long

    'per findwindow das fenster anhand des fensternamens suchen
    hWnd = FindWindow(vbNullString, window)
    'processid von diesem fenster holen
    GetWindowThreadProcessId hWnd, pid
    'process öffnen
    phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    'wert auslesen
    ReadProcessMemory phandle, addy, buffer, 1, 0&
    'process schliessen
    CloseHandle hProcess
    
End Function