Citanje Registry Kljuceva Iz VB

Citanje Registry Kljuceva Iz VB

offline
  • Pridružio: 25 Feb 2004
  • Poruke: 35
  • Gde živiš: BiH-RS

Question Zanima Me kako da napisem kod, u VB, da mogu da iscitavam podatke iz "Registry Baze", i da te Podatke ispisem npr. u "text1.text".

Nasao sam neki, Mnogo Komplikovan kod, Koji i cita i pise i brise, Registry Kljuceve, ali ne mogu da se snadjem u njemu.

Taj kod je tipa modula klase i ako nekom trba:
solair.eunet.rs/~alas/misc/registry.zip

Ako neko ima, neko malo jednostavnije Rjesenje, Molim pomoc Exclamation Exclamation


_________________________________________

sove



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 25 Feb 2004
  • Poruke: 35
  • Gde živiš: BiH-RS

Rijesio sam Problem.



offline
  • Goran 
  • Prof.Mr.Dr.Sci. Traumatologije
  • Pridružio: 05 Maj 2003
  • Poruke: 9977
  • Gde živiš: Singidunum

Bilo bi lepo da napišeš ovde kako si to uradio da ako nekom zatreba može da pročita. Wink

BTW: Dobro nam došao Sove! Wink

offline
  • Pridružio: 25 Feb 2004
  • Poruke: 35
  • Gde živiš: BiH-RS

Na standard exe Formu postavite jedno dugme i jedan text box.

Naprvite "Class Module" i imenujte ga sa "Reg".
U njega smjestite kompletan kod koji downloadujete sa:
solair.eunet.rs/~alas/misc/registry.zip

kod:

Private Sub Command1_Click()
Dim Registri
Dim S As Variant

Set Registri = New Reg

Registri.hkey = &H80000002

'Odredjuje Promjenjivu "hkey" u "HKEY_LOKAL_MASHINE".
'Ostale Konstante:
'HKEY_CLASSES_ROOT = &H80000000
'HKEY_CURRENT_USER = &H80000001
'HKEY_LOCAL_MACHINE = &H80000002
'HKEY_USERS = &H80000003
'HKEY_PERFORMANCE_DATA = &H80000004
'HKEY_CURRENT_CONFIG = &H80000005
'HKEY_DYN_DATA = &H80000006
'Imaju sve definisane u "Reg"
'----------------------------------------------
Registri.KeyRoot = "SOFTWARE"

'Definise Pocetni Kljuc U "hkey-u"
'----------------------------------------------
Registri.Subkey = "Microsoft\Windows NT\CurrentVersion"

'Definise Put do odredjenog kljuca
'Ako koristite Win98 ili WinMe, Onda je:
'Registri.Subkey = "Microsoft\Windows\CurrentVersion"
'----------------------------------------------
S = Registri.GetRegistryValue("ProductId")

'Poziva Funkciju za citanje vrijednosti kluceva i
'Promjenjivoj "ValueName"- (Ime Registry Kljuca),
'Dodjeljuje Vrijednost "ProductId"
'----------------------------------------------

Text1.Text = S

End Sub

___________________________________________________________
Sove

Ko je trenutno na forumu
 

Ukupno su 652 korisnika na forumu :: 9 registrovanih, 1 sakriven i 642 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: _Rade, bojank, cikadeda, dragoljub11987, gorantrojka, hyla, Krvava Devetka, Lord Nem, opt1