关于聊天室的问题

蛋挞

怎么把输入的人前面带上自己的编号
比如说我输入  就显示  1号：****  以下是源码
服务器
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕

.子程序 _服务器1_数据到达
.局部变量 i
编辑框1.加入文本 (“收到信息：” ＋ 到文本 (服务器1.取回数据 ()) ＋ #换行符)
i ＝ 1
.计次循环首 (列表框1.取项目数 (), i)
    服务器1.发送数据 (列表框1.取项目文本 (i － 1), 服务器1.取回数据 (), )
.计次循环尾 ()
.子程序 _服务器1_客户进入
编辑框1.加入文本 (服务器1.取回客户 () ＋ “进入” ＋ #换行符)
列表框1.加入项目 (服务器1.取回客户 (), )
.子程序 _服务器1_客户离开
.局部变量 i
编辑框1.加入文本 (服务器1.取回客户 () ＋ “离开” ＋ #换行符)
i ＝ 1
.计次循环首 (列表框1.取项目数 (), i)
    .如果真 (列表框1.取项目文本 (i － 1) ＝ 服务器1.取回客户 ())
        列表框1.删除项目 (i － 1)
        跳出循环 ()
    .如果真结束
.计次循环尾 ()








服务端
.版本 2
.子程序 _按钮发送_被单击
客户1.发送数据 (自己说话.内容)
自己说话.内容 ＝ “”
' 聊天内容.加入文本 (自己说话.内容 ＋ #换行符 ＋ #换行符)
.子程序 _按钮连接_被单击
.如果 (编辑框ip.内容 ＝ “”)
    信息框 (“请输入服务器的IP地址”, 0, )
.否则
    .如果 (客户1.连接 (编辑框ip.内容, 到数值 (编辑框port.内容)) ＝ 真)
        标题 ＝ “客户端  -  连接【” ＋ 编辑框ip.内容 ＋ “】成功!”
        按钮连接.禁止 ＝ 真
        按钮断开.禁止 ＝ 假
        按钮发送.禁止 ＝ 假
        连续赋值 (真, 编辑框ip.禁止, 编辑框port.禁止)
    .否则
        标题 ＝ “客户端  -  连接【” ＋ 编辑框ip.内容 ＋ “】失败! ”
        按钮连接.禁止 ＝ 假
        按钮断开.禁止 ＝ 真
        按钮发送.禁止 ＝ 真
        连续赋值 (假, 编辑框ip.禁止, 编辑框port.禁止)
    .如果结束
.如果结束

.子程序 _按钮断开_被单击
客户1.断开连接 ()
标题 ＝ “客户端  -  已经与【” ＋ 编辑框ip.内容 ＋ “】断开!”
按钮断开.禁止 ＝ 真
按钮发送.禁止 ＝ 真
连续赋值 (假, 编辑框ip.禁止, 编辑框port.禁止, 按钮连接.禁止)
.子程序 _客户1_数据到达
聊天内容.加入文本 (到文本 (客户1.取回数据 ()) ＋ #换行符 ＋ #换行符)
.子程序 _自己说话_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (功能键状态 ＝ 1 且 键代码 ＝ #回车键)
    _按钮发送_被单击 ()
    返回 (假)
.如果真结束

.子程序 _按钮退出_被单击
客户1.断开连接 ()
销毁 ()
.子程序 _按钮清屏_被单击
聊天内容.内容 ＝ “”
.子程序 _编辑框port_内容被改变
.如果 (编辑框ip.内容 ＝ “” 或 编辑框port.内容 ＝ “”)
    按钮连接.禁止 ＝ 真
.否则
    按钮连接.禁止 ＝ 假
.如果结束

.子程序 _编辑框ip_内容被改变
.如果 (编辑框ip.内容 ＝ “” 或 编辑框port.内容 ＝ “”)
    按钮连接.禁止 ＝ 真
.否则
    按钮连接.禁止 ＝ 假
.如果结束

.子程序 _编辑框ip_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 ＝ #回车键)
    _按钮连接_被单击 ()
    返回 (假)
.如果真结束

.子程序 __启动窗口_创建完毕
编辑框ip.内容 ＝ “127.0.0.1”

Jmp520

看看把，，

Jmp520

编号是服务端设置还是客户端输入

蛋挞

客户端发东西时候前面可以显示  或者加一个   可以输入名字的  聊天的时候名字在内容前面

蛋挞

这个是源码 ~~~~~~~~~~~~~~~~~

蛋挞

打呵呵
打出去以后就成
01：呵呵
01可以自己输入的

F9b5u5f

聊天室比较难 太复杂