Ricerca personalizzata

Difficoltà: 5 / 5

<< Continua dalla parte 1

Dopo l'introduttiva presentazione delle dichiarazioni della classe passiamo direttamente alla fase implementativa; vedremo in ordine le proprietà pubbliche della classe, i suoi metodi pubblici ed infine quelli privati. L'ordine seguito è quello esclusivamente alfabetico per i tre gruppi; pertanto a volte saranno utilizzate funzioni descritte soltanto in seguito.

72. Public Property Get Chiave() As Long
73.   Chiave = lngKeyValue
74. End Property
76. Public Property Let Chiave(ByVal newChiave As Long)
77.   Call RegOpenKeyEx(newChiave, vbNullString, ByVal 0&, lngKeySecurity, newChiave)
78.   Call RegCloseKey(lngKeyValue)
79.   lngKeyValue = newChiave
80. End Property

La proprietà Chiave di lettura e scrittura restituisce ed imposta l'handle della chiave utilizzata dalla classe assegnando il contenuto del membro interno. L'operazione di scrittura della proprietà è però leggermente più complessa: prima di assegnare il nuovo valore alla variabile lngKeyValue è necessario riaprire la nuova chiave (riga 77) e chiudere quella precedente (riga 78).

Questo perché Windows tiene conto del numero di volte che la chiave è stata aperta. Se due istanze aprono la stessa chiave, ed una delle due istanze ne richiede la chiusura, l'handle dell'altra istanza non verrà invalidato ed entrambe le chiavi chiuse.
È pertanto fondamentale chiudere soltanto la chiave che l'istanza ha aperto e riaprire la nuova chiave ogni volta che un'istanza ne usufruisce. Questo garantisce che la chiave non venga chiusa da un'altra istanza o da un altro processo.

82. Public Property Get NumeroSottoChiavi() As Long
83.   Dim strClass As String
84.   strClass = Space$(1024)
85.   Call RegQueryInfoKey(lngKeyValue, strClass, Len(strClass), ByVal 0&, NumeroSottoChiavi, ByVal 0&, ByVal 0&, ByVal 0&, ByVal 0&, ByVal 0&, ByVal 0&, ByVal 0&)
86. End Property
88. Public Property Get NumeroValori() As Long
89.   Dim strClass As String
90.   strClass = Space$(1024)
91.   Call RegQueryInfoKey(lngKeyValue, strClass, Len(strClass), ByVal 0&, ByVal 0&, ByVal 0&, ByVal 0&, NumeroValori, ByVal 0&, ByVal 0&, ByVal 0&, ByVal 0&)
92. End Property

Seguono due proprietà in sola lettura che restituiscono rispettivamente il numero di sottochiavi ed il numero di valori della chiave aperta. Entrambe le proprietà utilizzano la funzione API RegQueryInfoKey. In ambienti Windows NT/2000/XP è necessario che venga fornito un buffer per la classe, indicato da strClass.

94. Public Property Get Security() As ChiaviSecurity
95.   Security = lngKeySecurity
96. End Property
98. Public Property Let Security(ByVal newSecurity As ChiaviSecurity)
99.   lngKeySecurity = newSecurity
100. End Property

La proprietà Security consente di recuperare ed impostare un valore relativo ai permessi concessi. Trascurabile su Windows 95/98/ME, necessaria invece su Windows NT/2000/XP.

102. Public Property Get Valore(Optional ByVal NomeValore As String, Optional ByRef TipoDati As TipoValoriRegistro) As Variant
103.   Dim AmpiezzaBuffer As Long
104.   Dim Buffer() As Byte
105.   TipoDati = REG_NONE
106.   Call RegQueryValueEx(lngKeyValue, NomeValore, ByVal 0&, TipoDati, ByVal 0&, AmpiezzaBuffer)
107.   If AmpiezzaBuffer > 0 Then
108.     ReDim Buffer(AmpiezzaBuffer - 1)
109.     Call RegQueryValueEx(lngKeyValue, NomeValore, ByVal 0&, ByVal 0&, Buffer(0), AmpiezzaBuffer)

La proprietà Valore si presenta un pochino più complessa delle precedenti. L'operazione di lettura recupera il contenuto dei valori: quello predefinito della chiave se non viene specificato il nome del valore, o quello indicato se ne viene specificato il nome.

Sarà anche possibile recuperare con la stessa proprietà il tipo di dato passando una variabile come secondo argomento. Al ritorno della funzione tale variabile conterrà il tipo di dati del valore richiesto.

Alla riga 106 sono richiesti il tipo di dato del valore e l'ampiezza del contenuto del valore mediante la funzione RegQueryValueEx. Se il dato può essere recuperato, la variabile AmpiezzaBuffer conterrà la dimensione in bytes del buffer da allocare.

Tale buffer sarà effettivamente allocato alla riga 108 ed i dati potranno quindi essere recuperati richiamando nuovamente la funzione RegQueryValueEx e fornendo il puntatore al buffer precedentemente allocato.

110.     Select Case TipoDati
111.       Case REG_SZ
112.         Valore = Left$(StrConv(Buffer, vbUnicode), AmpiezzaBuffer - 1)
113.       Case REG_NONE, REG_BINARY, REG_EXPAND_SZ, REG_MULTI_SZ
114.         Valore = Buffer
115.       Case REG_DWORD, REG_DWORD_LITTLE_ENDIAN
116.         If UBound(Buffer) = 3 Then
117.           Valore = CDbl(Buffer(0) + Buffer(1) * 256& + Buffer(2) * 65536) + Buffer(3) * 16777216#
118.         Else
119.           Valore = Buffer
120.         End If
121.       Case REG_DWORD_BIG_ENDIAN, REG_LINK, REG_RESOURCE_LIST
122.         MsgBox "Tipo di dati non implementato [Valore Get]!", vbCritical + vbOKOnly, "FBIRegistry"
123.     End Select
124.   End If
125.   If AmpiezzaBuffer = 0 Then Valore = Null
126.   Erase Buffer
127. End Property

Avendo recuperato il contenuto del valore ed il suo tipo di dati, sarà quindi possibile effettuare la conversione nel formato più convenzionale: stringa per il tipo REG_SZ, numero intero double per il tipo REG_DWORD o matrice di byte per gli altri tipi di dato. Per quanto riguarda la conversione in stringa verrà effettuata la conversione da formato ANSI ad Unicode (riga 112). La conversione in numero double effettuerà un controllo in più alla riga 116: sebbene il processo di conversione è semplice (riga 117), esistono all'interno del registro alcuni valore memorizzati in maniera errata, ovvero con un numero di bytes minore o maggiore dei normali quattro che compongono un valore DWORD. Per tali casi sarà semplicemente restituita la matrice di dati senza effettuare la conversione (riga 119).

Se il valore richiesto non esiste all'interno del registro oppure non è impostato alcun valore per esso, la dimensione del buffer sarà uguale a 0 e sarà pertanto restituito un valore Null (riga 125).

129. Public Property Let Valore(ByVal NomeValore As String, Optional ByRef TipoDati As TipoValoriRegistro = REG_SZ, ByVal newValore As Variant)
130.   Dim AmpiezzaBuffer As Long
131.   Dim Buffer() As Byte
132.   If (TipoDati < REG_NONE) Or (TipoDati > REG_RESOURCE_LIST) Then TipoDati = REG_SZ
133.   Select Case TipoDati
134.     Case REG_SZ
135.       Buffer = StrConv(newValore, vbFromUnicode) & vbNullChar

L'ultima proprietà è l'operazione di scrittura sul valore del registro. Come la precedente consente opzionalmente la specifica di un nome di valore e di un tipo di dati che se non specificato assume il significato di stringa (REG_SZ). Alla riga 132 viene effettuato un controllo d'obbligo sul tipo di dato specificato.

Se il dato da scrivere è di tipo stringa esso sarà semplicemente convertito da Unicode ad ANSI e trasferito nella variabile binaria Buffer.

136.     Case REG_BINARY, REG_NONE, REG_EXPAND_SZ, REG_MULTI_SZ
137.       If (VarType(newValore) And vbArray) = vbArray Then
138.         ReDim Buffer(0) As Byte
139.         If Not IsNull(newValore) Then ReDim Buffer(UBound(newValore) + 1) As Byte
140.         Buffer(UBound(Buffer)) = 0
141.         Select Case (VarType(newValore) Xor vbArray)
142.           Case vbByte
143.             Buffer = newValore
144.             If Not IsNull(newValore) Then ReDim Preserve Buffer(UBound(newValore) + 1) As Byte
145.             Buffer(UBound(Buffer)) = 0
146.           Case vbInteger, vbLong, vbDouble, vbVariant
147.             For AmpiezzaBuffer = LBound(newValore) To UBound(newValore)
148.               Buffer(AmpiezzaBuffer) = (newValore(AmpiezzaBuffer) And 255)
149.             Next AmpiezzaBuffer
150.           Case Else
151.             MsgBox "Tipo di dati non supportato [Valore Let]!", vbCritical + vbOKOnly, "FBIRegistry"
152.             Exit Property
153.         End Select

La situazione si complica nel caso dei tipi di dati binari specificato alla riga 136. Essi dovranno essere convertiti in maniera idonea in una matrice. L'operazione sarebbe uno scherzo se il tipo di dati non fosse Variant e come tale Visual Basic si rifiuterà di trattarlo o trasformarlo direttamente in matrice di byte, a meno che il suo sottotipo non sia Byte.

Sarà quindi verificato alla riga 137 che il nuovo valore passato sia una matrice: in tal caso verrà allocata una nuova matrice di bytes di nome Buffer della dimensione dell'altra matrice ed il contenuto verrà quindi ricopiato nella matrice Buffer. Sarà generato un errore se il sottotipo dei dati non è numerico (riga 151).

154.       ElseIf Not IsNull(newValore) Then
155.         MsgBox "I dati binari devono essere in una matrice!", vbCritical + vbOKOnly, "FBIRegistry"
156.         Exit Property
157.       Else
158.         ReDim Buffer(0) As Byte
159.       End If
160.     Case REG_DWORD, REG_DWORD_LITTLE_ENDIAN
161.       If IsNull(newValore) = False Then
162.         If IsArray(newValore) = False Then
163.           ReDim Buffer(4) As Byte
164.           Buffer(0) = (newValore And 255)
165.           Buffer(1) = (newValore \ 256) And 255
166.           Buffer(2) = (newValore And &H7FFFFF00) \ 65536 And 255
167.           Buffer(3) = ((newValore And &HFF000000) \ 16777216) And 255
168.         Else
169.           ReDim Buffer(UBound(newValore) + 1) As Byte
170.           For AmpiezzaBuffer = LBound(newValore) To UBound(newValore)
171.             Buffer(AmpiezzaBuffer) = (newValore(AmpiezzaBuffer) And 255)
172.           Next AmpiezzaBuffer
173.         End If
174.       Else
175.         ReDim Buffer(0) As Byte
176.       End If

Sarà generato un avviso anche nel caso in cui i dati passati non siano in una matrice ed il tipo richiesto sia comunque di dati binari (riga 155). Nell'ultimo caso che il valore passato sia un valore Nullo sarà generata una matrice vuota (riga 158).

Se invece il tipo di dati richiesto è il REG_DWORD sarà verificato che i dati non siano una matrice. Nel caso che non lo fossero dovrà quindi essere calcolato il nuovo valore ed assegnarlo ad una matrice di 4 bytes (righe 163-167). Se i dati sono invece in una matrice tali dati saranno ricopiati nel nuovo buffer (righe 169-172).

177.     Case REG_DWORD_BIG_ENDIAN, REG_LINK, REG_RESOURCE_LIST
178.       MsgBox "Tipo di dati non implementato [Valore Let]!", vbCritical + vbOKOnly, "FBIRegistry"
179.       Exit Property
180.   End Select
181.   If IsNull(newValore) And (TipoDati = REG_SZ) Then
182.     Call RegDeleteValue(lngKeyValue, NomeValore)
183.   Else
184.     Call RegSetValueEx(lngKeyValue, NomeValore, ByVal 0&, TipoDati, Buffer(0), UBound(Buffer))
185.   End If
186.   Erase Buffer
187. End Property

Tutti gli altri tipi di dati non sono supportati (righe 177-179).
Prima di procedere con la scrittura dei dati richiesti sarà effettuato un ultimo controllo: se il dato da scrivere è un valore Null ed il tipo richiesto è la stringa REG_SZ il valore non sarà scritto affatto, anzi sarà cancellato del tutto il valore (riga 182) tramite funzione API RegDeleteValue. Nel caso contrario sarà effettuata la normale scrittura del buffer tramite la funzione RegSetValueEx (riga 184).

Segue parte 3 >>

Fibia FBI
1 Aprile 2002
Corretto il 20 Settembre 2002
Rivisitato il 24 Maggio 2003

Scarica il progetto

Scarica il testo dell'articolo

Stampa l'articolo