01.Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
02.
03.
04.
05. Dim dataSend((17 * 6) - 1) As Byte
06. Dim macAddr(5) As Byte
07. Dim s() As String = Split(TextBox1.Text, "-")
08. For i As Integer = 0 To 5
09. dataSend(i) = &HFF
10. macAddr(i) = Convert.ToByte(s(i), 16)
11. Next
12. For i = 1 To 16
13. Array.Copy(macAddr, 0, dataSend, i * 6, 6)
14. Next
15.
16. Dim myUdpClient As UdpClient
17. myUdpClient = New UdpClient("192.168.2.255", 40311)
18. myUdpClient.Send(dataSend, dataSend.Length)
19. myUdpClient.Close()
20. End Sub
