还是VB下拔插USB的消息问题，U盘可以，但是蓝牙又不行了，其它USB设备都不行？帮帮忙吧……（不够分了，只能发在这非技术贴了）
0
537
7
0
537
7
0
537
7
0
537
32772 （U盘的时候）
1310180
537
7
0
537
7
0
537
7
0
537
7
0
537
7
0
537
7
0
537
7
很明显只有U盘才可以，其它USB设备都不行，怎么弄呀？我的目标是：USB设备都行……
我参考的代码：
'===========标准模块============Option ExplicitType GUID Data1 As Long Data2 As Integer Data3 As Integer Data4(7) As ByteEnd Type '固定常数Type DEV_BROADCAST_DEVICEINTERFACE dbcc_size As Long dbcc_devicetype As Long dbcc_reserved As Long dbcc_classguid As GUID dbcc_name As LongEnd Type '规定的常数Type DEV_BROADCAST_VOLUME dbcv_size As Long dbcv_devicetype As Long dbcv_reserved As Long dbcv_unitmask As Long dbcv_flags As IntegerEnd Type '规定的常数Public Const GWL_WNDPROC = -4Const DEVICE_NOTIFY_WINDOW_HANDLE = 0Const WM_DEVICECHANGE = &H219&Const DBT_DEVTYP_DEVICEINTERFACE = &H5&Const DBT_DEVTYP_VOLUME = &H2&Const DBT_DEVICEARRIVAL = &H8000&Const DBT_DEVICEREMOVECOMPLETE = &H8004&Const DRIVE_REMOVABLE = 2Const DRIVE_NO_ROOT_DIR = 1Public Declare Function SetWindowLongA Lib "User32.dll " (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongDeclare 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 LongDeclare Function RegisterDeviceNotificationA Lib "User32.dll " (ByVal hRecipient As Long, NotificationFilter As Any, ByVal Flags As Long) As LongDeclare Function UnregisterDeviceNotification Lib "User32.dll " (ByVal Handle As Long) As LongDeclare Sub RtlMoveMemory Lib "kernel32 " (Destination As Any, Source As Any, ByVal Length As Long)Private m_hwnd As LongPrivate m_lpPrevWndProc As LongPrivate m_hDevNotify As LongPublic 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 SubPublic 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 FunctionOption ExplicitPrivate Sub Form_Load() lpPrev = SetWindowLongA(hwnd, GWL_WNDPROC, AddressOf WndProc)End SubPrivate Sub Form_Unload(Cancel As Integer) If lpPrev <> 0 Then lpPrev = SetWindowLongA(hwnd, GWL_WNDPROC, lpPrev) lpPrev = 0 End IfEnd Sub