Foro de elhacker.net

This document's purpose is to explain the API for libusb-win32 and how to use it to make a USB aware application. Any suggestions, corrections and comments regarding this document can be sent to the libusb-win32 developers mailing list.

Private Sub Form_Activate()
    UsbInit
    UsbSetDebug (255)
    
End Sub

Private Sub Command2_Click()
Dim my_handle
                      my_handle = UsbOpen(0, &HD55, &H20)
                      If my_handle = 0 Then MsgBox " No such device "
                      Text1 = my_handle
End Sub

Private Sub Command3_Click()
UsbBulkWrite my_handle, 1, 10, 512, 5000

Private Sub Command3_Click()
UsbBulkWrite UsbOpen(0, &HD55, &H20), 1, 10, 512, 5000

Before any communication can occur with a device, it needs to be found. This is accomplished by finding all of the busses and then finding all of the devices on all of the busses:

struct usb_bus *busses;
usb_init();
usb_find_busses();
usb_find_devices();
busses = usb_get_busses();

After this, the application should manually loop through all of the busess and all of the devices and matching the device by whatever criteria is needed:

Must be called!: usb_claim_interface must be called before you perform any operations related to this interface (like usb_set_altinterface, usb_bulk_write, etc).