module2.bas

一个用vb和usb通信的一个实例,大家可以下载看看!

Attribute VB_Name = "Module2"
Option Explicit

Global PlayT As Boolean
Global lngW As Long, lngH As Long
Global TipTrue As Boolean, CloseT As Boolean
Global MyFile(20) As String, i As Integer
'Declare Function SystemParametersInfo& Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long)
Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal Cx As Long, ByVal Cy As Long, ByVal wFlags As Long) As Long


Public Const SPI_SCREENSAVERRUNNING& = 97
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Public Const DRIVE_CDROM = 5

Public Const MMSYSERR_NOERROR = 0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_PURGE = &H40
Public Const SND_FILENAME = &H20000
Global MyVolume As clsVolume

Public Function FirstCDDrive() As String

 Const ASC_A = 65
 Const ASC_Z = ASC_A + 25

 Dim i As Integer

    For i = ASC_A To ASC_Z
        If GetDriveType(Chr$(i) & ":\") = DRIVE_CDROM Then
            FirstCDDrive = Chr$(i)
            Exit For
        End If
    Next i
    
End Function

Public Sub OpenCDDoor()
    mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&
End Sub

Public Sub CloseCDDoor()
  mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0&
End Sub