Visual Basic Forum

x0X0x · Newbie Anmeldedatum: 02.05.2008 Beiträge: 12

Schönen guten Abend allerseits.

Erstmal möchte ich mich hiermit, mit meinem ersten Posting, herzlichst dem Forum begrüßen und euch beglückwünschen, welch eine tolle Community ihr da am Laufen habt.

Nun zu meiner Frage.
Ich würde gerne eine bestimmte Adresse eines Programmes auslesen.
Dazu muss ich den Processhandle der Applikation herausfinden, wobei ich bestimmt API, etc. anwenden muss....
Und weiter weiß ich nicht. Späterstens jetzt solltest Du mitbekommen haben dass ich noch nicht so erfahren bin.
Habt also bitte Verständnis bei Unverständlichkeiten meinerseits, ich bin leider noch Anfänger aber das war jeder einmal von uns, also hoffe ich auf hilfreiche Antworten.
Selbstverständlich könnt ihr nach den nötigen Informationen für eine sinnvolle Antwort nachfragen, ich werde sie gerne beantworten sofern ich dazu in der Lage bin.

Also, könnt ihr mich auf den richtigen Weg zu meinem Ziel führen?

Freundliche Grüße aus Österreich
x0X0x

P.S. Ich bin mir sicher dieses Thema wird unvermeidbar angesprochen werden - ich habe es zur Kenntnis genommen. klick
_________________

noname · Poster Anmeldedatum: 30.04.2008 Beiträge: 131

Herzlich Willkommen,

ich hatte einst das gleiche Interesse und nach ewig langem Suchen habe ich etwas interessantes auf Google gefunden. Damit ließ sich beispielsweise auslesen, wieviel Geld man hatte* etc.

Hier der Code:
Visual Basic: [code]
Function getmoney() As Integer
Dim myProcesses As Process() = Process.GetProcessesByName("hl")
If myProcesses.Length = 0 Then
MsgBox("Process not found!")
Timer1.Stop()
Exit Function
End If

Dim processHandle As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, myProcesses(0).Id)
If processHandle = IntPtr.Zero Then
MsgBox("Process not found!")
Timer1.Stop()
Exit Function
End If
Dim Address(0 To 1) As Integer
Dim vBuffer(0 To 1) As Long
Dim convert(0 To 1) As Integer
Dim byte_array0 As Byte() = Nothing
Address(0) = &H1A1FD4C
ReadProcessMemory(processHandle, Address(0), vBuffer(0), 4, 0)
byte_array0 = BitConverter.GetBytes(vBuffer(0))
convert(0) = BitConverter.ToInt32(byte_array0, 0)
Return convert(0)
End Function
[/code]

Edit: API's vergessen..
Visual Basic: [code]
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer
Public 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
Const PROCESS_ALL_ACCESS = &H1F0FFF
[/code]

Edit2: *Wieviel Geld man hatte, schon Klar. Muss dazusagen das es sich um das Spiel Counter-Strike dreht Smile

x0X0x · Newbie Anmeldedatum: 02.05.2008 Beiträge: 12

Wow... herzlichsten Dank für den Codesnippet..

Frage...
1) Womit steht diese Adresse in Verbindung und wozu ist sie da? Das hab ich irgendwie nicht ganz aus dem Code identifizieren können....
2) Address(0) = &H1A1FD4C
Meine Adresse lautet 9D804, wenn ich &H1A1FD4C durch das ersetze kann er nicht compilieren....

"D" darf nicht zum Beschreiben eines Exponenten verwendet werden. Verwenden Sie stattdessen "E".