Sub Process_Globals
Private usbserial As felUsbSerial
Private manager As UsbManager
...
Sub Service_Create
manager.Initialize
GetUsb
...
Sub GetUsb
' Pas de USb ?
If manager.GetDevices.Length = 0 Then
ToastMessageShow("Please connect usb device and try again.", True)
Else
' Pas autorisation USB
Dim device As UsbDevice
For i=0 To manager.GetDevices.Length-1
device = manager.GetDevices(i)
' ToastMessageShow(i & " : " & device.VendorId & " - " & device.ProductId, True)
' If device.VendorId = 5840 And device.ProductId = 1875 Then ' Digispark 16d0=5840 et 0753=1875
If device.VendorId = 5840 And device.ProductId = 2174 Then ' Digispark 16d0=5840 et 087E=2174
If manager.HasPermission(device) = False Then
ToastMessageShow("Please allow connection and try again.", True)
manager.RequestPermission(device)
Else
UsbOk = True
usbserial.Initialize2("serial", device, -1, "CDCSerialDevice")
End If
End If
Exit
Next
End If
End Sub