VBS写注册表二进制

'VB中的十六进制前缀是&H，最多只有四个字节。

Set ws = CreateObject("WScript.Shell")

Default = ws.RegRead("HKCR\")

skey = "Software\RAdmin\v3.0\Parameters"

ws.RegWrite "HKCU\" &skey &"\", Default

Const HKCU = &H80000001

Set oReg = GetObject("winmgmts:\\.\root\default:StdRegProv")

oReg.SetBinaryValue HKCU, skey, "MainWindowRect", Array(&HF7, 0, 0, 0, &HC9, 0, 0, 0, 8, 3, 0, 0, &H37, 2, 0, 0)

oReg.SetBinaryValue HKCU, skey, "NoSplashScreen", Array(0, 1, 0, 0)

oReg.SetBinaryValue HKCU, skey, "MinimizeToIcon", Array(0, 0, 0, 0)

oReg.SetBinaryValue HKCU, skey, "ShowTree", Array(0, 0, 0, 0)

VB 的十六进制数字前缀是 &H ，不是 0x ，所以把 0x785bdbe2 改为 &H785bdbe2 ，

二进制数据在注册表中低位显示在前，所以要在注册表中看到 78 5b db e2 ，应该用 &He2db5b78

VB 中用 &H 表示的十六进制数最多 4 字节

m=""

k=inputbox("输入数据","十进制转二进制",10)

do

t=k\2

m=m&k mod 2

k=t

Loop Until k<1

msgbox StrReverse(m)

---