Private Sub Command1_Click()
Dim WOL_WS As CMagicPacket
Set WOL_WS = New CMagicPacket
With WOL_WS
.WinsockControl = Winsock1
.NICAddress = "00-00-00-00-00-00"
.IPSubnetAddress = "192.000.000.0"
.IPSubnetMask = "555.355.355.0"
.WakeUp
End With
Set WOL_WS = Nothing
End Sub
'os dados acima são ficticios
'obtem-se através de um ipconfig /all