home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / device_inf2048792192007.psc / modDevInfo.bas < prev   
BASIC Source File  |  2007-02-18  |  4KB  |  73 lines
  1. Attribute VB_Name = "modDevInfo"
  2. Option Explicit
  3.  
  4. ' advanced information about devices
  5.  
  6. Private Declare Sub CpyMem Lib "kernel32" _
  7. Alias "RtlMoveMemory" ( _
  8.     pDst As Any, pSrc As Any, ByVal cb As Long _
  9. )
  10.  
  11. Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" ( _
  12.     lpString1 As Any, lpString2 As Any _
  13. ) As Long
  14.  
  15. Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" ( _
  16.     lpString As Any _
  17. ) As Long
  18.  
  19. Private Declare Function CreateFile Lib "kernel32.dll" _
  20. Alias "CreateFileA" ( _
  21.     ByVal lpFileName As String, ByVal dwDesiredAccess As Long, _
  22.     ByVal dwShareMode As Long, lpSecurityAttributes As Any, _
  23.     ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, _
  24.     ByVal hTemplateFile As Long _
  25. ) As Long
  26.  
  27. Private Declare Function DeviceIoControl Lib "kernel32" ( _
  28.     ByVal hDevice As Long, ByVal dwIoControlCode As Long, _
  29.     lpInBuffer As Any, ByVal nInBufferSize As Long, _
  30.     lpOutBuffer As Any, ByVal nOutBufferSize As Long, _
  31.     lpBytesReturned As Long, lpOverlapped As Any _
  32. ) As Long
  33.  
  34. Private Declare Function CloseHandle Lib "kernel32" ( _
  35.     ByVal hObject As Long _
  36. ) As Long
  37.  
  38. Private Const OPEN_EXISTING                 As Long = 3&
  39. Private Const FILE_SHARE_READ               As Long = &H1&
  40. Private Const FILE_SHARE_WRITE              As Long = &H2&
  41. Private Const GENERIC_READ                  As Long = &H80000000
  42. Private Const IOCTL_STORAGE_QUERY_PROPERTY  As Long = &H2D1400
  43.  
  44. Private Type STORAGE_PROPERTY_QUERY
  45.     PropertyId                              As STORAGE_PROPERTY_ID
  46.     QueryType                               As STORAGE_QUERY_TYPE
  47.     AdditionalParameters                    As Byte
  48. End Type
  49.  
  50. Public Type DEVICE_INFORMATION
  51.     Valid                                   As Boolean
  52.     BusType                                 As STORAGE_BUS_TYPE
  53.     Removable                               As Boolean
  54.     VendorID                                As String
  55.     ProductID                               As String
  56.     ProductRevision                         As String
  57. End Type
  58.  
  59. Private Type STORAGE_DEVICE_DESCRIPTOR
  60.     Version                                 As Long
  61.     Size                                    As Long
  62.     DeviceType                              As Byte
  63.     DeviceTypeModifier                      As Byte
  64.     RemovableMedia                          As Byte
  65.     CommandQueueing                         As Byte
  66.     VendorIdOffsetQueueing                 iceType_ertyId                  Pp'Cs Byte
  67.     VendorIdOfe_ertyId                  Pp'Cs Byte   cVersRpSia      oi                       As Long
  68.     Size                             As StrafTg                       ttO "RDaf  Size                  d    Size                    Any, lpString2 As IString2 As InzorDIoaf  Size         VendaSa(DString2 As InzorDIoaf  Size   af  Size        f  Size    SizePRei Dy     DVDcInzorDIoaf  Sid      d    Size                Naf  MD   ByVaGs)DtrfTgpr      r     d    Si. By NNNNNNNNNNNNNNNNNNNNNNNNN&=gpr      r     d  p(ev,NNNS _      iasgprrrrrrrrra lOFklbtvle
  69.     VendoFklbtvle
  70.             uUp(orDIoaf  Size    c     d    S Size            ersion                          r=b d    Si. By NNNNNNNNNNNNNNNNNNNNNNeclareEc(eMMMMMMMMMMR
  71. areEc(eM Typ     AnyuR
  72. areEcuVDcIi   VendoFk(bCng2 As InzorDIoaf  Size   afrSAInzonzorDIoaf CoPD" ( _ueueing                         yVaw Dy ( r=b d  mVal dwShai Funn=ASa9I  yVaw Dy ( r=8sueueingl dwS
  73. )PGD" ( _uSingIoibG=ASa9I  yVaw Dyy ( r=a0eo_M( r=8C