用VB编写聊天程序

Author: 黄立伟 Date: 2001年 8期

    所谓“聊天”是指两个程序能够相互发送数据。这个程序涉及到数据通讯的知识，仿佛很复杂，不过，由于VB给我们提供了一个Winsock控件，问题就变得简单了。
　　    编写“聊天（主机）”程序。在窗体里添加Winsock控件，并设置其Protocol属性为1-SckUDPProtocol，其他属性为缺省值。接着添加两个标签和两个文本框，设置两个标签的标题属性分别为“接收窗”和“发送窗”；两个文本框的标题属性为空。最后编写代码：
　　    1.聊天（主机）
　　    Private Sub Form-Load（）?煟?
　　    ＇设置网络地址
　　    Winsock1.LocalPort=1024
　　    Winsock1.RemoteHost="202.96.6.1"
　　    Winsock1.RemotePort=1999
　　    End Sub
　　    Private Sub Text1-Change（）?煟?
　　    ＇发送用户输入的内容
　　    Winsock1.SendData Text1.Text
　　    End Sub
　　    Private Sub Winsock1-DataArrival（Byval bytesTotal As Long）??
　　    Dim rec As String
　　    ＇接收对方数据并在文本框内显示
　　    Winsock1.GetData rec， vb String
　　    Text2.Text=rec
　　    End Sub
　　    2.聊天（客户机）
　　    Private Sub Form_Load（）?煟?
　　    ＇设置网络地址
　　    Winsock1.LocalPort=1999
　　    Winsock1.RemoteHost="202.96.6.1"
　　    Winsock1.RemotePort=1024
　　    其他部分程序与（主机）相同。最后将两个程序存盘，并编译成执行（.EXE）文件。现在就可以使用这个程序进行对话了。