Offset lesen Visual Basic Forum

Visual Basic Forum für VB6 und VB.NET Programmierer	Registrieren Login

Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Autor
Nachricht

eistee_
Newbie
Newbie

Anmeldedatum: 13.01.2008
Beiträge: 10

Offset lesen
Verfasst am: 08.04.2009, 14:44

Hi Smile

Ich bin dabei ein Programm zu schreiben das einen bestimmten Offset aussliest und ihn in einer msgbox wiedergibt.

atm bin ich soweit.

Modul

Code:

Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long

'API Declaration
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 WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten 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 GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Public Function ReadAByte(gamewindowtext As String, address As Long, valbuffer As Byte)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = FindWindow(vbNullString, gamewindowtext)
If (hwnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 1, 0&
CloseHandle hProcess
End Function

Code:

Private Sub Command1_Click()
Dim value As Byte
Call ReadAByte("Prozess", &H15200F94, value)
MsgBox ("Test" & value)
End Sub

so was ich nun möchte ist das er diesen offset ausließt
00F08938
aber iwie kommt da immer nur müll raus, hat evtl jemand ne ahnung wo der fehler steckt?
_________________

Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Tags: function readprocessmem, offset, schreiben, readprocessmemory

Verwandte Themen Aufrufe Letzter Beitrag

Keine neuen Beiträge [suche] Tuturials winsock & daten senden 868 09.06.2011, 12:19

[Video] *.dll & *.ocx Installer 2431 06.03.2008, 20:19

ListView speichern & laden 1242 05.08.2008, 12:32

Registry & Co Fragen 1101 03.05.2007, 09:57

Keine neuen Beiträge Listbox speichern & laden 2047 22.03.2007, 20:25

Spruch
RSS Qianmen - Zhengyangmen und die Qianmen StraÃ?e
RSS China Börse am Abend vom Freitag dem 10.02.2012
dealrabbit Gutscheine Sprüche

[ Time: 0.1787s ][ Queries: 83 (0.0410s) ][ GZIP on - Debug on ]