استفسار عن التحكم فى منفذ USB

و أنا أيضا أحتاج لهذا الكود فأرجو المساعدة

بسم الله الرحمن الرحيم

هذا الكود يمكنك من استقبال بيانات من منفذ USB

Private Sub Command1_Click()
End
End Sub

Private Sub SysInfo1_DeviceArrival(ByVal devicetype As Long, ByVal deviceid As Long, ByVal devicename As String, ByVal devicedata As Long)


    If devicetype <> 2 Or devicedata <> 0 Then Exit Sub
   Dim d, s
    s = s & "Connection du périphérique !" & vbCrLf
    s = s & "DeviceID :" & vbTab & GetLettre(deviceid) & ":\" & vbCrLf  '
 Set d = CreateObject("Scripting.FileSystemObject").GetDrive(CreateObject("Scripting.FileSystemObject").GetDriveName(CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(GetLettre(deviceid) & ":")))
     s = s & "N_Volume :" & vbTab & d.VolumeName & vbCrLf
    s = s & "Taille totale : " & vbTab & FormatNumber(d.TotalSize / 1024, 0) & " Kilo-octets" & vbCrLf
    s = s & "Disponible : " & vbTab & FormatNumber(d.AvailableSpace / 1024, 0) & " Kilo-octets"
    
    Text1.Text = s
   
End Sub

Private Sub SysInfo1_DeviceRemoveComplete(ByVal devicetype As Long, ByVal deviceid As Long, ByVal devicename As String, ByVal devicedata As Long)
 If devicetype <> 2 Or devicedata <> 0 Then Exit Sub
Text1.Text = "Déconnection du périphérique !" & vbCrLf
   Text1.Text = Text1.Text & "DeviceID :" & vbTab & GetLettre(deviceid) & ":\" & vbCrLf

End Sub

Private Function GetLettre(devL_id As Long) As String
    drives = 1
        For i = 0 To 25
            If drives = devL_id Then
                GetLettre = Chr(i + 65)
                Exit Function
            End If
        drives = drives * 2
        Next i
End Function

وهذا المثال

الف شكر يا اخى وجارى التجريب ............

اقتباس

الف شكر يا اخى وجارى التجريب

شكرا لك جرب البرنامج و اذا احتجت اى استفسار عن usb انا تحت امرك.

سارفق برنامج آخر لجلب جميع المعلومات عن الاجهزة المرتبطة بالجهاز فى منفذ usb

بعد اتمامه ان شاء الله