Ou je stock un code licence ?

la fonction NetAdresseMAC te renvoie quoi ?

 

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

Toute commande qui ne demande pas de droits spécifiques sont exécutables dans WD.
Allez, je te donne ça :

Code (Text):

PROCEDURE AdressesMAC()

nPos est un entier
sInfoCom est une chaîne
sCarte est une chaîne
sDescription est une chaîne
sRepTmp est une chaîne = fRepTemp()
sFichier est une chaîne = "FindIp.txt"
sCommande est une chaîne = "cmd /c ipconfig /all > " + sFichier
tabResultat est un tableau de chaînes

LanceAppli(sCommande, exeIconise, exeBloquant, sRepTmp)
sInfoCom = fChargeTexte(sRepTmp + sFichier)

sCarte = ExtraitChaîne(sInfoCom, rangPremier, "Carte")
TANTQUE sCarte <> EOT

   sDescription = ExtraitChaîne(sCarte, rangPremier, CR)
   TANTQUE sDescription <> EOT

       SELON Minuscule(ChaîneSupprime(ExtraitChaîne(sDescription, 1, ":"), [".", " "]))

           CAS "description"
               Ajoute(tabResultat, ExtraitChaîne(sDescription, 2, ":"))
               nPos++
             
           CAS "adressephysique"
               tabResultat[nPos] += ";" + SansEspace(ExtraitChaîne(sDescription, 2, ":"))
             
           CAS "netbiossurtcpip"
               tabResultat[nPos] += ";" + SansEspace(ExtraitChaîne(sDescription, 2, ":"))
             
           AUTRE CAS
       FIN
 
       sDescription = ExtraitChaîne(sCarte, rangSuivant, CR)
   FIN
   sCarte = ExtraitChaîne(sInfoCom, rangSuivant, "Carte")
FIN

RENVOYER tabResultat

Code (Text):

POUR TOUT sCarte DE AdressesMAC()
    Info(sCarte)
FIN

Edit :
J'ai supprimé les espaces sur l'adresse MAC et l'activation.

 

Pourquoi pas un fichier INI
en cryptant les infos suivants:
ADRESSE MAC de la machine + un identifiant
L'identifiant est unique à chaque ordinateur
Ensuite tu utilise les fonctions de gestion de la licence sous windev
Au démarrage de l'application il faut juste lire le fichier ini

NB: Crypter le contenu du fichier ini