|
2精币
摆渡做的教程..
.版本 2
.支持库 Exmlrpc
.支持库 iext
.程序集 窗口程序集1
.程序集变量 服务器, 远程服务
.子程序 服务a
.参数 消息地址, 整数型
.局部变量 客户句柄, 整数型
.局部变量 客户ip, 文本型
.局部变量 状态, 整数型
.局部变量 请求代码, 文本型
.局部变量 请求信息, 文本型
状态 = 服务器.取消息类型 (消息地址)
.如果 (状态 = 0)
服务器.取客户句柄 (消息地址, 客户句柄)
服务器.取客户IP (客户句柄, 客户ip)
超级列表框1.插入表项 (超级列表框1.取表项数 () - 1, 客户ip, , , , 客户句柄)
标签1.标题 = “共有” + 到文本 (服务器.取客户数 ()) + “在线”
服务器.发送文本 (客户句柄, “你好”)
.否则
.如果 (状态 = 1)
超级列表框1.删除表项 (超级列表框1.查找表项数值 (, 客户句柄))
标签1.标题 = “共有” + 到文本 (服务器.取客户数 ()) + “在线”
.否则
.如果结束
.如果结束
.子程序 __启动窗口_创建完毕
.子程序 _按钮1_被单击
.如果真 (服务器.启动 (8000, &服务a, ))
标签2.标题 = “服务器启动成功”
.如果真结束
客户端简单的代码是“
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.子程序 _按钮1_被单击
客户1.连接 (“127.0.0.1”, 8000)
客户1.发送数据 (编辑框1.内容)
.子程序 _客户1_数据到达
编辑框2.内容 = 到文本 (客户1.取回数据 ()) |
|