FORUM MP | Windev : WOL avec WIndDev 11

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Serv: irc.irc-land.org

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

WOL avec WIndDev 11
	Forum : WINDEV Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ WINDEV
		SUIVI PAR MAIL INACTIF
		SUJET NON RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGE : [1]

FORUM WINDEV
	Page précedente	Page suivante

remont
Nouveau membre

Inscrit : 30/01/2008
Messages : 9

#152569 Posté le 29/04/08 à 15:54

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

Merci d'avance.

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

igloo
Modérateur :
- Windev

Inscrit : 05/09/2004
Messages : 801

#152904 Posté le 10/05/08 à 11:13

Bonjour,

Avec des sockets de mémoire (il y a déjà eu un article / exemple dans une LST).
__________________________
Plus d'infos sur WinDev ?

HAUT DE PAGE

tontonpolak
Nouveau membre

Inscrit : 21/01/2007
Messages : 13

#153970 Posté le 06/06/08 à 21:25

Salut

Bien evidemment activer le WOL dans le bios

Made in Tontonpolak :

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
------------------------------------

Quoi tu veux récupéré l'adresse MAC par programation, tu es gourmand,
mais bon ok :

MonAdresseMac = EnvoiAdresseMAC("127.0.0.1",chaineDeRecuperationD'Erreur)
----------------------------------
Procedure EnvoiAdresseMAC(sIpEnv,sErrRenv)
eAdrIP est un entier = 0
eAdrMAC est un entier = 0
TblAdrMAC est un tableau fixe de 6 entiers sur 1 octet
NbAdrMAC est un entier = 0
eRet est un entier = 0
sAdrMACRenv est une chaîne = ""

eAdrIP = AppelDLL32("wsock32.dll", "inet_addr", &sIpEnv) //Converti l'Adresse IP en Entier
Multitâche()
SI eAdrIP <> 0 ALORS
NbAdrMAC = 6
SI PAS AppelDLL32("iphlpapi.dll", "SendARP", eAdrIP, 0, &eAdrMAC,&NbAdrMAC) ALORS //récupération de l'adresse MAC
Multitâche()
SI eAdrMAC <> 0 ET NbAdrMAC <> 0 ALORS
Transfert(&TblAdrMAC, &eAdrMAC, 6) //On transfert les composantes de l'Adresse MAC recupéré dans le Tableau

POUR z=1 A NbAdrMAC
Multitâche()
sAdrMACRenv += NumériqueVersChaîne(TblAdrMAC[z],"02X")+"-" //Converti chaque composante de l'Adresse MAC en Hexadecimal comme une Adresse MAC normale
FIN
sAdrMACRenv = Gauche(sAdrMACRenv, Taille(sAdrMACRenv)-1) //On vire le "-" Final
sErrRenv = ""
RENVOYER sAdrMACRenv
SINON
sErrRenv = "Aucune Adresse MAC n'a été trouvé pour l'IP : '"+sIpEnv+"' !!!"
RENVOYER ""
FIN
SINON
sErrRenv = "L'envoi de la requète ARP pour l'IP : '"+sIpEnv+"' n'a pas marcher !!!" + RC + "DLL : iphlpapi.dll / Fonction : SendARP"
RENVOYER ""
FIN
SINON
sErrRenv = "L'IP : '"+sIpEnv+"' n'a pas pu être Converti en Entier !!!" + RC + "DLL : wsock32.dll / Fonction : inet_addr"
RENVOYER ""
FIN

si tu n'y arrives pas avec ça, laisse tomber fais des crêpes...........

bye
__________________________
tontonpolak was here...

HAUT DE PAGE


	Page précédente	Page suivante
FORUM WINDEV

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.