|
1易币
先说明一下应用场景,公司有一些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.加入项目 (到文本 (取现行时间 ()) + 分割出来的文本 [记次] + “上传失败!请检查连接”, )
返回 ()
.如果结束
.计次循环尾 ()
本人是新手,没积分,可以有偿报答好心人。
|
|