VB写的一个简单的聊天程序

●属性RemoteHost是远程主机的地址，LocalPort、RemotePort分别本地主机的端口和远程主机端口，对客户来说，该属性指定发送数据的本地端口，而对于服务器来说，这是用于侦听的本地端口，我们在设置这两个属性时必须保证两台主机的端口值符合下面规则，即主机1的LocalPort等于主机2的RemotePort值，同样主机1的RemotePort等于主机2的LocalPort值，这样才能保证两机通讯的正常进行。
'-----------------------------------------------------------
'当CLEAR按钮按下时，清空TEXT1和TEXT2中的内容
Private Sub cmdClear_Click()
Text1 = ""
With Text2
'清空输入框
txtRemoteIP = Winsock1.LocalIP
End Sub
'接收TEXT2输入框的按键，并做响应
Private Sub Text2_KeyPress(KeyAscii As Integer)
'定义变量 Last_Line_Feed 来记录最后输入行的位置
Static Last_Line_Feed As Long
'Label3 Label REMOTE PORT标签
'txtRemoteIP TextBox 远程IP地址输入框
'txtLocalPort TextBox 本地PORT输入框
'通过 WINSOCK 发送新输入的一行文本的内容
Winsock1.SendData New_Line
'在状态栏显示发送信息
StatusBar1.Panels(2).Text = " Sent " & (LenB(New_Line) / 2) & " bytes "
'fnsock1 Winsock 连接控件
'Label1 Label CONNECT WITH IP标签
'Label2 Label LOCAL PORT标签
3、创建“聊天”应用程序。
WINSOCK的主要属性有：
●PROTOCOL（控制协议）属性，在这个例子中，我们将PROTOCOL属性设置为sckUDPProtocol。这个协议一般用于简单数据交换的情况，而如果我们要编写INTERNET应用程序，多采用TCP协议。
方法的作用是为控件“保留”一个本地端口。例如，如果将控件绑定到1001
号端口，那么其它应用程序将不能使用该端口进行“监听”。该方法阻止其它应用程序使用同样的端口。
●SendData 方法用于发送一条数据给另一台主机，使用这个方法的语法是： WinSock.SendData
'Frame1(remoteip) Frame REMOTE IP 框架
'Frame2(host ip) Frame HOST IP 框架
'Text1 TextBox 显示对方（远程主机）发送的CHAT内容
Label4.Visible = True
Text2.SetFocus
Exit Sub
'如果在连接过程中出现错误，则转向ErrHandler:，并显示错误提示
ErrHandler:
MsgBox "Winsock failed to establish connection with remote server", vbCritical
控件类似，WinSock 控件在运行时是不可见的。
它的主要用途有：
1、创建收集用户信息的客户端应用程序，并将收集的信息发送到某中央服务器。
2、创建一个服务器应用程序，作为多个用户的数据的汇入点。
Frame2.Caption = .LocalIP
.Bind .LocalPort
'待查
End If
End With
'为了保证使用者不能改变LocalPort的值，将txtLocalPort输入框锁定
txtLocalPort.Locked = True
'设置 RemoteHost 属性
.RemoteHost = Trim(txtRemoteIP)
'设置 RemotePort 属性
'RemotePort 属性的值应该等于 远程主机上的 LocalHost 属性的值
.RemotePort = Trim(txtRemotePort)
这是一个简单的聊天程序(VB6.0实现)，它可以实现在局域网中两台主机间的在线聊天，程序很简单，只有短短的几十行，但“麻雀虽小，五脏俱全”，它已经有了聊天程序的大体框架。我们在它的基础上稍加改进，就能做出不错的聊天小软件呢。
为了学习方便，提供的源码已经作了详细的中文注释，看看源码框中的代码：
'txtRemotePort TextBox 远程PORT输入框
'cmdConnect CommandButton 连接CONNECT按钮
'Label4 Label Type your text and hit Enter to send it.标签
.Text = " "
'并把焦点置于TEXT2
.SetFocus
End With
End Sub
'当CONNECT按钮按下时，进行以下操作
Private Sub cmdConnect_Click()
On Error GoTo ErrHandler
With Winsock1
'Text2 TextBox 输入己方（本地主机）要发送的CHAT内容，按ENTER键发送
'cmdClear CommandButton 清空输入框（TEXT2）和显示框（TEXT1）中的内容
'StatusBar1 StatusBar 状态栏
(源程序下载)
主打控件WINSOCK解析：
作为这个CHAT程序的主打控件WINSOCK，我们来看看它的一些常用属性、事件和方法。利用WinSock控件可以与远程计算机建立连接，并通过用户数据文报协议
(UDP)或者传输控制协议 (TCP)进行数据交换。这两种协议都可以用来创建客户与服务器应用程序。与 Timer
Shell "notepad.exe readme.txt", vbNormalFocus
End If
End Sub
'当窗体加载时显示提示信息并在 txtRemoteIP 框中显示本地主机的IP
Private Sub Form_Load()
Show
MsgBox "Winsock UDT Chat" & vbCrLf & "by Theo Kandiliotis (ionikh@hol.gr)" & vbCrLf & vbCrLf & "F1 for help.", vbInformation
'定义 New_Line 字符串记录新键入的一行文本的内容
Dim New_Line As String
'如果使用者按下CLEAR按钮对输入框内容清空，这时TEXT2为空，则重设最后输入行的位置为0
If Trim(Text2) = vbNullString Then Last_Line_Feed = 0
End Sub
'---------------------------------------------------------------------------
'这就是一个最简单的CHAT程序，你可以在它的基础上加以改进，做出更实用的CHAT小软件。
'---------------------------------------------------------------------------
'LocalPort 属性的值是不能改变的,必须检查它是否已经被设置
'如果 LocalPort 属性为空（没有被设置），将其设为在LocalPort输入框中输入的数值
If .LocalPort = Empty Then
.LocalPort = Trim(txtLocalPort)
Option Explicit
Private IgnoreText As Boolean
'----------------------各控件说明----------------------------
'--名称-------------类型---------------作用------------------
'在状态栏中显示“正在连接”的状态
StatusBar1.Panels(1).Text = " Connected to " & Winsock1.RemoteHost & " "
'如果连接正常，做以下设置
Frame1.Enabled = True
Frame2.Enabled = True
●LocalIP属性用于返回本地机器的 IP 地址，格式是 IP 地址加点的字符串 (xxx.xxx.xxx.xxx)。
在本例中我们用到了以下几个WINSOCK的方法：
●在创建 UDP 应用程序时调用了 Bind 方法，这是必须的。Bind