Bitteschön
Timer ist auf True direkt wenn man den Form startet Interval = 10
Also Modul:
Code:
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
Public Declare Function ReadByte Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Byte, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Public value As String
Public Nick_Pointer = &H7D0864
Public Nick_Off = &H14
Public Function Read_Text(ByVal address1, ByVal str_len)
Dim name As String = ""
For I = 0 To str_len + 1
ReadByte(processHandle, address1 + I, value, 1, Nothing)
name = name & Chr(value.Replace("0x", "&H"))
Next
Return name
End Function
Timer (Also Form seite):
Code:
Try
Dim buffer(2) As String
Dim addr(2) As Double
ReadProcessMemory(processHandle, Nick_Pointer, buffer(0), 4, Nothing)
addr(0) = buffer(0) + Nick_Off
Label2.Text = Convert.ToString(Read_Text(addr(0), 11))
Catch ex As Exception
End Try