易语言服务端发送的数据程序收不到。

admin5年前 (2022-04-06)易语言问答3796
先说明一下应用场景,公司有一些C#开发的软件,我想用易语言写一个辅助工具,用于自动发送指定的sn,公司软件截图和配置档,会连接指定的TCP server端口接收数据,但是这个是实物。

截图202204061904133954..png


然后我想用易语言模拟一个,模块是服务器,以下是我的软件截图和代码

截图202204061906313009..png


用网络调试助手,可以正常收我易语言发送的数据,但是公司软件收不到,然后用网络调试助手给公司的软件发,又可以收到的到,
以下是代码
.版本 2
.支持库 xplib
.支持库 spec

.程序集 窗口程序集_二维码上传窗口

.子程序 _服务器1_客户进入

XP风格 (2)


编辑框5.内容 = 到文本 (服务器1.取回客户 ())

列表框1.加入项目 (服务器1.取回客户 (), )


.子程序 _服务器1_客户离开

信息框 (服务器1.取回客户 () + “离开”, 0, , )




.子程序 _按钮1_被单击
.局部变量 分割出来的文本, 文本型, , "0"
.局部变量 记次
.局部变量 客户, 文本型

客户 = 服务器1.取回客户 ()
列表框1.加入项目 (到文本 (取现行时间 ()) + “执行” + “正在启动中”, )

分割出来的文本 = 分割文本 (编辑框3.内容, #换行符, )

.计次循环首 (取数组成员数 (分割出来的文本), 记次)
    延迟 (1000)
    编辑框4.内容 = 分割出来的文本 [记次] + “\r\n”
    列表框1.加入项目 (到文本 (取现行时间 ()) + 分割出来的文本 [记次], )
    .如果 (服务器1.发送数据 (编辑框5.内容, 编辑框4.内容, ) = 真)
        列表框1.加入项目 (到文本 (取现行时间 ()) + 分割出来的文本 [记次] + “上传成功”, )
    .否则
        列表框1.加入项目 (到文本 (取现行时间 ()) + 分割出来的文本 [记次] + “上传失败!请检查连接”, )
        返回 ()

    .如果结束

.计次循环尾 ()


本人是新手,没积分,可以有偿报答好心人。