利用UDP协议收发信息
1![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
2
'------------------//接收远程数据
13
Imports System.Net
14
Imports System.Net.Sockets
15
Imports System.Threading
16
Imports System.Text
17
Public Class frmMain
18![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
19
Dim myPort As Integer '端口
20
Dim groupIP As IPAddress
21
Dim intListenPort As Integer
22
Dim inPort As Integer
23
Dim strAddress As String
24
Dim groupEP As IPEndPoint
25
Dim listenUdp As UdpClient
26
Dim listenThread As Threading.Thread
27
Delegate Sub SetTextCallback(ByVal [text] As String)
28![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
29
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
30
myRecevice() '侦听
31
End Sub
32
Private Sub myRecevice()
33
listenThread = New Thread(AddressOf BeginListen)
34
listenThread.Start()
35
End Sub
36![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
37
Private Sub BeginListen()
38
Dim bteReceviceData() As Byte
39
Dim strReceviceData As String
40
new class1(). GetIpPort(myPort) '端口号
41
groupIP = IPAddress.Parse(Dns.GetHostAddresses(Dns.GetHostName())(0).ToString())
42
intListenPort = myPort 'Integer.Parse("34567")
43![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
44
groupEP = New IPEndPoint(groupIP, intListenPort)
45
listenUdp = New UdpClient(intListenPort)
46
'listenUdp.JoinMulticastGroup(groupIP)
47![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
48
'MsgBox("开始监听
")
49![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
50
Do
51
bteReceviceData = listenUdp.Receive(groupEP)
52
strReceviceData = Encoding.Unicode.GetString(bteReceviceData)
53
'Me.Label1.Text = strReceviceData
54
Me.SetLbl(strReceviceData) '线程安全处理
55
Loop
56
End Sub
57![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
58
Private Sub SetLbl(ByVal [text] As String)
59
Dim arr() As String
60
arr = Split([text], ",")
61![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
62
If Me.lblBarcode.InvokeRequired Then '商品编号
63
Dim d As New SetTextCallback(AddressOf SetLbl)
64
Me.Invoke(d, New Object() {[text]})
65
Else
66
Me.lblBarcode.Text = arr(0).ToString
67
End If
68
If Me.lblGoodsName.InvokeRequired Then '商品名称
69
Dim d As New SetTextCallback(AddressOf SetLbl)
70
Me.Invoke(d, New Object() {[text]})
71
Else
72
Me.lblGoodsName.Text = arr(1).ToString
73
End If
74
If Me.lblOnePrice.InvokeRequired Then '单价
75
Dim d As New SetTextCallback(AddressOf SetLbl)
76
Me.Invoke(d, New Object() {[text]})
77
Else
78
Me.lblOnePrice.Text = Format(CDbl(arr(2).ToString), "0.00")
79
End If
80
If Me.lblOneQuant.InvokeRequired Then '数量
81
Dim d As New SetTextCallback(AddressOf SetLbl)
82
Me.Invoke(d, New Object() {[text]})
83
Else
84
Me.lblOneQuant.Text = arr(3).ToString
85
End If
86
If Me.lblOneAPrice.InvokeRequired Then '小计
87
Dim d As New SetTextCallback(AddressOf SetLbl)
88
Me.Invoke(d, New Object() {[text]})
89
Else
90
Me.lblOneAPrice.Text = arr(4).ToString
91
End If
92
If Me.lblOneZk.InvokeRequired Then '单品折扣
93
Dim d As New SetTextCallback(AddressOf SetLbl)
94
Me.Invoke(d, New Object() {[text]})
95
Else
96
Me.lblOneZk.Text = Format(CDbl(arr(5).ToString), "0.00")
97
End If
98
If Me.lblDJ.InvokeRequired Then '小票号
99
Dim d As New SetTextCallback(AddressOf SetLbl)
100
Me.Invoke(d, New Object() {[text]})
101
Else
102
Me.lblDJ.Text = arr(6).ToString
103
End If
104![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
105
If Me.lblQuant.InvokeRequired Then '总数量
106
Dim d As New SetTextCallback(AddressOf SetLbl)
107
Me.Invoke(d, New Object() {[text]})
108
Else
109
Me.lblQuant.Text = arr(7).ToString
110
End If
111![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
112
If Me.lblPrice.InvokeRequired Then '总价格
113
Dim d As New SetTextCallback(AddressOf SetLbl)
114
Me.Invoke(d, New Object() {[text]})
115
Else
116
Me.lblPrice.Text = Format(CDbl(arr(8).ToString), "0.00")
117
End If
118![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
119
If Me.lblZK.InvokeRequired Then '总折扣
120
Dim d As New SetTextCallback(AddressOf SetLbl)
121
Me.Invoke(d, New Object() {[text]})
122
Else
123
Me.lblZK.Text = Format(CDbl(arr(9).ToString), "0.00")
124
End If
125![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
126
'de.InvokeRequired Then
127
'Dim d As New SetTextCallback(AddressOf SetLbl)
128
'Me.Invoke(d, New Object() {[text]})
129
'Else
130
'Me.lblBarcode.Text = [text]
131
'End If
132
End Sub
133![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
134
End Class
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
2
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
13
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
14
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
15
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
16
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
17
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
18
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
19
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
20
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
21
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
22
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
23
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
24
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
25
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
26
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
27
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
28
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
29
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
30
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
31
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
32
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
33
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
34
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
35
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
36
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
37
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
38
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
39
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
40
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
41
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
42
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
43
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
44
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
45
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
46
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
47
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
48
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
![](https://www.cnblogs.com/Images/dot.gif)
49
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
50
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
51
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
52
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
53
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
54
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
55
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
56
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
57
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
58
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
59
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
60
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
61
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
62
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
63
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
64
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
65
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
66
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
67
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
68
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
69
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
70
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
71
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
72
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
73
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
74
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
75
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
76
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
77
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
78
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
79
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
80
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
81
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
82
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
83
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
84
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
85
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
86
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
87
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
88
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
89
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
90
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
91
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
92
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
93
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
94
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
95
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
96
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
97
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
98
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
99
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
100
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
101
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
102
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
103
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
104
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
105
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
106
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
107
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
108
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
109
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
110
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
111
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
112
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
113
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
114
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
115
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
116
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
117
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
118
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
119
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
120
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
121
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
122
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
123
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
124
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
125
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
126
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
127
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
128
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
129
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
130
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
131
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
132
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
133
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
134
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
1
Imports System.Net
2
Imports System.Threading
3
Imports System.Text
4
Imports System.Net.Sockets
5
Imports AD_GoodsInfo
6
Public Class Form1
7![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
8
''' <summary>
9
''' 取目标机端口
10
''' </summary>
11
''' <param name="myPort"></param>
12
''' <remarks></remarks>
13
Public Sub GetPort(ByRef myPort As Integer)
14
Dim xmlDoc As New Xml.XmlDocument()
15
xmlDoc.Load("sys.xml")
16
Dim nodeList As Xml.XmlNodeList = xmlDoc.SelectSingleNode("sys").ChildNodes
17
If Not nodeList.Item(0).Name Is Nothing Then '判断结点是否存在
18
myPort = CType(nodeList.Item(0).Item("Port").InnerText, Integer)
19
End If
20
End Sub
21
End Class
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
2
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
3
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
4
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
5
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
6
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedBlockStart.gif)
7
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
8
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
9
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
10
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
11
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
12
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
13
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
14
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
15
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
16
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
17
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
18
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
19
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
20
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
21
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedBlockEnd.gif)
1
'----------------------------发数据
2![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
3
Imports System.Net
4
Imports System.Threading
5
Imports System.Text
6
Imports System.Net.Sockets
7
Imports AD_GoodsInfo
8
Public Class Form1
9![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
10
Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
11
Dim info As String
12
Dim myIP As String = "" 'IP地址
13
Dim myPort As Integer '端口
14
info = Me.txtBarcode.Text.Trim() + "," _
15
+ Me.txtGoodsName.Text.Trim() + "," _
16
+ Me.txtOnePrice.Text.Trim() + "," _
17
+ Me.txtOneQuan.Text.Trim() + "," _
18
+ Me.txtOneAPrice.Text.Trim() + "," _
19
+ Me.txtOneZK.Text.Trim() + "," _
20
+ Me.txtDJ.Text.Trim() + "," _
21
+ Me.txtQuan.Text.Trim() + "," _
22
+ Me.txtPrice.Text.Trim() + "," _
23
+ Me.txtZK.Text.Trim()
24
Me.GetIpPort(myIP, myPort)
25![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
26
Dim s As SendMsg = New SendMsg()
27
s.SendData(info, myIP, myPort)
28![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
29
''' <summary>
30
''' 取目标机的IP,端口
31
''' </summary>
32
''' <param name="myIP"></param>
33
''' <param name="myPort"></param>
34
''' <remarks></remarks>
35
Public Sub GetIpPort(ByRef myIP As String, ByRef myPort As Integer)
36
Dim xmlDoc As New Xml.XmlDocument()
37
xmlDoc.Load("sys.xml")
38
Dim nodeList As Xml.XmlNodeList = xmlDoc.SelectSingleNode("sys").ChildNodes
39
If Not nodeList.Item(0).Name Is Nothing Then '判断结点是否存在
40
myIP = nodeList.Item(0).Item("IP").InnerText
41
myPort = CType(nodeList.Item(0).Item("Port").InnerText, Integer)
42
End If
43
End Sub
44
End Class
45![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
2
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
3
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
4
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
5
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
6
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
7
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
8
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedBlockStart.gif)
9
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
10
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
11
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
12
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
13
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
14
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
15
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
16
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
17
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
18
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
19
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
20
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
21
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
22
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
23
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
24
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
25
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
26
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
27
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
28
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
29
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
30
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
31
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
32
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
33
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
34
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
35
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
36
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
37
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
38
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
39
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
40
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
41
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
42
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
43
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
44
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedBlockEnd.gif)
45
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
1
Imports System.Net
2
Imports System.Net.Sockets
3
Imports System.Threading
4
Imports System.Text
5
Public Class SendMsg
6![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
7
''' <summary>
8
''' 发送数据
9
''' </summary>
10
''' <param name="sendInfo"></param>
11
''' <param name="myIP"></param>
12
''' <param name="myPort"></param>
13
''' <remarks></remarks>
14
Public Sub SendData(ByVal sendInfo As String, ByVal myIP As String, ByVal myPort As Integer)
15
Try
16
Dim dataSend() As Byte
17
Dim myUdpClient As UdpClient
18
myUdpClient = New UdpClient(myIP, myPort)
19
dataSend = System.Text.Encoding.Unicode.GetBytes(sendInfo)
20
myUdpClient.Send(dataSend, dataSend.Length)
21
myUdpClient.Close()
22
Catch ex As Exception
23
'发送异常处理
24
End Try
25
End Sub
26
End Class
27![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
2
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
3
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
4
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
5
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedBlockStart.gif)
6
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
7
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
8
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
9
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
10
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
11
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
12
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
13
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
14
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
15
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
16
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
17
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
18
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
19
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
20
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
21
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
22
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
23
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
24
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
25
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
26
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedBlockEnd.gif)
27
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
1
<?xml version="1.0" encoding="gb2312"?>
2
<sys>
3
<set>
4
<IP intro="目标机的IP">192.168.1.49</IP>
5
<Port intro="目标机端口号">34567</Port>
6
</set>
7
</sys>
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
2
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
3
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
4
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
5
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
6
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
7
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)