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:
[Link mogu videti samo ulogovani korisnici]

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:
[Link mogu videti samo ulogovani korisnici]

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 1969 korisnika na forumu :: 56 registrovanih, 7 sakrivenih i 1906 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 6.5lapua, A.R.Chafee.Jr., Apok, Bloody, bpvl, carinko, cenejac111, CHARLIE JA., dragoljub11987, drimer, dunavzed, Dzambas, engel, foka106, Georgius, goxin, goxsys, ILGromovnik, Insan, Jeremiah, Joint Chief, Jose, K a s p e r, Kalem, Kanader, Kaplar2, Koplje, kreker, Kvaka22, ladro, ljuba.b, loon123, LUDI, Milos ZA, mocnijogurt, Niki2024, nobutado, Orijen, ostoja, Pantaaa, pasko2025, peradetlić, proka89, skok, sspp, stegonosa, stokssone, synergia, Timočka Divizija, Tumansky, Vasilije Budović, vidra1, Wehicle, x9, zdrebac, Zjmc