merhaba arkadaşım

Sub Main()
Dim objWol As ASOCKETLib.WOLClass = New ASOCKETLib.WOL()
Dim objConstants As Constants = New Constants()
Dim strMAC As String = "00-10-4B-BA-7A-51"
Console.WriteLine("WakeUp " & strMAC & " ...")
objWol.WakeUp(strMAC)
Console.WriteLine("Result: " & objWol.GetErrorDescription(objWol.LastError))
Console.WriteLine("Hazır.")
System.Threading.Thread.Sleep(5000)
End Sub

not: "00-10-4B-BA-7A-51" = açılacak bilgisayarın mac adresini giriniz.
not: açmak istediğin pc 'nin ethernet kartında WOL(wake on lan) özelliği olması gerekiyor.
çok pahalı birşey değil zaten 10-15 tl. civarındadır.