1 Ανοίξτε ένα νέο αρχείο VB . 2
Ρυθμίστε τη λειτουργία SendPacket . Γράψτε τον κωδικό αυτό στην κορυφή του αρχείου VB σας :
SendPacket Λειτουργία ( ByRef TxPacket Όπως PacketStructure ) Όπως PacketStructure
Dim lpResult Όπως Long
Dim RxPacket Όπως PacketStructure
Η
3 Ρυθμίστε τον παραλήπτη και το μοντέλο της συσκευής εισάγοντας τον κωδικό αυτό στην πέμπτη γραμμή :
TxPacket.Recipient = 8
TxPacket.DeviceModel = 18
Φτηνές 4
Καλέστε τη λειτουργία SendPacket στον κώδικα VB . Γράψτε τον παρακάτω κώδικα αρχής γενομένης από την ένατη γραμμή :
Αν 0 = DeviceIoControl ( hDevice , CTL_CODE_SEND_PACKET , TxPacket , πώληση
8 + TxPacket.Length , RxPacket , 8 , lpResult , 0 ) Στη συνέχεια,
MsgBox " SendPacket λειτουργία απέτυχε . δεν είναι δυνατή η ανάκτηση δεδομένων USB . "
λειτουργία Έξοδος
End If
5
Τηλεφωνική τα δεδομένα που έχουν ανακτηθεί με την SendPacket λειτουργία . Τοποθετήστε αυτόν τον κώδικα στο κάτω μέρος του σεναρίου VB σας : .
SendPacket = RxPacket
End Function
Η
6 Τοποθετήστε το USB Joystick σας στη θύρα USB του υπολογιστή
Σελίδα 7
μεταγλώττισης και να εκτελέσει το σενάριο VB σας . Τα δεδομένα ανακτώνται στη μνήμη του προγράμματος , το οποίο μπορείτε να χρησιμοποιήσετε για άλλες λύσεις και τις ανάγκες του προγραμματισμού .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα