VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 用 Winsock 实现聊天的程序
发表评论(0)作者:, 平台:, 阅读:9622, 日期:2000-09-19
作者:影子 VB爱好者乐园 yingzi007.126.com


一个简单的聊天程序


程序所需控件:Winsock控件,CommandButton控件(默认name),TextBox控件(一个名称为txtMess,另一个名称为txtSend)


程序代码如下:

Private Sub Form_Load()

Dim my As String

Winsock1.Protocol = sckUDPProtocol '设置为UDP协义

Winsock1.LocalPort = 10 '设置计算机的端口,随便设置,不过两个要一样

Winsock1.RemotePort = 10

my = Winsock1.LocalIP '取得自己的IP地址,是不要的

Winsock1.RemoteHost = my '这里应该是设置为别人计算机的IP地址,由于自己是单机,所以就设置成自己的,自己给自己发信息

End Sub


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '取得数据时发生

Dim Tmp As String

Winsock1.GetData Tmp, vbString '取得数据

Tmp = "对方位址:" + Winsock1.RemoteHostIP + "发言内容为-->" + Tmp

txtMess.Text = Tmp + Chr$(13) + Chr$(10) + txtMess.Text

End Sub


Private Sub Command1_Click() '发送信息

Winsock1.SendData txtSend.Text

End Sub


补充:若是想要同時多人聊天的话,则你的RemoteHost 需要将最后面的地址设置为255(广播节点)才行