Læsning af data fra en Universal Serial Bus ( USB) joystick eller tommelfinger drev er muligt med Microsoft Visual Basic ( VB) . Da USB-enheder er selv- identificering og plug -and- play kompatibel, et edb-system er i stand til nemt at genkende dem . Dette gør at skrive et lille stykke VB kode til at sende en pakke og hente data på USB-enheden let. At sende en pakke til havnen er nødvendig , da det vil afsløre tilstanden af ​​havnen og sende tilbage alle data fundet på USB-enheden. Hvis der ikke er nogen USB-enhed sluttet til porten , så en fejlmeddelelse vises . Instruktioner
1

Åbn en ny VB -fil.
2

Indstil SendPacket funktion. Skriv denne kode i toppen af ​​din VB fil : Hej

Function SendPacket ( ByRef TxPacket Som PacketStructure ) Som PacketStructure

Dim lpResult As Long

Dim RxPacket Som PacketStructure

3

Indstil modtageren og enhedens model ved at indsætte denne kode på den femte linie : Hej

TxPacket.Recipient = 8

TxPacket.DeviceModel = 18

4

Kald SendPacket funktionen i VB kode . Skriv nedenstående kode begyndende på den niende linje : Hej p Hvis 0 = DeviceIOControl ( hDevice , CTL_CODE_SEND_PACKET , TxPacket , Amerikas

8 + TxPacket.Length , RxPacket , 8, lpResult , 0) Så < br >

MsgBox " SendPacket funktionen mislykkedes. Kan ikke hente data via USB . "

Exit Function

End If
5

Ring tilbage data hentet med SendPacket funktion . Placer denne kode nederst på din VB script : Hej

SendPacket = RxPacket

End Function
6

Sæt din USB joystick i computerens USB-port < br . >
7

Kompiler og udføre din VB script. Data hentes ind i programmet hukommelse , som du kan bruge til andre programmeringssprog løsninger og behov.