本易语言例程源码是易语言论坛用户编写的教程,属于易语言数据库类教程。
本易语言例程还使用到易语言远程服务支持库和扩展界面支持库。
.判断 (消息类型 = 1) ' 客户断开
离线用户名 = 用户列表框.取标题 (用户列表框.查找表项数值 (, 客户句柄), ) ' 或得当前离线帐户名
用户列表框.删除表项 (用户列表框.查找表项数值 (, 客户句柄)) ' 客户断开并清除在线列表
记录集.打开 (“users”, #数据表名)
记录集.查找 (“name='” + 离线用户名 + “'”, 1)
记录集.写整数 (“zt”, 0)
记录集.更新 ()
记录集.关闭 ()
.判断 (消息类型 = 2) ' 数据到达
服务端.取请求文本 (消息地址, 请求代码, 请求信息) ' 取消息封包内容
.判断开始 (请求信息 = “” 或 取文本右边 (请求信息, 4) ≠ “7788”) ' 判断是否为正确的封包
服务端.断开连接 (客户句柄)
用户列表框.删除表项 (用户列表框.查找表项数值 (, 客户句柄))
.判断 (取文本左边 (请求信息, 2) = “dl”) ' 用户登陆消息封包
详细请求信息 = 分割文本 (请求信息, “,”, )
.判断开始 (取数组成员数 (详细请求信息) ≠