VB6.0与USB通信时，如果获取USB的插入或者拔出消息呀

2012-12-30

VB6.0与USB通讯时，如果获取USB的插入或者拔出消息呀？VB6.0与USB通讯时，如果获取USB的插入或者拔出消息呀？

VB6.0与USB通讯时，如果获取USB的插入或者拔出消息呀？
VB6.0与USB通讯时，如果获取USB的插入或者拔出消息呀？知道的麻烦提示一下，谢谢啦。
[解决办法]

Private Type DEV_BROADCAST_HDR
    dbch_size           As Long
    dbch_devicetype     As Long
    dbch_reserved       As Long
End Type

Private Type DEV_BROADCAST_VOLUME
    DBCV_Size           As Long
    DBCV_DeviceType     As Long
    DBCV_Reserved       As Long
    DBCV_UnitMask       As Long
    DBCV_Flags          As Integer
End Type

Public Type AUTO_RUN
    Flags As String
End Type

Private Declare Function CallWindowProc Lib "user32" _
    Alias "CallWindowProcA" _
   (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, _
     ByVal Msg As Long, ByVal wParam As Long, _
     ByVal lParam As Long) As Long

Private Declare Function SetWindowLong Lib "user32" _
   Alias "SetWindowLongA" _
  (ByVal hWnd As Long, ByVal nIndex As Long, _
   ByVal wNewWord As Long) As Long

Private Const GWL_WNDPROC                As Long = (-4)
Private Const DBT_DEVICEARRIVAL          As Long = 32768
Private Const DBT_DEVICEREMOVECOMPLETE   As Long = 32772
Private Const DBT_DEVTYP_VOLUME          As Long = &H2
Public Const WM_CLOSE                   As Long = &H10
Private Const WM_DEVICECHANGE            As Long = &H219

Public DeviceCallBack  As Long

Public Sub StartUSBWatch(ByVal hWnd As Long)
    DeviceCallBack = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf OnDeviceChange)
End Sub

Public Sub StopUSBWatch(ByVal hWnd As Long)
    DeviceCallBack = SetWindowLong(hWnd, GWL_WNDPROC, DeviceCallBack)
End Sub

Public Function OnDeviceChange(ByVal hWnd As Long, _
    ByVal Msg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Long) As Long

    If Msg = WM_DEVICECHANGE Then
        If wParam = DBT_DEVICEARRIVAL Or wParam = DBT_DEVICEREMOVECOMPLETE Then

            '在这里写打开设备以及判断、处理代码
        End If
    End If
    OnDeviceChange = CallWindowProc(DeviceCallBack, hWnd, Msg, wParam, lParam)
End Function

建一个标准模块

在 Form_Load 事件中调用
StartUSBWatch Me.hWnd

在 Form_Unload 事件中调用
StopUSBWatch Me.hWnd

注意：启动监视后，调试运行会无法访问源码窗口，例如断点，只能用热键。
[解决办法]
按说明拷贝下面代码到新的工程，拿个U盘插拔测试

一切正常!
'===========标准模块============
Option Explicit

Type GUID
  Data1 As Long
  Data2 As Integer
  Data3 As Integer
  Data4(7) As Byte
End Type '固定常数

Type DEV_BROADCAST_DEVICEINTERFACE
  dbcc_size As Long
  dbcc_devicetype As Long
  dbcc_reserved As Long
  dbcc_classguid As GUID
  dbcc_name As Long
End Type '规定的常数

Type DEV_BROADCAST_VOLUME
  dbcv_size As Long
  dbcv_devicetype As Long
  dbcv_reserved As Long
  dbcv_unitmask As Long
  dbcv_flags As Integer
End Type '规定的常数

Public Const GWL_WNDPROC = -4
Const DEVICE_NOTIFY_WINDOW_HANDLE = 0
Const WM_DEVICECHANGE = &H219&
Const DBT_DEVTYP_DEVICEINTERFACE = &H5&
Const DBT_DEVTYP_VOLUME = &H2&
Const DBT_DEVICEARRIVAL = &H8000&
Const DBT_DEVICEREMOVECOMPLETE = &H8004&
Const DRIVE_REMOVABLE = 2
Const DRIVE_NO_ROOT_DIR = 1

Public Declare Function SetWindowLongA Lib "User32.dll " (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function CallWindowProcA Lib "User32.dll " (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function RegisterDeviceNotificationA Lib "User32.dll " (ByVal hRecipient As Long, NotificationFilter As Any, ByVal Flags As Long) As Long
Declare Function UnregisterDeviceNotification Lib "User32.dll " (ByVal Handle As Long) As Long
Declare Sub RtlMoveMemory Lib "kernel32 " (Destination As Any, Source As Any, ByVal Length As Long)

Private m_hwnd As Long
Private m_lpPrevWndProc As Long
Private m_hDevNotify As Long

Public lpPrev As Long

'Public Sub RegDevNotify(ByVal hwnd As Long) '注册钩子
' Dim dbcc As DEV_BROADCAST_DEVICEINTERFACE
' If m_lpPrevWndProc = 0 Then
' m_hwnd = hwnd
' m_lpPrevWndProc = SetWindowLongA(m_hwnd, GWL_WNDPROC, AddressOf WndProc)
' dbcc.dbcc_size = Len(dbcc)
' dbcc.dbcc_devicetype = DBT_DEVTYP_DEVICEINTERFACE

' m_hDevNotify = RegisterDeviceNotificationA(hwnd, dbcc, DEVICE_NOTIFY_WINDOW_HANDLE)
' End If
'End Sub
'
'Public Sub UnregDevNotify() '解除钩子
' If m_lpPrevWndProc Then
' UnregisterDeviceNotification m_hDevNotify
' SetWindowLongA m_hwnd, GWL_WNDPROC, m_lpPrevWndProc
' m_lpPrevWndProc = 0
' End If
'End Sub

Public Function WndProc(ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long '消息拦截当有消息时候会在这里出现
  If msg = WM_DEVICECHANGE Then '当消息是磁盘发生改变
  Debug.Print msg '打印变量值[/color]
  Debug.Print wParam '打印变量值[/color]
  Debug.Print lParam '打印变量值[/color]
' If wParam = DBT_DEVICEARRIVAL Or wParam = DBT_DEVICEREMOVECOMPLETE Then '当标志是插入一个磁盘或者移动完成
' MsgBox ("USB Changed !!")
' End If
  End If
  WndProc = CallWindowProcA(lpPrev, hwnd, msg, wParam, lParam) '返回消息给系统否则系统所有消息都被拦截你的电脑几乎就是废了关机都不行
End Function

''===============调用==============
'Sub Form_Load()
' RegDevNotify Me.hwnd '向系统注册一个拦截优盘状态的钩子
'End Sub
'
'Sub Form_Unload(Cancel As Integer)
' UnregDevNotify '解除钩子
'End Sub

'窗口代码
Option Explicit

Private Sub Form_Load()
  lpPrev = SetWindowLongA(hwnd, GWL_WNDPROC, AddressOf WndProc)
End Sub

Private Sub Form_Unload(Cancel As Integer)
  If lpPrev <> 0 Then
  lpPrev = SetWindowLongA(hwnd, GWL_WNDPROC, lpPrev)
  lpPrev = 0
  End If
End Sub

[解决办法]

引用:

哦，忘了说一点了，我的设备是MimiUSB_B,是5pin的，不知道这是否有影响。。。。

你的usb怎么会有5根线？usb都是4跟线的
没有返回拔出消息，估计和你的驱动程序有关

热点排行