Bonjour, suite à la nécessité de pouvoir identifier de manière unique chaque pocket ou smartphone, j'ai mis en place en windev mobile la fameuse fonction "GetDeviceUniqueID" issue de "coredll.dll".
Cette fonction ne nécessite pas d'être signée (celle fournie avec Windev Mobile 11 nécessite que les exe et dll soient signés) et fonctionne uniquement sous Windows Mobile 5.
Cependant sous certains forums, il est dit que cette fonction issue de windows mobile 5 ne fonctionne pas correctement et renvoie sur certaines séries, toujours le même code, quelquesoit l'exemplaire testé.
Afin de vérifier si cette fonction fonctionne ou non, il faudrait avoir le même modèle de Pocket ou smartphone en plusieurs exemplaires, ce que je n'ai pas.
Si certains d'entre vous pouvaient faire tourner cette fonction (exactement la même, c'est important, car en fonction du contenu de BufVarIn, le résultat change) et indiquer le résultat obtenu, nous pourrions savoir si cette fonction est fiable ou non et l'utiliser en lieu et place de celle de windev mobile 11 "SysNumSerie".
Merci de votre participation
--------------------------------------------
Procédure à utiliser (testé sous Windev Mobile 10)
-------------------------------------------
PROCEDURE GetDeviceID()
//sContenuChaine est une chaine
BufVarIn est un tableau fixe de 15 entiers sur 1 octet
nIcompt est entier
POUR nIcompt = 1 A 15
BufVarIn[nIcompt]=nIcompt
FIN
bufVarOut est un Buffer sur 5
VarOut est un entier sans signe sur 4 octets
VarOut = Taille(bufVarOut)
API("coredll.dll","GetDeviceUniqueID",&BufVarIn,15,1,&bufVarOut,&VarOut)
//sContenuChaine = ChaîneRécupère(&bufVarOut, crAdresseASCIIZ)
nSCar est un entier sans signe sur 1 octet
sVarResult est une chaîne
POUR nIcompt=1 A 5
nSCar = Droite(Gauche(bufVarOut,nIcompt),1)
sVarResult += NumériqueVersChaîne(nSCar,"X")
FIN
RENVOYER sVarResult
-------------------------------------------
Voici les résultats obtenus sur mes machines mobile 5
------------------------------
Pocket PC "HP iPAQ rx1950 version anglaise": 8CF4886E3E
Smartphone "QTEK 8500 version française": 9E6F9AC7F |