Просмотр исходного текста страницы VB.Net by API/Microsoft.Win32/Registry

==Registry.CurrentUser==


   
<source lang="vbnet">  
Option Strict On
Imports Microsoft.Win32
Public Module Tester
   Public Sub Main
      Dim regKey As RegistryKey
      Dim keyTop As RegistryKey = Registry.CurrentUser
      regKey = keyTop.OpenSubkey("Software\MyCompany\MyApp", True)
      If regKey Is Nothing Then
         regKey = keyTop.CreateSubKey("Software\MyCompany\MyApp")
      End If
      Dim binValue As Byte() = {&HF0, &HFF, &H12, &HE0, &H43, &HAC}
      Dim strngValue As String() = {"A", "B","C", "D"}
      "regKey.SetValue("WindowState", 0, RegistryValueKind.DWord)
      "regKey.SetValue("CustomWindowCaption", "Client Contact Management",RegistryValueKind.String)
      "regKey.SetValue("CustomPosition", binValue, RegistryValueKind.Binary)
      "regKey.SetValue("CustomLabels", strngValue, RegistryValueKind.MultiString)
   End Sub
End Module
   
    
  </source>


==Registry.GetValue==


   
<source lang="vbnet">  
public class Test
   public Shared Sub Main
        Console.WriteLine(My.ruputer.Registry.GetValue("HKEY_CURRENT_USER\Software\yourname\subname\","PromptOnExit", "0"))
   End Sub
End Class
   
    
  </source>


==Registry.SetValue==


   
<source lang="vbnet">  
Option Strict On
Imports Microsoft.Win32
Public Module RegistrySetValue
   Public Sub Main
      Dim regData As Byte() = {&HF0, &HFF, &H20, &H00}
      Dim regTopKey As String = "HKEY_LOCAL_MACHINE"
      Dim regPath As String = "\Software\MyCompany\MyApp"
"      Registry.SetValue(regTopKey & regPath, "BinData", regData, RegistryValueKind.Binary)
   End Sub
End Module
   
    
  </source>