So Torsten gerade nochmal getestet unter Vista mit VB net2010Beta und funktioniert.
Findet Spiel und zeigt die Punkte an. Adresse musst bei Dir nochmal selbst raussuchen somal die unter Xp sowieso anders ist.
Habe es gerade auch bemerkt in dem Code im anderen Tread irgendwo ein kleiner Fehler, warscheinlich beim reinkopieren passiert, denn ich habe den auch nochmal getestet und ging nicht, der hier unten ist aber 100% richtig und funktioniert auch.
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 = "Solitaire" '!!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, "&H009CA3A4") 'Lebenszahl
Exit Sub
End If
Label1.ForeColor = Color.Red
Label1.Text = "Spiel nicht gefunden"
TextBox1.Text = Nothing
Next
End Sub
End Class
Lg Ronny
