Virtual Protect 的 64 位声明是否正确？

Question

Private Declare PtrSafe Function VirtualProtect Lib "kernel32" ( _
    ByVal memAddress As LongPtr, _
    ByVal lengthInBytes As LongPtr, _
    ByVal newProtect As protectFlags, _
    ByRef outOldProtect As protectFlags _
    ) As Long

Public Enum protectFlags 'an enum is a Long in VBA which is 32-bit so can be used in place of DWORD
    PAGE_NOACCESS = &H1
    PAGE_READONLY = &H2
    PAGE_READWRITE = &H4
    PAGE_WRITECOPY = &H8
    PAGE_EXECUTE = &H10
    PAGE_EXECUTE_READ = &H20
    PAGE_EXECUTE_READWRITE = &H40
    PAGE_EXECUTE_WRITECOPY = &H80
    PAGE_GUARD = &H100
    PAGE_NOCACHE = &H200
    PAGE_WRITECOMBINE = &H400
End Enum

我这样称呼它：

Dim memoryAddress As LongPtr
memoryAddress = ... 'some protected memory

Dim originalProtection As protectFlags

If CBool(VirtualProtect(memoryAddress, 8, PAGE_EXECUTE_READWRITE, originalProtection)) Then
    Debug.Print "Previous protection cached: &H"; Hex(originalProtection)
Else
    Err.Raise 5, Description:="Memory address cannot be unprotected with PAGE_EXECUTE_READWRITE"
End If

...我正在恢复保护

VirtualProtect(memoryAddress, 8, originalProtection, temp) 

问题是，originalProtection 在第一次调用后仍然是 &H0，所以在第二次调用中我得到 87 的 LastDllError -“参数不正确。”。我很确定内存最初是受保护的，因为删除对 VirtualProtect 的调用会使我的程序崩溃，而包含它是成功的。但我无法重置保护。

---

作为参考，这是我正在翻译的内容：

BOOL VirtualProtect(
  LPVOID lpAddress,
  SIZE_T dwSize,
  DWORD  flNewProtect,
  PDWORD lpflOldProtect
);

Answer 1

是的，声明是正确的。

问题在于，在我的实际代码中，originalProtection 是一个公共类变量。

公共类变量不能通过 ByRef 传递给函数，因为它们实际上是在底层实现为带有隐藏私有变量的 Property Get/Let 过程，因此只有一个临时值传递给 VirtualProtect 而不是底层变量写给。

解决方案是用Dim 声明一个局部变量来接收值，然后将其写入我的类变量。