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 1525 korisnika na forumu :: 102 registrovanih, 5 sakrivenih i 1418 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 15694 - dana 01 Feb 2026 12:23

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: Adaminho1985, ajo baba, aleksmajstor, annon, Arhiv, bankulen, Banovo Brdo, Betta, Bo96, bojanM84, bufanje, BWG, C-Gun, cebam, Chainsaw, Cirkon, DalmatinacMF, Denaya, Desmond, Despot1, djboj, doom83, Dovla 1980, draganca, Draganeli, draganl, Duh sa sekirom, dusanobr, Feller, Frunze, gregorxix, GrobarPovratak, Haris, hatman, HogarStrashni, istina, istokzapad, ivan979, jimi_agf, JK, Jomini, Jose, Jozo74, Kazablankasrb, Kenanjoz, king111, Koce, Manjane, Marko00, mercedesamg, Miki 84, Milanče222, milimoj, milivoje_vatrogasac, Milos1389, milutin134, Mis uz pusku, moldway, monomah, mustangkg, naval brigadier, nebkv, nerislav2025, nuke92, Obrenovic, panonski mornar, Panter, Pero Petković, Plavi Jadran, PlayerOne, PoolbegD02, Povratak1912, redstar72, rikirubio, rovac, sajorg, sap, sasics, sekretar, Sharpshooter, Shinobi, Srki98, StalniPromatrač, stegonosa, tamno.nebo, TBoy, Topaz9, Tragač, TRAVUNIJA, Utd4ce, vaso1, Vatreni Zmaj, vazduh, Velizar Laro, vladaa012, Vlado82, voja64, zauzet, ZetaMan, Čivi, Đurđevdan, 79693