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