vb UDPSocket 是什么控件?

我沒有見過這個(gè)控件

成都創(chuàng)新互聯(lián)專注于太康企業(yè)網(wǎng)站建設(shè),響應(yīng)式網(wǎng)站開發(fā),商城網(wǎng)站建設(shè)。太康網(wǎng)站建設(shè)公司,為太康等地區(qū)提供建站服務(wù)。全流程按需求定制設(shè)計(jì)，專業(yè)設(shè)計(jì)，全程項(xiàng)目跟蹤，成都創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務(wù)

如果有 我可以從名字上給你解釋

UDP 一種用戶傳輸協(xié)議

socket 是網(wǎng)絡(luò)套接字

所以這個(gè)UDPSocket控件 肯定是 以 UDP的方式 來進(jìn)行網(wǎng)絡(luò)套接字傳輸

也就是所謂的 網(wǎng)絡(luò)傳輸。 可以傳輸文字。圖片等數(shù)據(jù)

vb點(diǎn)虐 怎樣用UDP 協(xié)議 寫一個(gè)聊天程序?。咳鐖D

'xiansr.2014/2/7 vb點(diǎn)虐 2010 調(diào)試通過

Imports System.Net

Imports System.Net.Sockets

Imports System.Text

Public Class Form1

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

Dim udpClient As New UdpClient(11000)

Try

udpClient.Connect("127.0.0.1", 11000)

Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(RichTextBox1.Text)

udpClient.Send(sendBytes, sendBytes.Length)

Dim RemoteIpEndPoint As New IPEndPoint(IPAddress.Any, 0)

Dim receiveBytes As [Byte]() = udpClient.Receive(RemoteIpEndPoint)

Dim returnData As String = Encoding.ASCII.GetString(receiveBytes)

RichTextBox2.Text = "接收到： " + returnData.ToString()

'Debug.Print(("This message was sent from " + RemoteIpEndPoint.Address.ToString() + " on their port number " + RemoteIpEndPoint.Port.ToString()))

udpClient.Close()

Catch ex As Exception

stop

End Try

End Sub

End Class

VB UDP協(xié)議 winsock控件收到數(shù)據(jù) 沒有觸發(fā)DataArrival事件

udp是不安全的傳輸協(xié)議，只管發(fā)出去包不管收不收的到數(shù)據(jù)包，所以美玉觸發(fā)這個(gè)事件也是很正常的，你用tcp就可以了。。。

其次你的監(jiān)聽事件呢？