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 3366 korisnika na forumu :: 58 registrovanih, 10 sakrivenih i 3298 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: Andrija357, arsa, bavar357, Baždaranac, boj.an, CHARLIE JA., cincarin, darionis, DavidA, dejan1972, Devil city 1989, dj.ape, Dragacevac, elenemste, FileFinder, Imperator_Aleksandr_lll, K a s p e r, kib, klepesina, Komder, Kototamopeva, Leonov, loon123, luka35, MaschinenPistole, Medojed, mercedesamg, milenko crazy north, Milometer, Mirage 2000N, nelezele, Nemanja.M, nenad81, nikolapetkovic, Nobunaga, Orc, Oscar2, ozzy, Pururin, radza1, repac, royst33, samipag822, sportyesorno, Srky Boy, Srna, taomaster, Tas011, Tihi86, VekiJ, Vlad000, Vlada78, VladaKG1980, Vladimir O., vukajlo71, yrraf, Đurđevdan, 1324