Question

求asp.net socket简易在线聊天室源码

用socket实现的在线聊天室源码，想学习一下

Answer 1

版本 2

.程序集 启动窗口程序集

.子程序 _按钮1_被单击

' 连接服务器
.如果真 (客户1.连接 (地址编辑框.内容, 到数值 (端口编辑框.内容)) ＝ 假)
信息框 (“连接失败！”, 0, )
返回 ()
.如果真结束
发送按钮.禁止 ＝ 假
发送编辑框.获取焦点 ()

.子程序 _发送按钮_被单击

.如果真 (客户1.发送数据 (发送编辑框.内容) ＝ 假)
信息框 (“发送失败！”, 0, )
.如果真结束
发送编辑框.内容 ＝ “”
发送编辑框.获取焦点 ()

.子程序 _客户1_数据到达

信息编辑框.加入文本 (取字节集数据 (客户1.取回数据 (), #文本型) ＋ #换行符)
‘以上是客户端’
.版本 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)
.计次循环尾 ()
‘以上是服务器端’

Answer 2

去51aspx源代码网站看一下！搜索一下！那里有甚多源代码！

追问

没找到，51aspx都是用ajax通过服务器中转实现的，我想不通过服务器信息中转，直接通过socket实现

Answer 3

look：http://www.cnblogs.com/romanticcrystal/p/8979869.html