Question

为什么我只得到＆＃34; 0＆＃34;背部？我的代码：

Dim GeldAdresse As String = "811768"
Dim offsets(1) As Integer
offsets = {&H28, &H2C}
Dim ergebniss As Integer = Memory.ReadPointerInteger("eurotrucks2", 811768, offsets)

模块＆＃34;记忆＆＃34;：

Public Function ReadPointerInteger(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Integer
        Dim Value As Integer
        If Process.GetProcessesByName(EXENAME).Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    ReadMemoryInteger(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                ReadMemoryInteger(Handle, Pointer, Value)
            End If
        End If
        Return Value
    End Function

在示例中：

'       Me.Text = ReadPointerInteger("gta_sa", &HB71A38,&H540,&H544).ToString()

我必须在整数中转换0x2C吗？

Answer 1

    Dim Value As Integer
    ...
    Return Value

您正在返回Value但从未为其分配实际值。您似乎需要将代码更改为：

Dim Value As Integer
...
Value = ReadMemoryInteger(...
...
Return Value

Answer 2

班级坏了。我用另一个。

Visual Basic 2013读取内存

2 个答案: