这是我大约半年前的作品,但当时因为一些原因没有完成。 是半成品。 感兴趣的人可以下载并研究一下
.版本2
.库eAPI支持
'源代码例程来自亦行(yx )博客,由yx创建并发布。 如果有转载,请注明来源www.yxblog.cn
本地_IP=获取地址(
标题=“[”本地_IP “]”
.版本2
.支持库iext
.程序集Customer_模块
.程序集变量局部_公用变量、局部_数据成员
.已点击子程序_按钮1_
.开始判断(客户机1 .连接)输入框.内容,19730(=真) ) ) ) ) ) ) )。
服务器显示.标题=“服务器连接正常”
.默认值
服务器显示.标题=“服务器连接异常”
.判断结束
.已点击子程序_按钮2_
.开始判断(客户机1 .发送数据(“yntx”域内通信收件箱.内容(=真) ) ) ) ) ) ) ) ) 65 )
域内通信箱.输入文本(“ip[我] #换行“通信内容:”域内通信发件箱.内容#换行) ) )。
.默认值
域内通信框.输入文本(“我”#换行“通信内容:发送失败”#换行) )
.判断结束
.子程序_客户端1_数据到达
局部_公共变量.到达=客户端1 .读取数据() ) ) ) ) ) ) ) )。
.开始判断(取文本的左边(文本(局部_通用变量.到达),4 )=“yntx”) ) ) ) ) ) ) ) )。
域内通信框.插入文本() IP )连接输入框(内容) ) (换行) (通信内容) )文本右侧)到文本) (本地_公共变量.到达) (文本长度)文本)
.默认值
.判断结束
下载信息
源代码名称:域内通信
源代码适用于:易语言WIN