Hallo nochmal
Also mein Code ist garnicht so falsch, mein Problem warum es nicht geht scheint ganz woanders zu liegen.
Habe mal ein kleines Beispiel gemacht, in dem es erstmal nur um "ReadProcessMemory" geht. Dabei bin ich auf folgendes Problem gestoßen
und zwar funktioniert der Code fehlerfrei auf Windows Xp 32 Bit aber auf Vista 64 bit wird der Wert immer nur 0 angezeigt. Kann es sein Vista keinen zugriff auf den Speicher zuläst???? Alles was ich bis jetzt probiert habe funktioniert auf dem XP Rechner aber nicht auf meinen Hauptrechner mit Vista 64 Bit
Hier mal das Beispiel was auf Xp Fehlerfrei läuft
Public Class Form1
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer
Private Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Dim ExeName As String = "sol" '!!Ohne ".exe"!!
Dim Prozess1 As Process
Public RBuff As Long
Dim pList() As System.Diagnostics.Process = System.Diagnostics.Process.GetProcesses 'liste aller activen Processe
Public Function ReadLong(ByVal ProcessName As Process, ByVal Address As Integer)
Dim GameLookUp As Process() = Process.GetProcessesByName(ProcessName.ProcessName)
If GameLookUp.Length = 0 Then
End
End If
Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, GameLookUp(0).Id)
ReadProcessMemory(processHandle, Address, RBuff, 4, Nothing)
CloseHandle(processHandle)
Return RBuff
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
pList = System.Diagnostics.Process.GetProcesses
For Each proc As System.Diagnostics.Process In pList
'Dim Name As String = proc.ProcessName
'ListBox1.Items.Add(Name)
If proc.ProcessName = ExeName Then
Prozess1 = proc
Label1.ForeColor = Color.Green
Label1.Text = "Spiel gefunden"
TextBox1.Text = ReadLong(Prozess1, "&H000AA830")'Punktestand
Exit Sub
End If
Label1.ForeColor = Color.Red
Label1.Text = "Game not found!"
TextBox1.Text = Nothing
Next
End Sub
End Class
Dieses Beispiel tut nix weiter als mir den Punktestand von Solitair anzeigen
Unter vista nennt sich der Process nicht "sol" sondern "Solitair aber waum bekomme ich unter Vista immer nur 0 angezeigt
die Speicheradresse ist unter Vista auch anders als unter Xp ( 01007170) aber auch wenn ich die richtige Adresse unter Vista benutze ist der Value der gelesen wird immer 0
Wo liegt der entscheidente unterschied zwischen XP und Vista? Auch ein ausführen als Administrator bringt mich nicht weiter???
Lg Ronny
