La lectura de los datos de un bus serie universal (USB ) joystick o memoria USB es posible con Microsoft Visual Basic ( VB ) . Dado que los dispositivos USB son auto- identificación y plug- and-play , un sistema informático es capaz de reconocer fácilmente. Esto hace que escribir un pequeño fragmento de código VB para enviar un paquete y recuperar los datos del dispositivo USB fácil . El envío de un paquete al puerto es necesario, ya que detecta el estado del puerto y enviar los datos que se encuentran en el dispositivo USB. Si no hay conectado dispositivo USB en el puerto , se muestra un mensaje de error. Instrucciones
1

Abra un nuevo archivo de VB .
2

Ajuste la función SendPacket . Escriba el código en la parte superior de su archivo de VB :

Función SendPacket ( ByRef TxPacket Como PacketStructure ) Como PacketStructure

Dim lpResult As Long

RxPacket As PacketStructure

3

Configurar el receptor y el modelo de dispositivo mediante la inserción de este código en la quinta línea :

TxPacket.Recipient = 8

TxPacket.DeviceModel = 18
Página 4

llamar a la función SendPacket en el código VB . Escriba el código de abajo a partir de la novena línea :

Si 0 = DeviceIoControl ( hDevice , CTL_CODE_SEND_PACKET , TxPacket ,

8 + TxPacket.Length , RxPacket , 8 , lpResult , 0 ) Entonces < br > MsgBox

" función SendPacket fracasó. No se puede recuperar los datos del USB . "

Exit función

End If
5

volver a llamar los datos obtenidos con el función SendPacket . Coloca este código en la parte inferior de la secuencia de comandos VB :

SendPacket = RxPacket

End Function
6

Inserte su joystick USB en el puerto USB de la computadora < br . > Página 7

Compilar y ejecutar la secuencia de comandos VB . Los datos se recuperan en la memoria del programa, que se puede utilizar para otras soluciones y necesidades de programación.