Savez vous comment programmer une fonction Wake On Lan avec windev ?

Demandé et répondu par Drcharly93 le 13-Jun-2008 10:26

Savez vous comment programmer une fonction Wake On Lan avec windev ?

WakePC("L'adresse Mac du PC à allumer")

PROCEDURE hexa2ascii(texteHexa)
TexteASCII est une chaîne = ""
num est une chaîne = ""
ind est un entier
POUR ind = 1 A Taille(texteHexa)
  num = Milieu(texteHexa, ind, 2)
  TexteASCII = TexteASCII + Caract(Val(num,"x"))
  ind++
FIN
RENVOYER TexteASCII

PROCEDURE WakePC(sAdrMACEnv)
Data est une chaîne
Data = "FFFFFFFFFFFF"
ind est un entier
POUR ind = 1 A 16
  Data = Data + sAdrMACEnv
FIN

Data = Data + hexa2ascii(Data)

MonObjWinSock est une objet Automation dynamique
MonObjWinSock = allouer un objet Automation "MSWinsock.winsock"
MonObjWinSock>>Protocol("1") //0 Tcp; 1 UDP
MonObjWinSock>>RemoteHost ("255.255.255.255") //Ton masque de sous reseau
MonObjWinSock>>RemotePort("7") //N° Port par defaut 9
MonObjWinSock>>LocalPort("2154")
MonObjWinSock>>SendData(Caract(34)+Data+Caract(34))
libérer MonObjWinSock


Source fournie par tontonpolak

Cette Q&R a été trouvée sur WDForge.org : http://old.wdforge.org/modules/smartfaq/faq.php?faqid=282