[VB/VBNet] Gestione USB

[pikachu77]

Ciao a tutti, avrei bisogno di gestire una porta USB in Visual basic Net o Visual basic 6, ma non saprei come? Sapreste darmi una dritta?? Poi approfondisco da solo... grazie...

[leadergl]

la cosa è un po complicata sia da spiegare che da implementare...
cmq ti dico che il tutto si gestisce con le API di Windows, queste:

Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function DeviceIoControl Lib "kernel32" (ByVal hDevice As Long, ByVal dwIoControlCode As Long, lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, ByVal nOutBufferSize As Long, lpBytesReturned As Long, lpOverlapped As OVERLAPPED) As Long
Private Declare Function ReadFile Lib "kernel32.dll" (ByVal hFile As Long, ByRef lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, ByRef lpNumberOfBytesRead As Long, ByRef lpOverlapped As OVERLAPPED) As Long
Private Declare Function WriteFile Lib "kernel32.dll" (ByVal hFile As Long, ByRef lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, ByRef lpNumberOfBytesWritten As Long, ByRef lpOverlapped As OVERLAPPED) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Queste sono le API per comunicare con una generica periferica..
Ora il tuo problema è identificare la periferica, ogni periferica ha un suo GUID tramite il quale possiamo ricavare l'handle alla periferica stessa.

Quindi quello che ti serve è il GUID della tua periferica USB, esempio:

"USB#Vid_22b8&Pid_3002#5&13e31e82&0&2#{2c7089aa-2e0e-11d1-b114-00c04fc2aae4}"

questa è la guid di una mia periferica USB, è una sorta di Link Simbolico alla nostra periferica.

Da questa GUID ricaviamo il "DeviceName" anteponendo "\\.\" alla GUID stessa, quindi: "\\.\\ & GUID = DeviceName.

Ora attraverso questa possiamo individuare la nostra periferica sull'USB e stabilire un collegamento con essa, otteniamo quindi l'Handle alla periferica in questo modo:

'Ricaviamoci il DeviceHandle
Public Function GetDeviceHandle(ByVal GuID As String) As Long
Dim DeviceName As String
Dim nFlags  As Long
Dim nShare As Long
Dim Sa As SECURITY_ATTRIBUTES

    nFlags = GENERIC_READ Or GENERIC_WRITE
    nShare = FILE_SHARE_READ Or FILE_SHARE_WRITE
    
    DeviceName = "\\.\" & GuID ' otteniamo il DeviceName attraverso la GUID
    
    GetDeviceHandle = CreateFile(DeviceName, nFlags, nShare, Sa, OPEN_EXISTING, 0, 0) ' otteniamo handle alla periferica con le API CreateFile

End Function

ovviamente ci sono dei parametri che non sto qui a spiegarti in quanto puoi trovare varie informazioni in internet...altrimenti qui nn la finiamo più!

Ora per inviare i nostri comandi alla periferica si usa la "DeviceIoControl" con i suoi parametri di cui trovi le varie dichiarazioni tramite l' "API Viewer" di VisualBasic...

cmq:

'Costanti delle WinAPI
Private Const OPEN_EXISTING = 3
Private Const GENERIC_READ = &H80000000
Private Const GENERIC_WRITE = &H40000000
Private Const FILE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2

'Attributi di Sicurezza per la comunicazione
Private Type SECURITY_ATTRIBUTES
    nLength                 As Long
    lpSecurityDescriptor    As Long
    bInheritHandle          As Long
End Type

'Gestisce la sincronia della comunicazione
Private Type OVERLAPPED
    Ternal      As Long
    TernalHigh  As Long
    Offset      As Long
    OffsetHigh  As Long
    hEvent      As Long
End Type

...ovvio che ci sarebbero tante altre cose da dire ma credo sia un buon punto di partenza....

P.S. queste nozioni funzionano bene su Visual Basic 6, in VB.Net varie cose cambiano...

[pikachu77]

Grazie mille... davvero molto gentile... mi hai dato davvero un bellissimo spunto... Adesso tocca a me e approfondire il tutto!!
Grazie ancora...