我已遍历出了基址和偏移，但在VB6中却读不出来，各位帮我看看是不是这句不对？
ReadProcessMemory pHandle, ByVal (GWls + &H4 * i), ByVal VarPtr(GWjz), 4, 0& '//怪物基址
要怎么写才对？
搞了好久就是没读出来！！！
整个代码如下？
Dim i As Integer
ReadProcessMemory pHandle, ByVal (zGWjz + &H8), ByVal VarPtr(zGWsl), 4, 0& '//怪物个数
ReadProcessMemory pHandle, ByVal (zGWjz + &H4), ByVal VarPtr(GWls), 4, 0&  'zGWjz=&h00735a8c+3524
Text1.Text = "怪物个数: " & zGWsl & vbCrLf & vbCrLf
For i = 1 To 100 'zGWsl - 1
ReadProcessMemory pHandle, ByVal (GWls + &H4 * i), ByVal VarPtr(GWjz), 4, 0& '//怪物基址
    ReadProcessMemory pHandle, ByVal (GWjz + &H40), ByVal VarPtr(GWmc), 4, 0& '//怪物名称
    ReadProcessMemory pHandle, ByVal (GWmc + &H0), ByVal hGWmc, 36, 0&

   
  ReadProcessMemory pHandle, ByVal (GWjz + &HE), ByVal VarPtr(GWlx), 4, 0& '//怪物类型
  ReadProcessMemory pHandle, ByVal (GWjz + &H1A), ByVal VarPtr(GWLD), 4, 0& '//怪物生死 最后1位加1为死
  
  ReadProcessMemory pHandle, ByVal (GWjz + &H11C), ByVal VarPtr(GWx), 4, 0& '//怪物X坐标
  ReadProcessMemory pHandle, ByVal (GWjz + &H120), ByVal VarPtr(GWy), 4, 0& '//怪物y坐标
  
   
  ReadProcessMemory pHandle, ByVal (GWjz + &H0), ByVal VarPtr(GWhp), 4, 0& '//怪物血量 188 32c
      ReadProcessMemory pHandle, ByVal (GWhp + &H3C), ByVal VarPtr(GWhp), 4, 0& '//怪物血量 188 32c
         ReadProcessMemory pHandle, ByVal (GWhp + &HB00), ByVal VarPtr(GWhp), 4, 0& '//怪物血量 188 32c
           ' ReadProcessMemory pHandle, ByVal (GWjz + &H0), ByVal VarPtr(GWhp), 4, 0& '//怪物血量 188 32c
               'ReadProcessMemory pHandle, ByVal (GWjz + &H188), ByVal VarPtr(GWhp), 4, 0& '//怪物血量 188 32c
   If GWlx <> 0 Then
   If GWlx <> 50 Then
    GWss(i) = Right(Val(GWLD), 1)
    Text1.Text = Text1.Text  "怪物基址:" & GWjz & " 坐标: " & GWx & " X " & GWy & " 名称: " & hGWmc & "  怪物血量" & GWhp & " 类型: " & GWlx & " 生死: " & GWss(i) & vbCrLf
   End If
   End If
Stop
Next

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！

上传的附件：

• hjfgjfgj.jpg （93.02kb，5次下载）