Visual Basic

    Const KEY_QUERY_VALUE = &H1&
    Const KEY_SET_VALUE = &H2&
    Const KEY_CREATE_SUB_KEY = &H4&
    Const KEY_ENUMERATE_SUB_KEYS = &H8&
    Const KEY_NOTIFY = &H10&
    Const KEY_CREATE_LINK = &H20&
    Const READ_CONTROL = &H20000
    Const WRITE_DAC = &H40000
    Const WRITE_OWNER = &H80000
    Const SYNCHRONIZE = &H100000
    Const STANDARD_RIGHTS_REQUIRED = &HF0000
    Const STANDARD_RIGHTS_READ = READ_CONTROL
    Const STANDARD_RIGHTS_WRITE = READ_CONTROL
    Const STANDARD_RIGHTS_EXECUTE = READ_CONTROL
    Const KEY_READ = STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY
    Const KEY_WRITE = STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY
    Const KEY_EXECUTE = KEY_READ
 
    Const REG_NONE = 0
    Const REG_SZ = 1
    Const REG_EXPAND_SZ = 2
    Const REG_BINARY = 3
    Const REG_DWORD = 4
    Const REG_DWORD_LITTLE_ENDIAN = 4
    Const REG_DWORD_BIG_ENDIAN = 5
    Const REG_LINK = 6
    Const REG_MULTI_SZ = 7
    Const REG_RESOURCE_LIST = 8
    Const REG_FULL_RESOURCE_DESCRIPTOR = 9
    Const REG_RESOURCE_REQUIREMENTS_LIST = 10
    Const REG_QWORD = 11
    Const REG_QWORD_LITTLE_ENDIAN = 11
 
    Public Enum RegKeys As Integer
        HKEY_CLASSES_ROOT = &H80000000
        HKEY_CURRENT_USER = &H80000001
        HKEY_LOCAL_MACHINE = &H80000002
        HKEY_USERS = &H80000003
        HKEY_PERFORMANCE_DATA = &H80000004
        HKEY_CURRENT_CONFIG = &H80000005
        HKEY_DYN_DATA = &H80000006
    End Enum
 
    Declare Auto Function RegOpenKeyEx Lib "advapi32" ( _
            ByVal hKey As Integer, _
            ByVal subKey As String, _
            ByVal options As Integer, _
            ByVal sam As Integer, _
            ByRef phkResult As Integer) As Integer
 
    Declare Auto Function RegSetValueExQWORD Lib "advapi32" Alias "RegSetValueEx" ( _
            ByVal hKey As Integer, _
            ByVal lpValueName As String, _
            ByVal Reserved As Integer, _
            ByVal dwType As Integer, _
            ByRef lpData As System.UInt64, _
            ByVal cbData As Integer) As Integer
 
    Declare Auto Function RegQueryValueExQWORD Lib "advapi32" Alias "RegQueryValueEx" ( _
            ByVal hKey As Integer, _
            ByVal lpValueName As String, _
            ByVal dwReserved As Integer, _
            ByRef dwType As Integer, _
            ByRef lpData As System.UInt64, _
            ByRef cbData As Integer) As Integer
 
    Declare Auto Function RegCloseKey Lib "advapi32" (ByVal hKey As Integer) As Integer
 
'
' This code writes a REG_QWORD value:
'
        Dim hKey As Integer
        Dim rc As Integer
 
        rc = RegOpenKeyEx(RegKeys.HKEY_LOCAL_MACHINE, "SOFTWARE", 0, KEY_READ Or KEY_WRITE, hKey)
        Debug.Assert(rc = 0, "RegOpenKey Failed with error " & rc.ToString())
 
        rc = RegSetValueExQWORD(hKey, "TestValue", 0, REG_QWORD, UInt64.Parse("5842365264844985"), 8)
        Debug.Assert(rc = 0, "RegSetValueEx Failed with error " & rc.ToString())
 
        rc = RegCloseKey(hKey)
 
'
' This code reads a REG_QWORD value:
'
        Dim hKey As Integer
        Dim rc As Integer
        Dim data As UInt64
        Dim dataType As Integer
        Dim dataSize As Integer = 8
 
        rc = RegOpenKeyEx(RegKeys.HKEY_LOCAL_MACHINE, "SOFTWARE", 0, KEY_READ Or KEY_WRITE, hKey)
        Debug.Assert(rc = 0, "RegOpenKey Failed with error " & rc.ToString())
 
        rc = RegQueryValueExQWORD(hKey, "TestValue", 0, dataType, data, dataSize)
        Debug.Assert(rc = 0, "RegGetValue Failed with error " & rc.ToString())
 
        rc = RegCloseKey(hKey)
        MsgBox("The value (" & dataType.ToString() & ", size: " & dataSize.ToString() & ") returned is: " & data.ToString(), MsgBoxStyle.Information, "QWORD Return Value")