Visual Basic NET Registry İşlemleri
REGISTRY YAZMA İŞLEMLERİ
************************************************************************************************************
*imports microsoft.win32 'bu değimi uygulamaya import et
------------------------------------------------------------------------------------------------------------
ANA ROOTLARA VERİ YAZDIRMA
registry.currentuser.setvalue("Anahtar_Adı",Değer)
Örnek=registry.currentuser.setvalue("Deneme","Bu değer denemedir")
------------------------------------------------------------------------------------------------------------
ALT KLASÖR EKLEMEK
registry.currentuser.createsubkey("Değer")
------------------------------------------------------------------------------------------------------------
ALT KLASÖRE VERİ EKLEMEK
registry.currentuser.createSubKey.("Alt klasör adı").setvalue("Anahtar_Adı","Değer")
Örnek=registry.currentuser.createSubKey.("Deneme").setvalue("Şifre","1234") 'Burada user anabloğun altında deneme klasörünün içine şifre adında anahtar oluşturuluyor.
------------------------------------------------------------------------------------------------------------
İÇ İÇE ALT KLASÖR OLUŞTURMA
registry.currentuser.createsubkey("Alt Klasör Adı").createsubkey("2.Alt Klasör Adı")
-------------------------------------------------------------------------------------------------------------
*************************************************************************************************************
REGISTRY OKUMA İŞLEMLERİ
*************************************************************************************************************
ANA ROOT'TAN VERİ OKUMAK
Registry.Currentuser.GetValue("Okunacak Anahtar").toString()
-------------------------------------------------------------------------------------------------------------
ALT KLASÖRDEN VERİ OKUMAK
registry.currentuser.OpenSubKey("Klasör_adı").GetValue("Okunacak Anahtar").tostring()
-------------------------------------------------------------------------------------------------------------
DAHA İÇ KLASÖRLERDEN VERİ OKUMAK
registry.currentuser.OpenSubKey("Klasör_adı").OpenSubkey("İçKlasör").GetValue("Okunacak Anahtar").tostring()
-------------------------------------------------------------------------------------------------------------
*************************************************************************************************************
WINDOWS REGISTRY BİLGİLERİNİ OKUMAK
*************************************************************************************************************
ÖRNEK=
Dim renk as String
renk=registry.currentuser.OpenSubKey("Control Panel").OpenSubkey("Colors").GetValue("Window").tostring()
Me.text=renk
-------------------------------------------------------------------------------------------------------------
*************************************************************************************************************
ALT KLASÖRLERDE SİLME İŞLEMİ
*************************************************************************************************************
ALT KLASÖRÜ SİLME
registry.currentuser.deleteSubKey("SilinecekAnahtar")
-------------------------------------------------------------------------------------------------------------
İÇİNDE KLASÖR BULUNAN ALT KLASÖRÜ SİLME
registry.CurrentUser.DeleteSubKeyTree("SilinecekAnahtar") 'ana rootta siliyor
--------------------------------------------------------------------------------------------------------------
*************************************************************************************************************
KLASÖR SAYISINI ÖĞRENME,LİSTEME
*************************************************************************************************************
KLASÖR SAYISINI ÖĞRENMEK
Dim sayi as String
Sayi=Registry.CurrentUser.SubKeyCount.ToString() 'Kaç klasör olduğu sayısını verir
Me.text=sayi 'başlık çubuğunda CurrentUser Ana_Root'unda kaç klasör olduğunu göster
-------------------------------------------------------------------------------------------------------------
DEĞİŞKEN SAYISINI ÖĞRENME
Registry.CurrentUser.ValueCount.tostring()
-------------------------------------------------------------------------------------------------------------
DÜĞÜM ALTINDAKİ KLASÖRLERİ LİSTELEMEK
Dim altkls() as string
altkls=Registry.CurrentUser.getSubkeyNames
for each list as string in altkls
listbox1.items.add(list)
next
-------------------------------------------------------------------------------------------------------------
DÜĞÜM ALTINDAKİ DEĞİŞKENLERİ LİSTELEMEK
Dim altkls() as string
altkls=Registry.CurrentUser.GetValueNames
for each list as string in altkls
listbox1.items.add(list)
next