.版本 2
.程序集 启动窗口程序集
.子程序 _服务器1_客户进入
' 当某客户连接进来时,将其加入在线列表。
列表框1.加入项目 (服务器1.取回客户 (), )
.子程序 _服务器1_客户离开
.局部变量 客户, 文本型
.局部变量 项目数
.局部变量 变量1
' 当某客户断开连接时,将其从在线列表中删除。
客户 = 服务器1.取回客户 ()
项目数 = 列表框1.取项目数 ()
.计次循环首 (项目数, 变量1)
.如果真 (列表框1.取项目文本 (变量1 - 1) = 客户)
列表框1.删除项目 (变量1 - 1)
跳出循环 ()
.如果真结束
.计次循环尾 ()
.子程序 _服务器1_数据到达
.局部变量 项目数
.局部变量 变量1
.局部变量 收到数据, 字节集
' 将所收到的信息转发给所有在线客户。
收到数据 = 服务器1.取回数据 ()
项目数 = 列表框1.取项目数 ()
.计次循环首 (项目数, 变量1)
服务器1.发送数据 (列表框1.取项目文本 (变量1 - 1), 收到数据, 1)
.计次循环尾 ()
以上是 服务器 的代码
.版本 2
.程序集 启动窗口程序集
.子程序 _按钮1_被单击
' 连接服务器
.如果真 (客户1.连接 (地址编辑框.内容, 到数值 (端口编辑框.内容)) = 假)
信息框 (“连接失败!”, 0, )
返回 ()
.如果真结束
发送按钮.禁止 = 假
发送编辑框.获取焦点 ()
.子程序 _发送按钮_被单击
.如果真 (客户1.发送数据 (发送编辑框.内容) = 假)
信息框 (“发送失败!”, 0, )
.如果真结束
发送编辑框.内容 = “”
发送编辑框.获取焦点 ()
.子程序 _客户1_数据到达
信息编辑框.加入文本 (取字节集数据 (客户1.取回数据 (), #文本型) + #换行符)
以上是 客户端 的代码
注意:(#重要提示# *****使用客户端前,需打开 “服务器” 才能连接服务器!!!*****)
追问我要的是注册登录。不是聊天室。聊天室我已经做好了。
况且你这是易语言资源网可以直接下载到的