|
La lecture des données d'un Universal Serial Bus (USB) de la manette ou clé USB est possible avec Microsoft Visual Basic (VB) . Depuis périphériques USB sont auto- identification et compatible plug- and-play, un système informatique est capable de reconnaître facilement. Cela rend l'écriture d'un petit morceau de code VB pour envoyer un paquet et récupérer des données sur le périphérique USB faciles. L'envoi d'un paquet vers le port est nécessaire, car il permet de détecter l'état du port et de renvoyer les données présentes sur le périphérique USB. S'il n'y a pas branché de périphérique USB dans le port , un message d'erreur s'affiche . Instructions
1 ouvrir un nouveau fichier VB .
2 Définir la fonction de sendPacket . Ecrivez ce code au début du fichier VB:
sendPacket de fonction ( ByRef TxPacket Comme PacketStructure ) Comme PacketStructure
Dim lpResult As Long
RxPacket As PacketStructure
3 Définir le destinataire et le modèle de l'appareil en insérant le code suivant sur la cinquième ligne :
TxPacket.Recipient = 8
TxPacket.DeviceModel = 18
Hôtels 4 appeler la fonction sendPacket dans le code VB . Ecrire le code ci-dessous à partir de la neuvième ligne :
Si 0 = DeviceIoControl ( hDevice , CTL_CODE_SEND_PACKET , TxPacket , AB 8 + TxPacket.Length , RxPacket , 8, lpResult , 0) puis < br > MsgBox " fonction sendPacket échoué. Impossible de récupérer des données USB. "
Exit Function End If
5 Rappeler les données récupérées avec l' fonction de sendPacket . Placez ce code au bas de votre script VB:
sendPacket = RxPacket
End Function
6 Insérez votre joystick USB dans le port USB de l'ordinateur < br . > Photos 7 compiler et exécuter votre script VB . Les données sont récupérées dans la mémoire du programme , que vous pouvez utiliser pour d'autres solutions et les besoins programmation.
|
