易语言服务端发送的数据程序收不到。
先说明一下应用场景,公司有一些C#开发的软件,我想用易语言写一个辅助工具,用于自动发送指定的sn,公司软件截图和配置档,会连接指定的TCP server端口接收数据,但是这个是实物。然后我想用易语言模拟一个,模块是服务器,以下是我的软件截图和代码
用网络调试助手,可以正常收我易语言发送的数据,但是公司软件收不到,然后用网络调试助手给公司的软件发,又可以收到的到,
以下是代码
.版本 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.加入项目 (到文本 (取现行时间 ()) + 分割出来的文本 [记次] + “上传失败!请检查连接”, )
返回 ()
.如果结束
.计次循环尾 ()
本人是新手,没积分,可以有偿报答好心人。
wx,zfb,qqb都可以,感兴趣的话,可以提供公司软件用来测试。效果就是用网络调试助手设置为server端,公司软件可以正常接收,但是用我的易语言,公司软件就收不到,但是易语言可以取到客户,说明两者就是用tcp协议在通讯,并且协议是通了的。 什么东西
看上去很牛皮的样子呀
页:
[1]