یه سری آموزش های فوق العاده جالب برای دوستان عزیز

[parsiyan_mohsen]

انجام اعمال متداول در رجیستری خیلی جالبه :

 

Imports Microsoft.Win32



 



 



Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click



    ' // Create SubKey



    Registry.LocalMachine.CreateSubKey("Software\Sinpi  n", RegistryKeyPermissionCheck.ReadWriteSubTree)



 



    '//Create Key and Set Value



    Dim reg As RegistryKey = Registry.LocalMachine.OpenSubKey("Software\Sinpin"  , True)



    reg.SetValue("DWord", "1", RegistryValueKind.DWord)



    reg.SetValue("ExpandString", "1", RegistryValueKind.ExpandString)



    reg.SetValue("QWord", "1", RegistryValueKind.QWord)



    reg.SetValue("String", "1", RegistryValueKind.String)



    reg.SetValue("Unknown", "1", RegistryValueKind.Unknown)



 



    '// Delete Key



    reg.DeleteValue("DWOrd")



 



    '// Delete SubKey



    Registry.LocalMachine.DeleteSubKey("Software\Sinpi  n")



 



    '// Read Key Value



    Dim val As String = reg.GetValue("QWord").ToString()



 



    '// Retrieve All Keys



    For Each s As String In reg.GetValueNames()



        MessageBox.Show(s)



    Next



 



End Sub