ReadProcessMemory probleem.

[w00tare]

Hallo,

Ik heb dus een programma waar ik iets wil van uitlezen.

Dit heb ik:

 Dim L As String = ListView1.SelectedItems.ToString
        Dim p As String = Process.GetProcessesByName(L).ToString
        Dim address As Integer
        address = &H590FD8& ' Adres van code (= bijv: 158190)
        Dim floatvalueinmemory As Single
        If ReadProcessMemory(L, address, floatvalueinmemory, 4, 0) = 0 Then
            '
        Else
            Label1.Text = CStr(floatvalueinmemory)
        End If

RPM code:

    Private Declare Function ReadProcessMemory Lib "kernel32" ( _
ByVal hProcess As Integer, _
ByVal lpBaseAddress As Integer, _
ByRef lpBuffer As Single, _
ByVal nSize As Integer, _
ByRef lpNumberOfBytesWritten As Integer _
) As Integer

Maar hij geeft een fout code aan bij de call van RPM.

Ik hoop dat iemand me hiermee kan helpen!

 

[CoD_NL]

Dit heb ik:

 Dim L As String = ListView1.SelectedItems.ToString
        Dim p As String = Process.GetProcessesByName(L).ToString
        Dim address As Integer
        address = &H590FD8& ' Adres van code (= bijv: 158190)
        Dim floatvalueinmemory As Single
        If ReadProcessMemory(L, address, floatvalueinmemory, 4, 0) = 0 Then
            '
        Else
            Label1.Text = CStr(floatvalueinmemory)
        End If

Maar hij geeft een fout code aan bij de call van RPM.

hehe... en dat is ook niet gek:

[cpp]
Private Declare Function ReadProcessMemory Lib "kernel32" ( _
ByVal hProcess As Integer, _ // hProcess as INTEGER
ByVal lpBaseAddress As Integer, _
ByRef lpBuffer As Single, _
ByVal nSize As Integer, _
ByRef lpNumberOfBytesWritten As Integer _
) As Integer
// ...
If ReadProcessMemory(L, address, floatvalueinmemory, 4, 0) = 0 Then // L = -> Dim L As String = ListView1.SelectedItems.ToString
[/cpp]

Ik zou zeggen lees de documentatie nog eens goed