1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
|
'
'// Module1.bas
'
Expliciete optie
'egl1044
Privé Const GWL_WNDPROC zoals lang = (- 4)
Privé Const WM_DEVICECHANGE als lang = &H219
Privé Const DBT_DEVICEARRIVAL zoals lang = 32768
Privé Const DBT_DEVICEREMOVECOMPLETE zoals lang = 32772
Privé Const DBT_DEVTYP_DEVICEINTERFACE als lang = &H5&
Privé Const DBT_DEVTYP_VOLUME als lang = &H2&
Privé Const GUID_USB als Koord = „{A5DCBF10-6530-11D2-901F-00C04FB951ED}“
Privé Type UUID
Data1 zoals lang
Data2 als Geheel
Data3 als Geheel
Data4 (7) als Byte
Het Type van eind
Privé Type DEV_BROADCAST_HDR
dbch_size zoals lang
dbch_devicetype zoals lang
dbch_reserved zoals lang
Het Type van eind
Privé Type DEV_BROADCAST_DEVICEINTERFACE
dbcc_size zoals lang
dbcc_devicetype zoals lang
dbcc_reserved zoals lang
dbcc_classguid als UUID
dbcc_name zoals lang
Het Type van eind
Privé Type DEV_BROADCAST_VOLUME
dbcv_size zoals lang
dbcv_devicetype zoals lang
dbcv_reserved zoals lang
dbcv_unitmask zoals lang
dbcv_flags als Geheel
Het Type van eind
Privé verklaar de Lib „User32.dll“ van CallWindowProcW van de Functie (_
ByVal lpPrevWndFunc zoals lang, _
ByVal hWnd zoals lang, _
ByVal uMsg zoals lang, _
ByVal wParam zoals lang, _
ByVal lParam zoals lang) zoals lang
Privé verklaar de Lib „User32.dll“ van SetWindowLongW van de Functie (_
ByVal hWnd zoals lang, _
ByVal nIndex zoals lang, _
ByVal dwNewLong zoals lang) zoals lang
Privé verklaar de Lib „User32.dll“ van RegisterDeviceNotificationW van de Functie (_
ByVal hRecipient zoals lang, _
ByVal NotificationFilter zoals lang, _
De Vlaggen van ByVal zoals lang) zoals lang
Privé verklaar de Lib „User32.dll“ van UnregisterDeviceNotification van de Functie (_
Het Handvat van ByVal zoals lang) zoals lang
Privé verklaar de Lib „Ole32.dll“ van CLSIDFromString van de Functie (_
ByVal lpsz zoals lang, _
ByRef pclsid als UUID) zoals lang
Privé verklaar de SubRtlMoveMemory Lib „Kernel32.dll“ (_
De Bestemming van ByRef zoals om het even welk, _
De Bron van ByRef zoals om het even welk, _
De Lengte van ByVal zoals lang)
Privé verklaar de SubRtlZeroMemory Lib „Kernel32.dll“ (_
ByRef dst zoals om het even welk, _
ByVal nBytes zoals lang)
Openbare func zoals lang
Openbare hDev zoals lang
Openbare hWindow zoals lang
Schemerige lpdb als DEV_BROADCAST_HDR
Schemerige lpdbv als DEV_BROADCAST_VOLUME
Schemerige lpdbdi als DEV_BROADCAST_DEVICEINTERFACE
Schemerige fUsb zoals Van Boole
Privé Functie GetDriveFromMask (ByVal UnitMask als lang) als Koord
GetDriveFromMask = Chr$ (65 + het Logboek (van het Logboek (UnitMask)/(2)))
De Functie van het eind
Openbare SubRegisterDeviceInterfaceToHwnd (ByVal hWnd zoals lang)
Schemerige lpdbd als DEV_BROADCAST_DEVICEINTERFACE
Schemerige lpusb als UUID
Als func <> 0 toen
Sub van de uitgang
Eind als
hWindow = hWnd
CLSIDFromString StrPtr (GUID_USB), lpusb
lpdbd.dbcc_size = Len (lpdbd)
lpdbd.dbcc_devicetype = DBT_DEVTYP_DEVICEINTERFACE
lpdbd.dbcc_classguid = lpusb
hDev = RegisterDeviceNotificationW (hWindow, VarPtr (lpdbd), 0)
func = SetWindowLongW (hWindow, GWL_WNDPROC, AddressOf OnUsbChange)
Sub van het eind
Openbare SubUnRegisterDeviceInterface ()
UnregisterDeviceNotification hDev
func = SetWindowLongW (hWindow, GWL_WNDPROC, func)
func = 0
hWindow = 0
Sub van het eind
Overheidsfunctie OnUsbChange (ByVal hWnd zoals lang, ByVal uMsg zoals lang, ByVal wParam zoals lang, ByVal lParam zoals lang) zoals lang
Als uMsg = WM_DEVICECHANGE toen
Selecteer Geval wParam
Geval DBT_DEVICEARRIVAL
RtlMoveMemory lpdb, ByVal lParam&, Len (lpdb)
Als lpdb.dbch_devicetype = DBT_DEVTYP_DEVICEINTERFACE toen
Lpdbdi van RtlMoveMemory, ByVal lParam&, Len (lpdbdi)
fUsb = Waar
Eind als
Als lpdb.dbch_devicetype = DBT_DEVTYP_VOLUME en fUsb toen
RtlMoveMemory lpdbv, ByVal lParam&, Len (lpdbv)
fUsb = Vals
' Opgenomen
Debug.Print „Opgenomen @ drive=“ & GetDriveFromMask (lpdbv.dbcv_unitmask)
Eind als
Geval DBT_DEVICEREMOVECOMPLETE
RtlMoveMemory lpdb, ByVal lParam&, Len (lpdb)
Als lpdb.dbch_devicetype = DBT_DEVTYP_DEVICEINTERFACE toen
Lpdbdi van RtlMoveMemory, ByVal lParam&, Len (lpdbdi)
fUsb = Waar
Eind als
Als lpdb.dbch_devicetype = DBT_DEVTYP_VOLUME en fUsb toen
RtlMoveMemory lpdbv, ByVal lParam&, Len (lpdbv)
fUsb = Vals
' Verwijderd
Debug.Print „Verwijderd @ drive=“ & GetDriveFromMask (lpdbv.dbcv_unitmask)
Eind als
Uitgezocht eind
Eind als
OnUsbChange = CallWindowProcW (func, hWnd, uMsg, wParam, lParam)
De Functie van het eind
'
'// Form1.frm
'
Expliciete optie
Privé SubForm_Load ()
Vraag RegisterDeviceInterfaceToHwnd (Me.hWnd)
Sub van het eind
Privé SubForm_QueryUnload (annuleer als Geheel, UnloadMode als Geheel)
Oproepen UnRegisterDeviceInterface
Beëindig Sub
|
