これでパケットを送信できます：
Public Class Form1
Dim publisher As New Sockets.UdpClient(0)
Dim subscriber As New Sockets.UdpClient(2000)
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
publisher.Connect(TBTo.Text, TBPort.Text)
Dim sendbytes() As Byte = ASCII.GetBytes("test")
publisher.Send(sendbytes, sendbytes.Length)
End Sub
End Class
それはうまく機能し、WireShark を使用すると、ポート 9 で UDP パケットが IP に送信されていることがわかります (アドレス/単語ボックスに入力します)。
WOL については理解しています (これは機能していますが、楽しみ/経験のために独自のアプリケーションを作成したいだけです)。MAC が必要です。これに「MAC アドレスを追加する」だけで WOL パケットになりますか、それともより複雑ですか?それ？
注: Wireshark で WOL と UDP パケットの違いを確認し、IP を「MYIP」に変更します。たとえば、以下は WOL アプリケーションから送信された WOL パケットです。
40.000203000 MYIP 192.168.1.1 WOL 144 MagicPacket for Micro-St_21:94:b6 (44:8a:5b:21:94:b6)
通常の UDP パケットとの比較:
69 12170.303276000 192.168.1.1 MYIP UDP 46 Source port: 57465 Destination port: 9
編集:私はいくつかの例で多くのことをしましたが、それらは最高ではありません.