Wake on lan (WOL) encender un ordenador remotamente via LAN
Posted: Wed Mar 05, 2008 9:55 pm
Bueno, pues investigando cosas "raras" me he empapuzado todo lo relacionado con el WAKE ON LAN (abreviadamente WOL).
Es la forma de encender ordenadores (mas bien modernos) remotamente mediante en envío de tramas UDP del protocolo WOL.
Si buscáis por internet teneis todos tipo de información.
Bueno aquí el código fuente (FWH82+xHarbour):
Es la forma de encender ordenadores (mas bien modernos) remotamente mediante en envío de tramas UDP del protocolo WOL.
Si buscáis por internet teneis todos tipo de información.
Bueno aquí el código fuente (FWH82+xHarbour):
Code: Select all
#include "FiveWin.Ch"
FUNCTION main()
public cIPhost:="192.168.1.10",; // IP de PC que envia las tramas LAN
cIPbroadcast:="192.168.1.255",; // Dir.Multicaste de la LAN
cMACwol:="00-40-63-dc-eb-d4",; // MAC del ordenador a encender
cBINwol:="",;
nPuertoWOL:=1792,; // Puerto protocolo WOL
pSocket:=0,nSentBytes:=0,cBuffer:=""
cBINwol:=PasaBin(cMACwol)
cBuffer:=replicate(chr(255),6)+replicate(cBINwol,16)
INetInit()
pSocket:=InetDGram(.T.)
nSentBytes:=INetDGramSend(pSocket,cIPbroadcast,nPuertoWOL,cBuffer,len(cBuffer))
INetClose(pSocket)
INetCleanup()
return nil
function PasaBin(cTexto)
local cBin,i
cBin:=""
for i=1 to len(cTexto) step 3
cBin:=cBin+chr(HexToDec(substr(cTexto,I,2)))
next i
return(cBin)