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

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

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

其中關(guān)于UDP

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

要?jiǎng)?chuàng)建一個(gè) UDP 伙伴，請(qǐng)按照以下步驟執(zhí)行：?

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

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

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

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

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

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

為窗體增加如下的代碼。

Private?Sub?Form_Load()

'控件的名字為?udpPeerA

With?udpPeerA

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

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

.RemoteHost=?"PeerB"?

.RemotePort?=?1001???'連接的端口號(hào)。

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

End?With

frmPeerB.Show?????????????????'顯示第二個(gè)窗體。

End?Sub

Private?Sub?txtSend_Change()

'在鍵入文本時(shí)，立即將其發(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

要?jiǎng)?chuàng)建第二個(gè) UDP 伙伴，請(qǐng)按照以下步驟執(zhí)行：

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

將窗體的名字修改為 frmPeerB。

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

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

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

在窗體上添加兩個(gè) TextBox 控件。將第一個(gè)命名為 txtSend，第二個(gè)命名為 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

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

給你個(gè)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("啟動(dòng)完成！")

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

vb.net 如何獲取某個(gè)進(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;

}

}