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
'
Opzione esplicita
'egl1044
Const riservato GWL_WNDPROC come lungamente = (- 4)
Const riservato WM_DEVICECHANGE come lungamente = &H219
Const riservato DBT_DEVICEARRIVAL come lungamente = 32768
Const riservato DBT_DEVICEREMOVECOMPLETE come lungamente = 32772
Const riservato DBT_DEVTYP_DEVICEINTERFACE come lungamente = &H5&
Const riservato DBT_DEVTYP_VOLUME come lungamente = &H2&
Const riservato GUID_USB come stringa = “{A5DCBF10-6530-11D2-901F-00C04FB951ED}„
Tipo riservato UUID
Data1 come lungamente
Data2 come numero intero
Data3 come numero intero
Data4 (7) come byte
Tipo dell'estremità
Tipo riservato DEV_BROADCAST_HDR
dbch_size come lungamente
dbch_devicetype come lungamente
dbch_reserved come lungamente
Tipo dell'estremità
Tipo riservato DEV_BROADCAST_DEVICEINTERFACE
dbcc_size come lungamente
dbcc_devicetype come lungamente
dbcc_reserved come lungamente
dbcc_classguid come UUID
dbcc_name come lungamente
Tipo dell'estremità
Tipo riservato DEV_BROADCAST_VOLUME
dbcv_size come lungamente
dbcv_devicetype come lungamente
dbcv_reserved come lungamente
dbcv_unitmask come lungamente
dbcv_flags come numero intero
Tipo dell'estremità
Riservato dichiarare il movimento di liberazione “User32.dll„ di CallWindowProcW di funzione (_
lpPrevWndFunc di ByVal come lungamente, _
hWnd di ByVal come lungamente, _
uMsg di ByVal come lungamente, _
wParam di ByVal come lungamente, _
lParam di ByVal come lungamente) come lungamente
Riservato dichiarare il movimento di liberazione “User32.dll„ di SetWindowLongW di funzione (_
hWnd di ByVal come lungamente, _
nIndex di ByVal come lungamente, _
dwNewLong di ByVal come lungamente) come lungamente
Riservato dichiarare il movimento di liberazione “User32.dll„ di RegisterDeviceNotificationW di funzione (_
ByVal hRecipient come lungamente, _
ByVal NotificationFilter come lungamente, _
Bandierine di ByVal come lungamente) come lungamente
Riservato dichiarare il movimento di liberazione “User32.dll„ di UnregisterDeviceNotification di funzione (_
Maniglia di ByVal come lungamente) come lungamente
Riservato dichiarare il movimento di liberazione “Ole32.dll„ di CLSIDFromString di funzione (_
Lpsz di ByVal come lungamente, _
Pclsid di ByRef come UUID) come lungamente
Riservato dichiarare il movimento di liberazione secondario “Kernel32.dll„ di RtlMoveMemory (_
Destinazione di ByRef come c'è ne, _
Fonte di ByRef come c'è ne, _
Lunghezza di ByVal come lungamente)
Riservato dichiarare il movimento di liberazione secondario “Kernel32.dll„ di RtlZeroMemory (_
Dst di ByRef come c'è ne, _
nBytes di ByVal come lungamente)
Funzionale pubblico come lungamente
hDev pubblico come lungamente
hWindow pubblico come lungamente
Lpdb fioco come DEV_BROADCAST_HDR
Lpdbv fioco come DEV_BROADCAST_VOLUME
Lpdbdi fioco come DEV_BROADCAST_DEVICEINTERFACE
fUsb fioco come booleano
Funzione riservata GetDriveFromMask (ByVal UnitMask come lungamente) come stringa
GetDriveFromMask = Chr$ (65 + (ceppo)/ceppo (di UnitMask (2)))
Funzione di conclusione
RegisterDeviceInterfaceToHwnd secondario pubblico (hWnd di ByVal come lungamente)
Lpdbd fioco come DEV_BROADCAST_DEVICEINTERFACE
Lpusb fioco come UUID
Se 0 <> funzionale allora
Uscire il sommergibile
Concluder se
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)
funzionale = SetWindowLongW (hWindow, GWL_WNDPROC, AddressOf OnUsbChange)
Sommergibile dell'estremità
UnRegisterDeviceInterface secondario pubblico ()
hDev di UnregisterDeviceNotification
funzionale = SetWindowLongW (hWindow, GWL_WNDPROC, funzionali)
= 0 funzionale
hWindow = 0
Sommergibile dell'estremità
Funzione pubblica OnUsbChange (hWnd di ByVal come uMsg di ByVal, lungamente come wParam di ByVal, lungamente come lParam di ByVal, lungamente come lungamente) come lungamente
Se uMsg = WM_DEVICECHANGE allora
Selezionare il wParam di caso
Mettere DBT_DEVICEARRIVAL
Lpdb di RtlMoveMemory, lParam& di ByVal, Len (lpdb)
Se lpdb.dbch_devicetype = DBT_DEVTYP_DEVICEINTERFACE allora
Lpdbdi di RtlMoveMemory, lParam& di ByVal, Len (lpdbdi)
il fUsb = allinea
Concluder se
Se lpdb.dbch_devicetype = DBT_DEVTYP_VOLUME e fUsb allora
Lpdbv di RtlMoveMemory, lParam& di ByVal, Len (lpdbv)
fUsb = falso
' Inserito
Debug.Print “ha inserito @ il drive=„ & GetDriveFromMask (lpdbv.dbcv_unitmask)
Concluder se
Mettere DBT_DEVICEREMOVECOMPLETE
Lpdb di RtlMoveMemory, lParam& di ByVal, Len (lpdb)
Se lpdb.dbch_devicetype = DBT_DEVTYP_DEVICEINTERFACE allora
Lpdbdi di RtlMoveMemory, lParam& di ByVal, Len (lpdbdi)
il fUsb = allinea
Concluder se
Se lpdb.dbch_devicetype = DBT_DEVTYP_VOLUME e fUsb allora
Lpdbv di RtlMoveMemory, lParam& di ByVal, Len (lpdbv)
fUsb = falso
' Rimosso
Debug.Print “ha rimosso @ il drive=„ & GetDriveFromMask (lpdbv.dbcv_unitmask)
Concluder se
Concludere prescelto
Concluder se
OnUsbChange = CallWindowProcW (funzionale, hWnd, uMsg, wParam, lParam)
Funzione di conclusione
'
'// Form1.frm
'
Opzione esplicita
Form_Load secondario riservato ()
Chiamata RegisterDeviceInterfaceToHwnd (Me.hWnd)
Sommergibile dell'estremità
Form_QueryUnload secondario riservato (annullamento come numero intero, UnloadMode come numero intero)
Chiamata UnRegisterDeviceInterface
Sommergibile dell'estremità
|
