Läsa data från en Universal Serial Bus ( USB ) joystick eller minne är möjligt med Microsoft Visual Basic ( VB ) . Eftersom USB-enheter är självidentifierande och plug - and- play -kompatibel , är ett datorsystem kan lätt känna igen dem . Detta gör att skriva en liten bit av VB -kod för att skicka ett paket och hämta data på USB-enheten lätt . Att skicka ett paket till hamnen är nödvändig , eftersom det kommer att upptäcka tillståndet i hamnen och skicka tillbaka alla data på USB -enheten . Om det inte finns någon USB- enhet ansluten till porten , då ett felmeddelande visas . Instruktioner
1
Öppna en ny VB fil .
2
Ställ SendPacket funktionen . Skriv den här koden längst upp i din VB -fil :
Funktion SendPacket ( ByRef TxPacket Som PacketStructure ) Som PacketStructure
Dim lpResult As Long
Dim RxPacket Som PacketStructure
3
Ställ mottagaren och enhetens modell genom att sätta in den här koden på den femte raden :
TxPacket.Recipient = 8
TxPacket.DeviceModel = 18
4
Ring SendPacket funktionen i VB-kod . Skriv nedanstående kod som börjar på nionde raden :
p Om 0 = DeviceIOControl ( hDevice , CTL_CODE_SEND_PACKET , TxPacket ,
8 + TxPacket.Length , RxPacket , 8 , lpResult , 0 ) Sen
MsgBox " SendPacket funktionen misslyckades . Kunde inte hämta USB-data . "
Exit Function
End If
5
Kalla tillbaka data som hämtas med SendPacket funktion. Placera koden längst ner i din VB script :
SendPacket = RxPacket
End Function
6
Sätt i USB- joystick i datorns USB- port
7
kompilera och exekvera din VB script . Data hämtas in i programmet minne , som du kan använda för andra programmeringsspråk lösningar och behov .
