Accueil > FAQ > WinDev API | FAQ |
Demandé et répondu par Drcharly93 le 13-Jun-2008 10:26 (10447 Lectures)
Savez vous comment programmer une fonction Wake On Lan avec windev ?
WakePC("L'adresse Mac du PC à allumer")
Source fournie par tontonpolak
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
|