求大佬帮忙看看这段进程通讯代码

xx1173559163

主要问题是这样的，发送方不关闭程序的情况下，如果接收方关闭程序，接收方再次打开程序，就会收不到发送方的消息。

发送方：

.版本 2
.支持库 spec

        hwnd ＝ FindWindowA (字符 (0), “打印助手”)  ' className 不会直接传空值 不然会找不到  寻找窗口名字为编辑框的程序，并且返回句柄
        .如果真 (hwnd ＝ 0)  ' 如果句柄=0就是没找到
            ' 信息框 (“未找到消息接受者！”, 0, , )
            返回 ()
        .如果真结束

        Msg.cbData ＝ 取文本长度 (数据)  ' 发送的内容长度
        Msg.lpData ＝ 数据  ' 发送的内容
        Msg.dwData ＝ 到整数 (“7777”)  ' 数据标识符
        调试输出 (“发送数据”, _SendMessageStr (hwnd, #WM_COPYDATA, 0, Msg))  ' 发送数据 ' 发送数据

-----------------------------
接收方：

窗口创建完毕

.版本 2

hwnd ＝ 取窗口句柄 ()
m_oldProc ＝ GetWindowLongA (hwnd, #GWL_WNDPROC)
SetWindowLongA (hwnd, #GWL_WNDPROC, 到整数 (&DefWndProc))


----------------------------

接收信息子程序

.版本 2
.支持库 EThread
.支持库 spec
.版本 2

.子程序 DefWndProc, 整数型, , 收到信息
.参数 hWnd, , , 句柄
.参数 msg
.参数 wparam
.参数 lparam
.局部变量 lpCopy, COPYDATASTRUCT
.局部变量 sByte, 字节集
.局部变量 str, 文本型
.局部变量 t, 整数型


进入许可区 (许可证1)


.如果真 (msg ＝ #WM_COPYDATA)

    sByte ＝ 指针到字节集 (lparam, 1024)
    ' 调试输出 (到文本 (sByte))
    ' 整数都是四个字节 我们取出前两个 后面的 就都是 文本数据啦!
    lpCopy.dwData ＝ 取字节集数据 (sByte, #整数型, 1)
    lpCopy.cbData ＝ 取字节集数据 (sByte, #整数型, 5)
    lpCopy.lpData ＝ 取字节集数据 (sByte, #整数型, 9)

    str ＝ 指针到文本 (lpCopy.lpData)
    ' 调试输出 (str)
    str ＝ 取文本左边 (str, lpCopy.cbData)
    ' 调试输出 (“最终消息：”, str)

    ' 编辑框1.加入文本 (到文本 (lpCopy.dwData) ＋ “:” ＋ str ＋ #换行符)

    ' 调试输出 (取变量数据地址 (str))
    调试输出 (str)
    启动线程 (&处理数据, 取变量数据地址 (str), t)

    等待线程 (t, 10)

    ' 编辑框1.加入文本 (“消息ID”, 到文本 (请求唯一ID), “请求完成”, 到文本 (sunny.响应.取正文长度 ()), “URL”, 请求地址 ＋ #换行符 ＋ #换行符)












    返回 (0)

.如果真结束


退出许可区 (许可证1)

返回 (CallWindowProcA (m_oldProc, hWnd, msg, wparam, lparam))

766711831

解决了吗 我想同时发送5-6个数据 接受那边怎么分类出来啊