VB.NET 2008 UDP 收发 简例

90999

网上VB.NET 的UDP 收发写得神烦神烦的，自己搞个。

1. 
   
2. Imports System.Net
   
3. Imports System.Text
   
4. 
   
5. Public Class Form1
   
6. 
   
7. 
   
8. 
   
9.     Dim ws3 As New Net.Sockets.UdpClient                ‘此处可以不设定端口   WS3只作为SEND 口使用
   
10.     Dim ws4 As New Net.Sockets.UdpClient(19730) '本地接收端口                WS4只作为GET口使用
    
11. 
    
12. 
    
13.     Private Sub Form1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Leave
    
14. 
    
15.         ws3.Close()
    
16.         ws4.Close()
    
17.         tck.Stop()
    
18. 
    
19.     End Sub
    
20. 
    
21.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
22. 
    
23.         ws3.Connect("255.255.255.255", 5678)    '指定发送目标IP及端口  255.255.255.255 是广播用IP
    
24. 
    
25. 
    
26.         tck.Interval = 10                         '刷新接收口速度 10ms收一次
    
27.         tck.Start()
    
28. 
    
29.     End Sub
    
30. 
    
31. 
    
32.     Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click    '发送
    
33. 
    
34. 
    
35.         Dim aa As [Byte]()
    
36. 
    
37.         aa = Encoding.ASCII.GetBytes(DateAndTime.Now.Second * 1000 + DateAndTime.Now.Millisecond)
    
38. 
    
39.         ws3.Send(aa, aa.Length)
    
40. 
    
41. 
    
42.         '   T1.Text = ""
    
43. 
    
44. 
    
45.     End Sub
    
46. 
    
47. 
    
48. 
    
49. 
    
50.         ’在FORM1里放置一个名为TCK的TIMER控件，周期性读取数据，也可以必须单独新开一个线程。
    
51. 
    
52.     Private Sub tck_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tck.Tick  '接收
    
53. 
    
54.         Dim aa As String
    
55.         Dim ip As New IPEndPoint(IPAddress.Any, 0)  '指定监听目标IP
    
56. 
    
57. 
    
58.         If ws4.Available Then                ‘收到数据包长度大于0
    
59. 
    
60.             While ws4.Available                 '把库存取干净
    
61. 
    
62. 
    
63.                 aa = Encoding.ASCII.GetString(ws4.Receive(ip)) ' 一次只取1组包
    
64. 
    
65. 
    
66.                 T1.Text = T1.Text & " 内容 " & aa & " 长度 " & aa.Length & vbCrLf                ’文本框内容
    
67. 
    
68.             End While
    
69. 
    
70.         End If
    
71. 
    
72. 
    
73.     End Sub
    
74. End Class
    
75. 
    

复制代码

th1993

楼主好人

yongke

已收藏，非常感谢！