官方VB.net WM_COPYDATA进行进程间资源共享的例子

在Windows编程中，进程间通信（IPC，Inter-Process Communication）是实现不同应用程序之间数据交换的关键技术。在VB.NET中，我们可以通过多种方式实现IPC，其中一种常见的方法就是利用WinAPI函数`SendMessage`发送`WM_COPYDATA`消息。本教程将深入探讨如何使用官方VB.NET实现基于`WM_COPYDATA`的进程间资源共享。 `WM_COPYDATA`是一种窗口消息，允许一个进程将数据传递给另一个进程，而无需打开任何共享文件或创建管道。这种方式尤其适用于小量数据的传递，例如字符串或小型结构体。 我们需要引入`DllImport`特性来导入`User32.dll`库中的`SendMessage`和`COPYDATASTRUCT`相关的函数： ```vbnet Imports System.Runtime.InteropServices <StructLayout(LayoutKind.Sequential)> Friend Structure COPYDATASTRUCT Public dwData As IntPtr Public cbData As Integer <MarshalAs(UnmanagedType.LPStr)> Public lpData As String End Structure <DllImport("user32.dll", SetLastError:=True)> Friend Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr End Function ``` `COPYDATASTRUCT`结构体包含了要传递的数据，`dwData`通常用于传递一个整型标识符，`cbData`表示数据的字节数，`lpData`则是实际的数据。 然后，在发送进程（Sender）中，我们可以这样构造并发送`WM_COPYDATA`消息： ```vbnet Dim cds As New COPYDATASTRUCT() cds.dwData = 1 ' 可以自定义为任意整型标识符 cds.lpData = "要传递的数据" ' 数据内容 Dim lParam As IntPtr = Marshal.AllocHGlobal(Marshal.SizeOf(cds)) Marshal.StructureToPtr(cds, lParam, False) SendMessage(hWndReceiver, &H4A, 0, lParam) ' WM_COPYDATA 消息码 Marshal.FreeHGlobal(lParam) ``` 这里的`hWndReceiver`是接收进程窗口的句柄，需要提前获取。 在接收进程（Receiver）中，我们需要注册一个窗口过程（Window Procedure）来处理`WM_COPYDATA`消息： ```vbnet Protected Overrides Sub WndProc(ByRef m As Message) If m.Msg = &H4A Then ' WM_COPYDATA Dim cds As COPYDATASTRUCT = DirectCast(Marshal.PtrToStructure(m.LParam, GetType(COPYDATASTRUCT)), COPYDATASTRUCT) Console.WriteLine("接收到的数据: " & cds.lpData) ' 这里可以对数据进行处理 End If MyBase.WndProc(m) End Sub ``` 以上代码展示了如何使用VB.NET通过`SendMessage`和`WM_COPYDATA`实现进程间的字符串数据共享。不过，需要注意的是，这种方法仅适用于ASCII字符串，如果需要传递复杂类型或Unicode字符串，需要进行额外的处理。同时，`WM_COPYDATA`的大小限制在大约64KB左右，因此不适合大量数据的传输。 在实际应用中，可能还需要处理各种错误情况，例如确保接收进程已启动且窗口句柄有效，以及正确释放内存等。此外，为了增强健壮性和安全性，可以考虑对传递的数据进行序列化和验证。`WM_COPYDATA`提供了一种轻量级的进程间通信方式，适用于简单的数据交换场景。