Détection insertion périphérique USB
Je cherche à détecter automatiquement l'insertion d'un périphérique USB en Visual Basic 8.
Sur la toile en faisant des rechercher, j'ai trouvé différent code de ce type avec l'utilisation de sysinfo
Code:
1
2
3
4
5
6
7
8
9
10
11
| Private Sub SysInfo1_DeviceArrival(ByVal DeviceType As Long, _
ByVal DeviceID As Long, _
ByVal DeviceName As String, _
ByVal DeviceData As Long)
MsgBox("DeviceType : " & DeviceType & vbCrLf & _
"DeviceID : " & DeviceID & vbCrLf & _
"DeviceName : " & DeviceName & vbCrLf & _
"DeviceData : " & DeviceData)
End Sub
SysInfo1_DeviceArrival(DeviceType, deviceID, DeviceName, devicedata) |
En vb6 il n'y a pas de probleme, mais pour vb8 je pense sysinfo n'est plu utilisé ? Par quoi le remplacer
