16,554
社区成员
发帖
与我相关
我的任务
分享
Imports System.Net.Sockets
Imports System.Net
----------------------------------
'需要启动的电脑的网卡MAC地址
Dim macAddress() As Byte = {&H0, &HE1, &HFF, &H65, &H23, &H10} '修改成你的实际数据,在需要远程启动的电脑上用ipconfig /all 命令可以看到)
'拼装用于启动电脑的Magic Packet报文
Dim packet As New List(Of Byte)
'6个FF开头
For i As Integer = 1 To 6
packet.Add(&HFF)
Next
'MAC地址重复16遍
For i = 1 To 16
packet.AddRange(macAddress)
Next
'发送UDP广播报文
Dim client As New UdpClient
client.Connect(IPAddress.Broadcast, 7)
client.Send(packet.ToArray(), packet.Count)