Ciao
Raytracer,
non mi pare che stai sbagliando, anche io utilizzo un metodo simile (forse uguale) e funziona tutto correttamente. All'inizio delle mie sperimentazioni mi è capitato qualcosa di vagamente simile che ho risolto
"forzando" la
RootKey ogni qualvolta che accedevo alle chiavi, per esempio:
Code:
<font face="Courier New"><font size="2"><font color="#0000ff">Sub </font></font></font><font face="Courier New"><font size="2">CreateSubKey</font></font>
<font size="2"><font face="Courier New"> reg.RootKey(reg.rtCurrentUser)</font></font>
<font size="2"><font face="Courier New"> reg.CreateSubKey(</font></font><font face="Courier New"><font size="2"><font color="#800000">"Software"</font></font></font><font face="Courier New"><font size="2">,</font></font><font face="Courier New"><font size="2"><font color="#800000">"abc"</font></font></font><font face="Courier New"><font size="2">)</font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">End Sub</font></font></font>
<font size="2"><font face="Courier New"><font color="#0000ff">Sub </font></font></font><font face="Courier New"><font size="2">SetSubKey</font></font>
<font size="2"><font face="Courier New"> reg.RootKey(reg.rtCurrentUser)</font></font>
<font size="2"><font face="Courier New"> reg.SetStringValue(</font></font><font face="Courier New"><font size="2"><font color="#800000">"Software\abc"</font></font></font><font face="Courier New"><font size="2">,</font></font><font face="Courier New"><font size="2"><font color="#800000">"abcd"</font></font></font><font face="Courier New"><font size="2">, </font></font><font face="Courier New"><font size="2"><font color="#800000">"XXXX"</font></font></font><font face="Courier New"><font size="2">)</font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">End Sub</font></font></font>
<font size="2"><font color="#0000ff">Sub </font></font><font size="2">GetSubKey</font>
<font face="Courier New"><font size="2"><font color="#0000ff"> Dim</font></font><font size="2"> xs</font></font>
<font size="2"><font face="Courier New"> reg.RootKey(reg.rtCurrentUser)</font></font>
<font size="2"><font face="Courier New"> xs = reg.GetValue(</font></font><font face="Courier New"><font size="2"><font color="#800000">"Software\abc"</font></font></font><font face="Courier New"><font size="2">, </font></font><font face="Courier New"><font size="2"><font color="#800000">"abcd"</font></font></font><font size="2">)</font>
<font face="Courier New"><font size="2"><font color="#0000ff"> Return</font></font><font size="2"> xs</font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">End Sub</font></font></font>
l'esempio è semplificato al massimo solo per intenderci e quindi non è da considerare (ovviamente) per un'applicazione valida.
Se mi passi, anche privatamente, qualche informazione in più (quelle possibili) cercherò, sempre nel mio possibile, di esserti più utile.
Saluti,
Massimo