Ciao a tutti, guardando in giro ho trovato alcune info che appositamente modificate funzionano al 95%
Questo è il codice, l'unico problema è che il ciclo si blocca alla prima periferica USB che trova, io invece vorrei che la funzione scansionasse TUTTE le periferiche usb collegate al pc e quando trova quella con la condizione da me stabilità esegua l'istruzione di mio interesse.
Vi posto il codice incriminato:
Private Sub ControlloChiaveProtezione()
Dim Drive As IO.DriveInfo
Dim ChiaveUSB As String
Dim usb As New USB_Serial2
Dim ans As String
For Each Drive In My.Computer.FileSystem.Drives
If Drive.DriveType = IO.DriveType.Removable Then
ChiaveUSB = (Drive.Name.TrimEnd("\"c))
Try
ans = usb.GetSerialNumber(ChiaveUSB)
If ChiaveUSB <> "" And ans = "0025669878PIUY89" Then
MsgBox("TROVATA !!")
Else
End (ed è qui dove sta l'errore, perchè in questo momento ha controllato SOLO la prima periferica usb)
End If
Catch ex As Exception
MsgBox("Chiave di protezione non trovata.")
End
End Try
Else
End If
Next
If Drive.DriveType = IO.DriveType.Removable = False Then
MsgBox("Errore chiave di protezione !!")
End
End If
End Sub