Wie bezieht man das auf eine dll datei ?
Dim p As New Process ' erstellt zuvor den prozess meiner wahl
Dim pID As IntPtr = p.Handle
Dim underhandle As IntPtr = p.Modules("modul.DLL").BaseAddress ' würde das klappen ???
Dim base As IntPtr = p.MainModule.BaseAddress ' also das klappt aber bringt mir nichts
klappt natürlich nicht ^^
ich bedanke mich schonmal im vorraus für eure hilfe
will halt nen pointer mit offsets eines moduls auslesen können
Public Function RetBase(ByVal ProcName As String, ByVal ModuleName As String) As Integer
Dim P As Process() = Process.GetProcessesByName(ProcName)
If (P.Length <> 0) Then
Dim pMod As ProcessModuleCollection = P(0).Modules
For i As Integer = pMod.Count - 1 To 0 Step -1
If pMod.Item(i).FileName.EndsWith(ModuleName) Then
Return pMod.Item(i).BaseAddress.ToInt32
End If
Next i
End If
Return 0
End Function
Private Sub readoutpointer()
' I'm assuming p is a Process object that represents the game process.
Dim p = Process.GetProcessesByName("processname")(0)
MsgBox(p.Modules.ToString)
Dim pID As IntPtr = p.Handle
Dim underhandle As IntPtr = RetBase("processname", "test.dll")
Dim base As IntPtr = p.MainModule.BaseAddress
'MsgBox(base.ToString)
' And our offsets...
Dim offsets() As IntPtr = {&H8C, &H0, &HBC, &H1C, &H20}
Dim addr As IntPtr = FindAddress(pID, base, underhandle, offsets)
' MsgBox(addr.ToString)
End Sub
klappt leider nicht :/
" aus der WinAPI.
