1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
|
nVendor_id est un entier = 0x1234
nProduct_id est un entier = 0x0001
bRet est un booléen = Faux
bCommunication_HID_Available est un booléen = Faux
bRes_Read est un booléen = Faux
bRes_Write est un booléen = Faux
bufDataWrite est un Buffer sur 64 octets
bufDataWrite[[1]] =0x01
nHandle_HID est un entier
DLL_HID_dispo est un booléen = Faux
hInst est un entier
hInst = ChargeDLL("mcHID.dll")
SI hInst = 0 ALORS
Erreur("Erreur lors du chargement")
SINON
DLL_HID_dispo = Vrai
Info("DLL chargée")
bRet = AppelDLL32("mcHID", "Connect", "Port_#0002.Hub_#0004")
Info("Résultat de la connexion : " + bRet)
bCommunication_HID_Available = AppelDLL32("mcHID", "IsAvailable", nVendor_id, nProduct_id)
SI bCommunication_HID_Available = Vrai ALORS
Info("HID OK")
nHandle_HID = AppelDLL32("mcHID", "GetHandle", nVendor_id, nProduct_id)
Info("Handle : " + nHandle_HID)
bRes_Write = AppelDLL32("mcHID", "Write", nHandle_HID, &bufDataWrite )
Info("Resultat de l'ecriture : " + bRes_Write)
SINON
Info("HID KO")
FIN
FIN
SI DLL_HID_dispo = Vrai ALORS
DéchargeDLL(hInst)
FIN |
Partager