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):
#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)Mi abuelo dec铆a: Los aviones vuelan porque Dios quiere, y los helic贸pteros ni Dios sabe porque vuelan.
FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
