добавление десятичного значения DWORD в шестнадцатеричном формате

Question

Мне нужно записать новое значение в реестр. Я застрял в следующем коде, потому что я могу добавить стандартный ключ, и мне нужно поместить новое десятичное значение в ключ DWORD (в шестнадцатеричном формате)

{Дим шш wsh = CreateObject ("WScript.shell") wsh.regwrite ("HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ policy \ Explorer \ NoDrives \ dword", "789")}

Answer 1

Я бы использовал что-то вроде:

Imports Microsoft.Win32

Sub SetNoDrives(value As Integer)
    Dim RegPath As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer"
    Using Key As RegistryKey = Registry.LocalMachine.OpenSubKey(RegPath)
        Key.SetValue("NoDrives", value, RegistryValueKind.DWord)
    End Using
End Sub