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
|