80.htm

vb功能实例介绍。详细、很好的实例说明。

<p>用 Winsock 实现聊天的程序</p>
<p></p>
<p>一个简单的聊天程序</p>
<p></p>
<p>程序所需控件：Winsock控件，CommandButton控件（默认name），TextBox控件（一个名称为txtMess，另一个名称为txtSend）</p>
<p></p>
<p>程序代码如下：</p>
<p>Private Sub Form_Load()</p>
<p>Dim my As String</p>
<p>Winsock1.Protocol = sckUDPProtocol '设置为UDP协义</p>
<p>Winsock1.LocalPort = 10 '设置计算机的端口，随便设置，不过两个要一样</p>
<p>Winsock1.RemotePort = 10</p>
<p>my = Winsock1.LocalIP '取得自己的IP地址，是不要的</p>
<p>Winsock1.RemoteHost = my '这里应该是设置为别人计算机的IP地址，由于自己是单机，所以就设置成自己的，自己给自己发信息</p>
<p>End Sub</p>
<p></p>
<p>Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '取得数据时发生</p>
<p>Dim Tmp As String</p>
<p>Winsock1.GetData Tmp, vbString '取得数据</p>
<p>Tmp = "对方位址:" + Winsock1.RemoteHostIP + "发言内容为-->" + Tmp</p>
<p>txtMess.Text = Tmp + Chr$(13) + Chr$(10) + txtMess.Text</p>
<p>End Sub</p>
<p></p>
<p>Private Sub Command1_Click() '发送信息</p>
<p>Winsock1.SendData txtSend.Text</p>
<p>End Sub</p>
<p></p>
<p>补充：若是想要同時多人聊天的话，则你的RemoteHost 需要将最后面的地址设置为255(广播节点)才行</p>
<p></p>