Newsgroup: it.comp.lang.visual-basic
Titolo: registro di windows

Salve.
Stavo provando a utilizzare le funzioni di lettura,scrittura del registro di
windows, ma non riesco ad avere il valore della variabile in output:
Dim DisplayOnConnect As String
Private Sub Command1_Click()
    DisplayOnConnect = GetSetting("HKEY_CURRENT_USER", "\Software\VB and VBA
Program Settings\Microsoft Visual Basic AddIns\VBDataViewWindow",
"DisplayOnConnect")
    MsgBox DisplayOnConnect
End Sub
Cosa sbaglio?

 Cosa sbaglio?
Il getsetting e il savesetting si occupano solo dell'area del registro
definita per le applicazioni Vb.
Se vuoi leggere in altre aree dovrai utilizzare qualcosa di un po' più
*potente*.
-- 
Le persone non sono il proprio comportamento: devi sempre andare oltre,
essere flessibile, capire il punto di vista degli altri, interpretarne i
comportamenti ed intuirne le esigenze.
Per rispondere in privato elimina
dall'indirizzo "togliquesto"
MasterDavidex
David Ruscelli

Si lo so.. infatti nel codice c'è l'are del registro definita per le
applicazioni Vb
Il problema è che non riesco a far andare nemmeno quello...

 Il problema č che non riesco a far andare nemmeno quello...
Prova cosě
Scrivi un valore qualsiasi in una chiave qualsiasi
SaveSetting "PROVA1", "PROVA2", "CHIAVE" , "VALORE"
Rileggi il valore
msgbox  GetSetting("PROVA1", "PROVA2", "CHIAVE")


Ok sono riuscito a leggere il valore di una variabile, però ho notato che nn
riesco a leggere il valore della variabile già esistente sempre nell'area di
competenza del VB, il cui valore sarebbe 0
Comunque oltre a questo, ora sto provando le funzioni GetKeyValue, che però
mi restituisce solo Vero o Falso, a seconda dell'esistenza della key... cosa
posso usare per avere il valore della key?

 posso usare per avere il valore della key?
Una di queste
http://www.it-lang-vb.net/download.asp?file=http://www.it-lang-vb.net/Archivio/Sorgenti/RegistroSistema.zip&ID=632
http://www.it-lang-vb.net/download.asp?file=http://www.it-lang-vb.net/Archivio/Sorgenti/clreg.zip&ID=256
http://www.it-lang-vb.net/download.asp?file=http://www.it-lang-vb.net/Archivio/Binari/ERegApi.zip&ID=191
http://www.it-lang-vb.net/download.asp?file=http://www.it-lang-vb.net/Archivio/Sorgenti/RegAPI.zip&ID=160
http://www.it-lang-vb.net/download.asp?file=http://www.it-lang-vb.net/Archivio/Sorgenti/DeRegistro.zip&ID=118
http://www.it-lang-vb.net/download.asp?file=http://www.it-lang-vb.net/Archivio/Sorgenti/Registro.zip&ID=40
http://www.it-lang-vb.net/download.asp?file=http://www.it-lang-vb.net/Archivio/Sorgenti/easyreg5.zip&ID=32
Questa è una DLL che ha fatto il sottoscritto, dentro c'è qualcosa anche per
il registro di sistema.
http://www.it-lang-vb.net/download.asp?file=http://www.it-lang-vb.net/Archivio/Sorgenti/Global.zip&ID=601


 windows, ma non riesco ad avere il valore della variabile in output:
'read.vbs
set oShell = CreateObject("WScript.Shell")
bKey = oShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\"& _
"Visual Basic\6.0\AddInToolbar\VB ActiveX Control Wizard\ProgID")
sLogFile = "C:\windows\temp\REG.LOG"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oLogFile = oFSO.OpenTextFile(sLogFile, 8, True, 0)
        oLogFile.WriteLine bKey
Wscript.Echo bKey
'write read delete (*.vbs)
'inizio
Dim oShell, bKey
Set oShell = WScript.CreateObject("WScript.Shell")
oShell.RegWrite "HKCU\Software\ACME\Pippo\", 1, "REG_BINARY"
oShell.RegWrite "HKCU\Software\ACME\Pippo\Pluto", "Minnie", "REG_SZ"
bKey = oShell.RegRead("HKCU\Software\ACME\Pippo\")
WScript.Echo oShell.RegRead("HKCU\Software\ACME\Pippo\Pluto")
'togli ' qui sotto per cacellare le key
'oShell.RegDelete "HKCU\Software\ACME\Pippo\Pluto"
'oShell.RegDelete "HKCU\Software\ACME\Pippo\"
'oShell.RegDelete "HKCU\Software\ACME\"
'fine
'Per la scrittura e' piu semplice creare un file reg ed importarlo
set oShell = CreateObject("WScript.Shell")
oShell.run"regedit.exe /s C:\Crea.reg"
--
Fosco