Merhabalar,

Kullanacağımız namespace:

Kod:
Imports Microsoft.Win32

Reg kullanımı:


Kod:
Dim kayit as RegistryKey Dim anahtar As String = "Arkeolog NET" kayit = Registry.LocalMachine.OpenSubKey (anahtar, True) If anahtar Is Nothing Then Msgbox "Anahtar Bulunamadı" End If 'Oluşturma ve acma kayit = Registry.LocalMachine.CreateSubKey (anahtar) kayit = Registry.LocalMachine.OpenSubKey (anahtar, True) 'Yazmak icin kayit.SetValue ("Serial", "123456") 'Değerini okumak icin Msgbox (?Alt Anahtarın değeri = ? & kayit.GetValue("Serial").ToString ) 'Silmek icin kayit.DeleteSubKey ("Serial")

__________________