Private Sub Command1_Click()
UdpSocket.Protocol = sckUDPProtocol '選擇UDP協議
UdpSocket.RemoteHost = IPAdr.Text '選擇目的IP地址
UdpSocket.RemotePort = 2006 '選擇目的埠
UdpSocket.Bind 2006 '本地埠
End Sub
Private Sub Command2_Click()
UdpSocket.SendData TextSend.Text '發送資訊
TextSend.Text = "" '清空發送文本框
End Sub
Private Sub Label1_Click()
End Sub
Private Sub UdpSocket_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
UdpSocket.GetData strData '接收資料
TextRecieve.Text = TextRecieve & Chr(13) & Chr(10) '在舊資料后加回車換行
TextRecieve.Text = TextRecieve & strData '將新資料加到舊資料之后
End Sub
有沒有好心人幫我看看這個程式有什么問題，題目是用 ：UDP 協議設計一個聊天程式。實驗平臺可選用 Visual Basic 開發平臺或 Visual C++開發平臺等。將程式輸入到計算機后運行程式，輸入聊天物件的 IP 地址，確定后，開始聊天，再更換 IP 地址，與另一個聊天物件聊天。
求好心人幫忙解答，萬分感謝
uj5u.com熱心網友回復：
仔細看MSDN中關于winsock控制元件的說明。或者看下面這個吧，基本上就是MSDN的那塊內容
https://www.cnblogs.com/hubery/archive/2013/08/07/3244048.html
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/31884.html
標籤：VB基礎類