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
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.