c - LPARAM 作为指向 VBA 变量的指针

Question

我正在构建一个非常简单的 win32 控制台应用程序，该应用程序用 C 编码并使用 Visual Studio 2010/2013 编译。它将有一个消息队列在与主线程不同的线程中运行。控制台将从 VBA 启动，然后通过 API 函数 PostThreadMessage 发送用户定义的消息。 .

我找到了一种根据控制台的进程 ID 获取所有线程 ID 的方法。但是，我还没有找到一种方法来识别正确的方法。我目前正在做的是将消息发送到所有控制台线程。在那条消息中，我通过VarPtr传递一个指向我的VBA变量之一的指针作为LPARAM参数。功能。

线程正在接收消息，但应用程序在尝试将 id 写入 VBA 变量时崩溃。我知道可以将 VBA 变量指针传递给 DLL 函数。我过去曾在 API 函数 EnumWindows 中使用过这种方法。 。但是，我对 C 编程完全陌生，无法弄清楚如何在控制台代码中执行相同的操作。

以下是我为解决此问题所采取的步骤:

• 创建了一个新的空 Visual C++ Win32 控制台应用程序项目
• 在源文件文件夹中添加了一个名为 Shell.c 的新项目

• 将以下代码添加到 Shell.c

  #include <stdio.h>
  #include <Windows.h>
  #define WM_GET_ID WM_USER + 1
  DWORD WINAPI MessageQueue(LPVOID n) {
      MSG msg;
      int *pVar;
      BOOL MsgReturn;
      DWORD dwThreadId = GetCurrentThreadId();
      while (1) {
          MsgReturn = GetMessage(&msg, NULL, WM_GET_ID, WM_GET_ID);
          if (MsgReturn) {
              switch (msg.message) {
              case WM_GET_ID:
                  pVar = (int*)msg.lParam;
                  // Access violation writing location 0x0026F470
                  *pVar = (int)dwThreadId;
              }
          }
      }
      return 0;
  }
  int main() {
      CreateThread(NULL, 0, MessageQueue, NULL, 0, NULL);
      // Pause the console window to keep thread running
      getchar();
      return 0;
  }
  

• 将代码编译为 ConsoleTest.exe

• 打开一个空白的 Excel 2013 工作簿并将其另存为 Pointer Testing.xlsm
• 添加了一个名为 PointerTest 的新模块

• 将以下代码添加到 PointerTest 模块

  Option Explicit
  Private Type THREADENTRY32
      dwSize As Long
      cntUsage As Long
      th32ThreadID As Long
      th32OwnerProcessID As Long
      tpBasePri As Long
      tpDeltaPri As Long
      dwFlags As Long
  End Type
  Private Const WM_USER As Long = &H400
  Private Const WM_GET_ID As Long = WM_USER + 1
  Private Const WM_TERMINATE As Long = WM_USER + 2
  Private Const TH32CS_SNAPPROCESS As Long = &H2
  Private Const TH32CS_SNAPTHREAD As Long = &H4
  Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
  Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
  Private Declare Function PostThreadMessage Lib "user32" Alias "PostThreadMessageA" (ByVal idThread As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Boolean
  Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  Private Declare Function Thread32First Lib "kernel32" (ByVal hSnapshot As Long, ByRef lpte As THREADENTRY32) As Boolean
  Private Declare Function Thread32Next Lib "kernel32" (ByVal hSnapshot As Long, ByRef lpte As THREADENTRY32) As Boolean
  Private Sub SendConsoleMsg()
      Dim PID         As Long
      Dim tHandle     As Long
      Dim dwThreadId  As Long
      Dim PName       As String
      Dim Success     As Boolean
      Dim tEntry      As THREADENTRY32
      PName = "C:\My Stuff\Visual Studio" & _
      "\ConsoleTest\Debug\ConsoleTest.exe"
      PID = Shell(PName, vbNormalFocus)
      Sleep 250
      tHandle = CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, 0&)
      If tHandle = -1 Then
          Debug.Print "Could not obtain thread handle"
          Exit Sub
      End If
      tEntry.dwSize = Len(tEntry)
      Success = Thread32First(tHandle, tEntry)
      If Success Then
          Do
              If tEntry.th32OwnerProcessID = PID Then
                  PostThreadMessage tEntry.th32ThreadID, _
                  WM_GET_ID, 0, VarPtr(dwThreadId)
              End If
          Loop While Thread32Next(tHandle, tEntry)
      End If
      CloseHandle tHandle
      Sleep 10
      Debug.Print dwThreadId
  End Sub
  

当我运行SendConsoleMsg时VBA 中的程序，控制台加载，然后在几秒钟内崩溃。当我进入 Debug模式时，我在 C 代码示例中看到了访问冲突注释。请让我知道我需要做什么才能使其正常工作。我已经寻找解决方案好几天了，但仍然一无所获。

更新

我能够使用 code example 让它工作Frankie_C 链接到选项 1。但是，我最终更改了 DLL 函数调用约定 __declspec(dllexport)至__stdcall并包含用于函数导出的 DEF 文件。另外，我向 DLL 添加了另一个函数，这样我就可以在 VBA 中以 DWORD 形式返回线程 id -

DWORD __stdcall GetConsoleThreadId() {
    WCHAR Buf[5];
    GetSharedMem(Buf, 5);
    SetSharedMem(TEXT("0"));
    return (DWORD)wcstod(Buf, '\0');
}

在我的MessageQueue函数中，我添加了以下代码来将线程 id 加载到共享内存中 -

WCHAR Buf[5];
HMODULE hDLL;
FARPROC SetSharedMem;
hDLL = LoadLibrary(TEXT("C:\\My Stuff\\Visual Studio\\SharedMem\\Debug\\SharedMem.dll"));
if (hDLL != NULL) {
    SetSharedMem = GetProcAddress(hDLL, "SetSharedMem");
    if (SetSharedMem) {
        swprintf_s(Buf, 5, L"%d", GetCurrentThreadId());
        SetSharedMem(Buf);
    }
    FreeLibrary(hDLL);
}

Answer 1

首先，不同的进程有不同的内存空间，彼此之间是隔离的。这是当今操作系统的主要特征之一:进程私有(private)内存。

如果您想从在 2 个或更多不同进程中运行的代码访问共享内存，则不能使用 GlobalAlloc()。该函数来自 16 位 Windows 操作系统中本地和全局进程内存之间的旧区别。因此，尽管它的名称是全局的，但这并不意味着可以从不同的进程访问。

要实现这个技巧，你基本上有两种方法:

1. 使用内存映射文件 ( CreateFileMapping() )
2. 在多个进程加载的 DLL 中创建共享部分

在第一种情况下，您只需在第一个进程中创建一个内存映射文件，然后在第二个进程中打开该文件，然后操作共享内存。请参阅this sample ，或this one 。最后将映射文件和服务例程放在需要访问公共(public)数据的所有进程之间共享的 DLL 中。

对于第二种情况，您必须创建一个 DLL，在 DLL 内您将使用 SECTION command 创建一个共享部分。在 DLL 的 .def 文件中。您还可以使用#pragma 部分来关联共享属性。在共享部分中创建的所有数据在加载 dll 的任何进程中都是可见的。

//Use pragma to create a section named 'MySharedSection', readable, writable and shared
#pragma section( "MySharedSection", read, write, shared)
//Allocate the section, all data after this spec will be allocated in the new section
__declspec(allocate("MySharedSection")) 
__declspec(dllexport) char CommonBuffer[1024];

在上面的示例中，我创建了一个 1024 字节的共享缓冲区，该缓冲区可供所有加载 DLL 的进程使用。该符号也会被导出，以便可以从链接 DLL 的代码中访问它。

这个系统已经过时了，是从Win3.1时代开始使用的。今天首选的方法是使用 CreateFileMapping()