vb.netudp源碼 VBNET教程

用VB向另一臺電腦上的程序發(fā)送消息,求源代碼和所需控件

這代碼發(fā)送和接收的MSDN6.0中有，在索引中鍵入winscok 控件，點(diǎn)使用 Winsock 控件

網(wǎng)站建設(shè)哪家好，找創(chuàng)新互聯(lián)！專注于網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、小程序定制開發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了犍為免費(fèi)建站歡迎大家使用！

其中關(guān)于UDP

協(xié)議是一種無連接協(xié)議，兩臺計(jì)算機(jī)之間的傳輸類似于傳遞郵件：消息從一臺計(jì)算機(jī)發(fā)送到另一臺計(jì)算機(jī)，但是兩者之間沒有明確的連接。另外，單次傳輸?shù)淖畲髷?shù)據(jù)量取決于具體的網(wǎng)絡(luò)。

要創(chuàng)建一個 UDP 伙伴，請按照以下步驟執(zhí)行：?

創(chuàng)建一個新的 Standard EXE 工程。

將缺省的窗體的名稱修改為 frmPeerA。

將窗體的標(biāo)題修改為“Peer A”。

在窗體中放入一個 Winsock 控件，并將其命名為 udpPeerA。

在“屬性”頁上，單擊“協(xié)議”并將協(xié)議修改為 UDPProtocol。

在窗體中添加兩個 TextBox 控件。將第一個命名為 txtSend，第二個命名為 txtOutput。

為窗體增加如下的代碼。

Private?Sub?Form_Load()

'控件的名字為?udpPeerA

With?udpPeerA

'重點(diǎn):必須將?RemoteHost?的值

'修改為計(jì)算機(jī)的名字。

.RemoteHost=?"PeerB"?

.RemotePort?=?1001???'連接的端口號。

.Bind?1002????????????????'綁定到本地的端口。

End?With

frmPeerB.Show?????????????????'顯示第二個窗體。

End?Sub

Private?Sub?txtSend_Change()

'在鍵入文本時，立即將其發(fā)送出去。

udpPeerA.SendData?txtSend.Text

End?Sub

Private?Sub?udpPeerA_DataArrival?_

(ByVal?bytesTotal?As?Long)

Dim?strData?As?String

udpPeerA.GetData?strData

txtOutput.Text?=?strData

End?Sub

要創(chuàng)建第二個 UDP 伙伴，請按照以下步驟執(zhí)行：

在工程中添加一個標(biāo)準(zhǔn)窗體。

將窗體的名字修改為 frmPeerB。

將窗體的標(biāo)題修改為“Peer B”。

在窗體中放入一個 Winsock 控件，并將其命名為 udpPeerB。

在“屬性”頁上，單擊“協(xié)議”并將協(xié)議修改為“UDPProtocol”。

在窗體上添加兩個 TextBox 控件。將第一個命名為 txtSend，第二個命名為 txtOutput。

在窗體中添加如下的代碼。

Private?Sub?Form_Load()

'控件的名字為?udpPeerB。

With?udpPeerB

'重點(diǎn):必須將?RemoteHost?的值改為

'計(jì)算機(jī)的名字。

.RemoteHost=?"PeerA"

.RemotePort?=?1002????'要連接的端口。

.Bind?1001????????????????'綁定到本地的端口上。

End?With

End?Sub

Private?Sub?txtSend_Change()

'在鍵入后立即發(fā)送文本。

udpPeerB.SendData?txtSend.Text

End?Sub

Private?Sub?udpPeerB_DataArrival?_

(ByVal?bytesTotal?As?Long)

Dim?strData?As?String

udpPeerB.GetData?strData

txtOutput.Text?=?strData

End?Sub

求一個VB.NET進(jìn)行局域網(wǎng)內(nèi)UDP廣播的源代碼例子

給你個udp多播例子，廣播不是很清楚，呵呵

Imports System.Net

Imports System.Net.Sockets

Imports System.Text

Public Class Form1

Inherits System.Windows.Forms.Form

Dim port As String

Dim ipadd As String

Dim ipend As IPEndPoint

Dim sendudp As New UdpClient()

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _

Handles Button1.Click

Dim ipadress As IPAddress

ipadress = IPAddress.Parse(TextBox1.Text)

'sendport = Int32.Parse(TextBox2.Text)

'ipend = New IPEndPoint(ipadress, sendport)

Try

sendudp.JoinMulticastGroup(ipadress)

MessageBox.Show("啟動完成！")

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

vb.net 如何獲取某個進(jìn)程的UDP連接信息（要有目標(biāo)ip和port）

private void MyPrintPage(object sender, System.Drawing.Printing.PrintPageEventArgs e)

public static boolean isNumeric(String str){

if(str.matches("http://d*"){

return true;

}else{

return false;

}

}

網(wǎng)站標(biāo)題：vb.netudp源碼 VBNET教程
分享路徑：http://muchs.cn/article22/hhejcc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站導(dǎo)航、移動網(wǎng)站建設(shè)、手機(jī)網(wǎng)站建設(shè)、外貿(mào)建站、定制開發(fā)、搜索引擎優(yōu)化

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)

小程序開發(fā)