Upload files to 'HID_Reader'
This commit is contained in:
141
HID_Reader/HID_info.bas
Normal file
141
HID_Reader/HID_info.bas
Normal file
@ -0,0 +1,141 @@
|
||||
Declare Function print_device_descriptor(descr as libusb_device_descriptor, suppress as UByte) as long
|
||||
Declare Function print_config_descriptor(D_config as libusb_config_descriptor ptr, suppress as UByte) as long
|
||||
Declare Function print_vendor_info(handle as libusb_device_handle ptr, descr as libusb_device_descriptor, suppress as UByte) as long
|
||||
Declare Function print_interface_descriptor(inter_desc as const libusb_interface_descriptor Ptr, suppress as UByte) as long
|
||||
Declare Function print_interface_info(handle as libusb_device_handle ptr, inter_descr as const libusb_interface_descriptor Ptr, suppress as UByte) as long
|
||||
Declare Function print_endpoint_descriptor(ep_desc as Const libusb_endpoint_descriptor Ptr, suppress as UByte) as long
|
||||
|
||||
Function print_device_descriptor(descr as libusb_device_descriptor, suppress as UByte) as long
|
||||
If (suppress = 0) then
|
||||
?
|
||||
? "******** device_descriptor ********"
|
||||
? "bLength "; descr.bLength
|
||||
? "bdescriptor type "; "0x"; Hex(descr.bDescriptorType, 2)
|
||||
? "bcdUSB "; "0x"; Hex(descr.bcdUSB, 4)
|
||||
? "bDeviceClass "; "0x"; Hex(descr.bDeviceClass, 4)
|
||||
? "bDeviceSubClass "; "0x"; Hex(descr.bDeviceSubClass, 2)
|
||||
? "bDeviceProtocol "; "0x"; Hex(descr.bDeviceProtocol, 2)
|
||||
? "bMaxPacketSize0 "; descr.bMaxPacketSize0
|
||||
? "idVendor "; "0x"; Hex(descr.idVendor, 4)
|
||||
? "idProduct "; "0x"; Hex(descr.idProduct, 4)
|
||||
? "bcdDevice "; "0x"; Hex(descr.bcdDevice, 4)
|
||||
? "iManufacturer "; descr.iManufacturer
|
||||
? "iProduct "; descr.iProduct
|
||||
? "iSerialNumber "; descr.iSerialNumber
|
||||
? "bNumConfigurations "; descr.bNumConfigurations
|
||||
?
|
||||
End If
|
||||
return 0
|
||||
End Function
|
||||
|
||||
Function print_config_descriptor(D_config as libusb_config_descriptor ptr, suppress as UByte) as long
|
||||
If (suppress = 0) then
|
||||
?
|
||||
? "******** config_descriptor ********"
|
||||
? "bLength: "; D_config->bLength
|
||||
? "bDescriptorType: "; D_config->bDescriptorType
|
||||
? "wTotalLength: "; D_config->wTotalLength
|
||||
? "bNumInterfaces: "; D_config->bNumInterfaces
|
||||
? "bConfigurationValue: "; D_config->bConfigurationValue
|
||||
? "iConfiguration: "; D_config->iConfiguration
|
||||
? "bmAttributes: "; D_config->bmAttributes
|
||||
? "MaxPower: "; D_config->MaxPower; "mA"
|
||||
?
|
||||
End If
|
||||
return 0
|
||||
End Function
|
||||
|
||||
Function print_interface_descriptor(inter_desc as const libusb_interface_descriptor Ptr, suppress as UByte) as long
|
||||
If (suppress = 0) then
|
||||
?
|
||||
? "******** interface_descriptor ********"
|
||||
? "bLength: "; inter_desc->bLength
|
||||
? "bDescriptorType: "; inter_desc->bDescriptorType
|
||||
? "bInterfaceNumber: "; inter_desc->bInterfaceNumber
|
||||
? "bAlternateSetting: "; inter_desc->bAlternateSetting
|
||||
? "bNumEndpoints: "; inter_desc->bNumEndpoints
|
||||
? "bInterfaceClass: "; inter_desc->bInterfaceClass
|
||||
? "bInterfaceSubClass: "; inter_desc->bInterfaceSubClass
|
||||
? "bInterfaceProtocol: "; inter_desc->bInterfaceProtocol
|
||||
? "iInterface: "; inter_desc->iInterface
|
||||
End If
|
||||
return 0
|
||||
End Function
|
||||
|
||||
Function print_endpoint_descriptor(ep_desc as Const libusb_endpoint_descriptor Ptr, suppress as UByte) as long
|
||||
If (suppress = 0) then
|
||||
?
|
||||
? "******** endpoint descriptor ********"
|
||||
? "bLength: "; ep_desc->bLength
|
||||
? "bDescriptorType: "; ep_desc->bDescriptorType
|
||||
? "bEndpointAddress: "; "0x"; Hex(ep_desc->bEndpointAddress)
|
||||
? "bmAttributes: "; ep_desc->bmAttributes
|
||||
? "wMaxPacketSize: "; ep_desc->wMaxPacketSize
|
||||
? "bInterval: "; ep_desc->bInterval
|
||||
? "bRefresh: "; ep_desc->bRefresh
|
||||
? "bSynchAddress: "; ep_desc->bSynchAddress
|
||||
End If
|
||||
return 0
|
||||
End Function
|
||||
|
||||
Function print_vendor_info(handle as libusb_device_handle ptr, descr as libusb_device_descriptor, suppress as UByte) as long
|
||||
dim as long returnvalue
|
||||
dim as ubyte device_info(64)
|
||||
If (suppress = 0) then
|
||||
|
||||
?
|
||||
? "******** Vendor information ********"
|
||||
|
||||
returnvalue = libusb_get_string_descriptor_ascii(handle, descr.iProduct, @device_info(0), 64)
|
||||
If returnvalue > 0 Then
|
||||
? "Product ";
|
||||
For i as integer = 0 to returnvalue - 1
|
||||
? chr(device_info(i));
|
||||
Next
|
||||
End If
|
||||
?
|
||||
|
||||
returnvalue = libusb_get_string_descriptor_ascii(handle, descr.iManufacturer, @device_info(0), 64)
|
||||
If returnvalue > 0 Then
|
||||
? "Manufacturer ";
|
||||
For i as integer = 0 to returnvalue - 1
|
||||
? chr(device_info(i));
|
||||
Next
|
||||
End If
|
||||
?
|
||||
|
||||
returnvalue = libusb_get_string_descriptor_ascii(handle, descr.iSerialNumber, @device_info(0), 64)
|
||||
If returnvalue > 0 Then
|
||||
? "SerialNumber ";
|
||||
For i as integer = 0 to returnvalue - 1
|
||||
? chr(device_info(i));
|
||||
Next
|
||||
End If
|
||||
?
|
||||
?
|
||||
End If
|
||||
return 0
|
||||
End Function
|
||||
|
||||
Function print_interface_info(handle as libusb_device_handle ptr, inter_descr as const libusb_interface_descriptor Ptr, suppress as UByte) as long
|
||||
dim as long returnvalue
|
||||
dim as ubyte device_info(64)
|
||||
|
||||
If (suppress = 0) then
|
||||
?
|
||||
? "******** Interface information ********"
|
||||
|
||||
returnvalue = libusb_get_string_descriptor_ascii(handle, inter_descr->iInterface, @device_info(0), 64)
|
||||
If returnvalue > 0 Then
|
||||
? "Interface ";
|
||||
For i as integer = 0 to returnvalue - 1
|
||||
? chr(device_info(i));
|
||||
Next
|
||||
Else
|
||||
? returnvalue
|
||||
End If
|
||||
?
|
||||
?
|
||||
End If
|
||||
return 0
|
||||
End Function
|
||||
Reference in New Issue
Block a user