《在visual basic 6》由会员分享，可在线阅读，更多相关《在visual basic 6（2页珍藏版）》请在金锄头文库上搜索。
1、在在 VisualVisual BasicBasic 6.06.0 环境下，利用环境下，利用 WinsockWinsock 控件开发局域网聊天工具控件开发局域网聊天工具 浏览次数：787 次悬赏分：20 | 解决时间：2009-7-15 10:53 | 提问者：szy871119 a) 提供基本的文本编辑功能，使用户可以方便的编辑要发送的信息。 b) 能够将编辑好的文本信息，利用 Winsock 控件发送到局域网中指定 IP 地 址的 设备上。 c) 能够显示通过 Winsock 控件接收到的信息，并利用 IP 地址（或用户名） 加以 区分。 d) 实现点对点和广播信息的发送功能。 e) 设计
2、一个良好的人机交互环境。 f) 列出所有在线用户的 IP 地址和用户名，并进行动态刷新。 g) 通过鼠标操作选择信息的接收者（设备）。 h) 记录并显示每一条信息的发送时间。 i) 在信息中插入各类图标。 j) 实现聊天室的其它功能，如：加密、设立主题、聊友分类等。 k) 不同实验小组所开发的系统之间的兼容性问题（即不同系统间互连互通）。 （以上功能中加“”的为扩展功能。）-客户端程序-Private Sub Form_Load() Winsock1.RemoteHost = “60.15.142.169“ Winsock1.RemotePort = 20002 Winsock1.Connec
3、t “60.15.142.169“, “2000“ End SubPrivate Sub Text1_Change() Winsock1.SendData Text1.Text End SubPrivate Sub Winsock_DataArrival(ByVal bytesTotal As Long) Dim strdata As String Winsock1.GetData strdata Text2.Text = strdata End Sub-服务器程序-Private Sub Form_Load() Winsock1.LocalPort = 2000Winsock1.Listen
4、 Form2.Show End SubPrivate Sub Text1_Change() On ERRO GoTo err Winsock1.SendData Text1.Text err: If err.Number = 4006 Then MsgBox “网络错误“End If End SubPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long) If Winsock1.State sckClosed Then Winsock1.Close End If Winsock1.Accept requestIDEnd SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim str As String Winsock1.GetData str Text1.Text = str End SubBY 悲伤的独奏曲 Q99425982出处 http:/ 支持，是一种网络通用语言。“网络通信协议 ”指的是连接不同操作系统和不同硬件体系结构的互联网络引提供通信 支持，是一种网络通用语言。
