首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

还是VB下拔插USB的消息有关问题,U盘可以,但是蓝牙又不行了,其它USB设备都不行?帮帮忙吧…(不够分了,只能发在这非技术贴了)

2013-03-26 
还是VB下拔插USB的消息问题,U盘可以,但是蓝牙又不行了,其它USB设备都不行?帮帮忙吧……(不够分了,只能发在这

还是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 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

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

 
[解决办法]
与设备类相关,许多设备的变化是不会引入像可移除存储器这样的参数的。

你要想得知你关注的设备是否变化了,只须尝试打开即可。

热点排行