[Code] Wake On Lan

Private Sub cmdSend_Click()
    With wskUDP
        .Protocol = sckUDPProtocol
        .RemoteHost = “255.255.255.255″
        .RemotePort = 4000
    End With

    DataToSend = “FFFFFFFFFFFF”

    For i = 1 To 16
        DataToSend = DataToSend & txtMACAddress.Text
    Next i

    DataToSend = (HEX2ASCII(DataToSend))
    wskUDP.SendData DataToSend
    wskUDP.Close
End Sub

Private Sub Form_Load()
    txtMACAddress.Text = “001195613823″
End Sub

Function HEX2ASCII(ByVal sHEX As String) As String

    For j = 1 To Len(sHEX)
        HEX2ASCII = HEX2ASCII & Chr(Val(“&h” & Mid(sHEX, j, 2)))
        j = j + 1
    Next j

End Function

Keterangan :
txtMACAddress =TextBox
wskUDP = WinSock
cmdSend = CommandButton
“001195613823″=Merupakan nilai dari MAC Address

Syarat:
1. LAN
2. pada BIOS komputer mendukung Wake On Lan
3. Komputer belum pernah terputus pada jaringan listrik (komputer yang akan dinyalakan)

Advertisement