sendmessage实现两个没关系的mfc程序传递字符串

sendmessage函数是一个Windows操作系统提供的用于在不同程序之间传递消息的函数。通过sendmessage函数，我们可以实现两个没有直接关系的MFC程序之间的字符串传递。

首先，我们需要确保两个MFC程序都能够接收和处理sendmessage传递的消息。在发送消息的MFC程序中，我们可以通过sendmessage函数构造一个自定义的消息，并在消息中携带需要传递的字符串。然后，调用另一个MFC程序的窗口句柄，通过sendmessage将消息发送给目标程序。

在接收消息的MFC程序中，我们需要重写消息处理函数，以便接收并处理通过sendmessage发送过来的消息。在消息处理函数中，我们可以解析消息中携带的字符串，并进行相应的操作。

需要注意的是，发送和接收消息的MFC程序需要在Windows消息循环中处理消息，以便及时响应并处理通过sendmessage传递的消息。

总之，通过sendmessage函数，我们可以实现两个没有直接关系的MFC程序之间的字符串传递。发送消息的程序需要构造消息并发送，接收消息的程序需要重写消息处理函数以接收和处理消息。通过合理地使用sendmessage函数，我们可以实现MFC程序之间的信息共享和交互。

相关问题

VB.NET SendMessage发送一个字符串

在 VB.NET 中，可以使用 SendMessage 函数发送字符串到指定的窗口。以下是一个示例代码：

Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As String) As IntPtr

Const WM_SETTEXT As Integer = &HC

Dim hwndTarget As IntPtr = <your target window handle>
Dim strMessage As String = "Hello World!"

SendMessage(hwndTarget, WM_SETTEXT, IntPtr.Zero, strMessage)

在上面的示例中，我们声明了 SendMessage 函数，并使用常量 WM_SETTEXT 表示要发送的消息类型。然后，我们获取目标窗口的句柄（hwndTarget），并定义要发送的字符串（strMessage）。最后，我们调用 SendMessage 函数，将字符串发送到目标窗口。

请注意，SendMessage 函数可能会在不同的 Windows 版本中略有不同的行为。如果您遇到问题，请查看 MSDN 文档或其他资源，以获取更多信息。

VB.NET 两个独立的exe互发字符串消息

要实现两个独立的exe之间互相发送字符串消息，可以使用 Windows API 中的 SendMessage 和 PostMessage 函数。下面是一个简单的示例代码：

在第一个exe中：

Public Class Form1

    Private Const WM_COPYDATA As Integer = &H4A

    <StructLayout(LayoutKind.Sequential)>
    Public Structure COPYDATASTRUCT
        Public dwData As IntPtr
        Public cbData As Integer
        Public lpData As IntPtr
    End Structure

    <DllImport("User32.dll", EntryPoint:="SendMessage")>
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByRef lParam As COPYDATASTRUCT) As IntPtr
    End Function

    Private Sub btnSend_Click(sender As Object, e As EventArgs) Handles btnSend.Click
        Dim targetExeName As String = "SecondExe.exe"
        Dim targetWindowName As String = "Form1"

        Dim hwnd As IntPtr = FindWindow(Nothing, targetWindowName)
        If hwnd <> IntPtr.Zero Then
            Dim data As New COPYDATASTRUCT
            data.dwData = IntPtr.Zero
            data.cbData = txtMessage.Text.Length * 2 ' 字符串长度
            data.lpData = Marshal.StringToHGlobalUni(txtMessage.Text)

            SendMessage(hwnd, WM_COPYDATA, Me.Handle, data)

            Marshal.FreeHGlobal(data.lpData)
        Else
            MessageBox.Show("无法找到目标窗口！")
        End If
    End Sub

End Class

在第二个exe中：

Public Class Form1

    Private Const WM_COPYDATA As Integer = &H4A

    <StructLayout(LayoutKind.Sequential)>
    Public Structure COPYDATASTRUCT
        Public dwData As IntPtr
        Public cbData As Integer
        Public lpData As IntPtr
    End Structure

    <DllImport("User32.dll", EntryPoint:="SendMessage")>
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByRef lParam As COPYDATASTRUCT) As IntPtr
    End Function

    <DllImport("User32.dll", EntryPoint:="PostMessage")>
    Private Shared Function PostMessage(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByRef lParam As COPYDATASTRUCT) As IntPtr
    End Function

    Protected Overrides Sub WndProc(ByRef m As Message)
        If m.Msg = WM_COPYDATA Then
            Dim data As COPYDATASTRUCT
            data = DirectCast(Marshal.PtrToStructure(m.LParam, GetType(COPYDATASTRUCT)), COPYDATASTRUCT)

            Dim message As String = Marshal.PtrToStringUni(data.lpData, data.cbData \ 2)

            MessageBox.Show("接收到消息：" & message)
        Else
            MyBase.WndProc(m)
        End If
    End Sub

End Class

在第一个exe中，点击发送按钮后，程序会尝试找到第二个exe的窗口，并发送消息。在第二个exe中，当接收到消息时，会弹出一个消息框显示接收到的字符串。需要注意的是，这里使用的是 SendMessage 函数，它会阻塞当前线程，直到消息被处理。如果想要异步发送消息，可以使用 PostMessage 函数。