Imports Microsoft.Win32
Eklemezsenin yazdığınız komutlar çalışmaz..
Kayıt Ekleme;
Dim reg As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE", True) 'HKEY_CURRENT_USER\Software dizinini açıyoruzreg.CreateSubKey("MUrmac") 'Klasör oluşturuyoruzDim subreg As RegistryKey = reg.OpenSubKey("MUrmac", True) 'HKEY_CURRENT_USER\Software\MUrmac dizinini açıyoruzsubreg.SetValue("Sifre", "123456") 'Regedit Kaydı oluşturuyoruz (Dosyaadi, Değer)subreg.Close() reg.Close()
Kayıt Okuma;
Dim Sifre As String 'Sifre adında string bi değişken oluşturuyoruz Dim reg As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE", False) 'HKEY_CURRENT_USER\Software dizinini açıyoruz Dim subreg As RegistryKey = reg.OpenSubKey("MUrmac", False) 'HKEY_CURRENT_USER\Software\MUrmac dizinini açıyoruz Sifre = subreg.GetValue("Sifre", Environment.UserDomainName.ToString) 'Sifre değişkenine regedit değerini aktarıyoruz If Sifre = Nothing Then Sifre = Environment.UserDomainName.ToString subreg.Close()
Kayıt Silme;
Dim reg As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE", True) 'HKEY_CURRENT_USER\Software dizinini açıyoruzDim subreg As RegistryKey = reg.OpenSubKey("MUrmac", True) 'HKEY_CURRENT_USER\Software\MUrmac dizinini açıyoruzreg.DeleteSubKey("MUrmac") 'Klasörü siliyoruz (İçeriği zaten siliniyor.)
Konu ile ilgili örneği aşağıdaki linkten indirebilirsiniz.
İndir
