用UDP协议实现局域网聊天

发布网友发布时间：2023-09-24 03:42

共1个回答

热心网友时间：2024-08-17 12:21

■ 用UDP协议写局域网聊天程序

————————————————以下为程序代码—————————————

Private Sub Form_Load()
'如果本程序已经运行，拒绝再次运行实例
If App.PrevInstance Then
MsgBox "本程序已经运行！", vbExclamation, "提示信息"
End
End If
'设置在对方电脑上运行的程序所占用的端口
Winsock1.RemotePort = 3026
'绑定程序在自己电脑上所占用的端口
Winsock1.Bind 3026
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim s
'接受发来的消息
Winsock1.GetData s, vbString
txt接受窗.Text = s & Chr(13) & Chr(10) & txt接受窗.Text
End Sub
'当单击按钮发送消息
Private Sub cmd发送_Click()
Dim s
On Error Resume Next
'设置对方计算机IP地址
Winsock1.RemoteHost = Trim(txt对方IP.Text)
s = Time & " " & txt昵称.Text & Chr(13) & Chr(10) & txt发送窗.Text
'发送消息
Winsock1.SendData s
txt接受窗.Text = s & Chr(13) & Chr(10) & txt接受窗.Text
txt发送窗.Text = ""
txt发送窗.SetFocus
End Sub