RegistryKey.OpenSubKey : RegistryKey « Microsoft.Win32 « VB.Net by API






RegistryKey.OpenSubKey

  

Imports System
Imports Microsoft.win32
Imports System.Diagnostics
Imports System.Windows.Forms

 
 
 Public Class Tester
    Public Shared Sub Main
    
        Dim m_LM As RegistryKey
        Dim m_HW As RegistryKey
        Dim m_Des As RegistryKey
        Dim m_System As RegistryKey
        Dim m_CPU As RegistryKey
        Dim m_Info As RegistryKey
        m_LM = Registry.LocalMachine
        m_HW = m_LM.OpenSubKey("HARDWARE")
        m_Des = m_HW.OpenSubKey("DESCRIPTION")
        m_System = m_Des.OpenSubKey("SYSTEM")
        m_CPU = m_System.OpenSubKey("CentralProcessor")
        m_Info = m_CPU.OpenSubKey("0")
 
        Console.WriteLine(m_Info.GetValue("VendorIdentifier"))
        Console.WriteLine(m_Info.GetValue("ProcessorNameString"))
        Console.WriteLine(m_Info.GetValue("Identifier"))
        Console.WriteLine(m_Info.GetValue("~Mhz") & "MHz")
    End Sub

End Class

   
    
  








Related examples in the same category

1.RegistryKey.GetValue