使用SendMessage进行进程间通信

Imports System.Runtime.InteropServices

Public Class Monitor

    <DllImport("user32.dll", CharSet:=CharSet.Unicode, entrypoint:="SendMessageW")> _
    Private Shared Function SendMessage(ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As IntPtr, ByVal lParam As Integer) As Integer
    End Function

    Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Int32

    '发送方的代码
    Public Shared Sub SendMsg(ByVal message As String)
        Dim hWnd As Integer
        hWnd = FindWindow(vbNullString, "短信发送服务器")
        If hWnd Then ' 有这个窗口
            Dim ptr As IntPtr = Marshal.StringToHGlobalUni(message)
            SendMessage(hWnd, &H1397, ptr, 0) ' 给类名为SmsServerMonitor的窗口发消息，消息标示为&H1397
            Marshal.FreeHGlobal(ptr)
        Else
            Log.Write("未能找到窗口")
        End If
    End Sub

End Class

Dim flag As Char = Chr(2) ' 正文开始

Dim msg As String = "100,1,15870727024," & Now.ToString & ",1," & flag & "success"

SendMsg(msg) ' ID为1的数据发送成功

' 接收SmsService发过来的消息消息标示为&H1397
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        If m.Msg = &H1397 Then
            Dim msg As String = System.Runtime.InteropServices.Marshal.PtrToStringUni(m.WParam)

            ' 消息格式：
            'id,发送状态,手机号码,时间,优先级,内容

            Dim flag As Char = Chr(2) ' 正文开始

            Dim body() As String = msg.Split(flag)

            Dim header() As String = body(0).Split(",")
            Dim Id As String = header(0)
            Dim Status As String = header(1)
            Dim Phone As String = header(2)
            Dim SendTime As String = header(3)
            Dim Priority As String = header(4)
            Dim Content As String = body(1)

            Dim idxRow As Integer = dgvSmsLog.Rows.Add()
            dgvSmsLog.Rows(idxRow).Cells(0).Value = Id
            dgvSmsLog.Rows(idxRow).Cells(1).Value = Status
            dgvSmsLog.Rows(idxRow).Cells(2).Value = Phone
            dgvSmsLog.Rows(idxRow).Cells(3).Value = SendTime
            dgvSmsLog.Rows(idxRow).Cells(4).Value = Priority
            dgvSmsLog.Rows(idxRow).Cells(5).Value = Content

        Else
            MyBase.WndProc(m)
        End If
    End Sub

转载于:https://www.cnblogs.com/lbnnbs/p/3644471.html