救助,怎样显示内存:35BB680中的值?

Question

内存地址是35BB680的话,如何让他显示在label1.caption中?

Answer 1

嵌套debug命令
使用Ｄ语句
d35BB680

Answer 2

留下mail地址我给你一个VB内存扫描的例子

Answer 3

为了使它更容易使用，你可以把下面内容复制粘贴到 modMemory.bas 中：------------开始剪切------------------------------------------------------------------ Attribute VB_Name = "modMemory"
 ' =============================================================================
 ' 复制内存 API
 ' =============================================================================
 Private Declare Sub CopyMemory _
                     Lib "kernel32" Alias _
                     "RtlMoveMemory" _
                     (Destination As Any, _
                      Source As Any, _
                      ByVal length As Long)
                     
 ' =============================================================================
 ' 数据长度
 ' =============================================================================
 Public Enum e_BinaryData
     DefineByte = 1                          '  8 位数据
     DefineWord = 2                          ' 16 位数据
     DefineDoubleWord = 4                    ' 32 位数据
     DefineQuadWord = 8                      ' 64 位数据
 End Enum ' =============================================================================
 ' 允许直接读 MemPointer 指向的内存
 ' 用和 Asm 一样的字节数定义 (DB, DW, DD, DX)
 ' =============================================================================
 Function ReadMem(ByVal MemPointer As Long, _
                  SizeInBytes As e_BinaryData)
     Select Case SizeInBytes
         Case DefineByte
             Dim DB As Byte
             CopyMemory DB, ByVal MemPointer, 1
             ReadMem = DB
         Case DefineWord
             Dim DW As Integer
             CopyMemory DW, ByVal MemPointer, 2
             ReadMem = DW
         Case DefineDoubleWord
             Dim DD As Long
             CopyMemory DD, ByVal MemPointer, 4
             ReadMem = DD
         Case DefineQuadWord
             Dim DX As Double
             CopyMemory DX, ByVal MemPointer, 8
             ReadMem = DX
     End Select
 End Function ' =============================================================================
 ' 允许直接写 MemPointer 指向的内存
 ' 用和 Asm 一样的字节数定义 (DB, DW, DD, DX)
 ' =============================================================================
 Sub WriteMem(ByVal MemPointer As Long, _
              SizeInBytes As e_BinaryData, _
              ByVal DataToWrite)
     CopyMemory ByVal MemPointer, VarPtr(DataToWrite), SizeInBytes
 End Sub------------结束剪切---------------------------------------------------------------
用例：通过内存为变量赋值： Dim ptrVariable As Long
 Dim xCounter As Long ptrVariable = VarPtr(ptrVariable)
 WriteMem ptrVariable, DefineWord, &HFFFF 
 ' 与 ptrVariable = &HFFFF 等价
读内存的内容，使用： ptrVariable = ReadMem(ptrVariable, DefineWord)

Answer 4

我的E-mail是[email protected]谢谢啊,呵呵