Private Const HKEY_CLASSES_ROOT = &H80000000 Private Const HKEY_CURRENT_USER = &H80000001 Private Const HKEY_LOCAL_MACHINE = &H80000002 Private Const HKEY_USERS = &H80000003 Private Const HKEY_CURRENT_CONFIG = &H80000005 Private Sub Command1_Click()'写入注册表 Dim oReg As Object, uBinary Set oReg = GetObject("winmgmts:\\.\root\default:StdRegProv") uBinary = Array(&HA1, &H37, &HF3, &H2A) oReg.SetBinaryValue HKEY_LOCAL_MACHINE, "system", "myBinary", uBinary Set oReg = Nothing End SubPrivate Sub Command2_Click()'从注册表中读 Dim oReg As Object, strValue Set oReg = GetObject("winmgmts:\\.\root\default:StdRegProv") oReg.GetBinaryValue HKEY_LOCAL_MACHINE, "system", "myBinary", strValue For i = 0 To UBound(strValue) List1.AddItem strValue(i) Next Set oReg = Nothing End Sub
aStr = split("92,3a,7f,58,4e,b5,fb,e5,df,25,a8,f4,3a,45,5d,89,ba,8f,4a,62 ",",")
aBin = vbNullString
for i=0 to UBound(aStr)
aBin = aBin & ChrB(CByte("&H" & aStr(i)))
nextWshShell. RegWrite"...", aBin, "REG_BINARY"
http://forums.devshed.com/visual-basic-programming-52/writing-reg-binary-in-vbscript-80781.html
Private Const HKEY_CURRENT_USER = &H80000001
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const HKEY_USERS = &H80000003
Private Const HKEY_CURRENT_CONFIG = &H80000005
Private Sub Command1_Click()'写入注册表
Dim oReg As Object, uBinary
Set oReg = GetObject("winmgmts:\\.\root\default:StdRegProv")
uBinary = Array(&HA1, &H37, &HF3, &H2A)
oReg.SetBinaryValue HKEY_LOCAL_MACHINE, "system", "myBinary", uBinary
Set oReg = Nothing
End SubPrivate Sub Command2_Click()'从注册表中读
Dim oReg As Object, strValue
Set oReg = GetObject("winmgmts:\\.\root\default:StdRegProv")
oReg.GetBinaryValue HKEY_LOCAL_MACHINE, "system", "myBinary", strValue
For i = 0 To UBound(strValue)
List1.AddItem strValue(i)
Next
Set oReg = Nothing
End Sub
Dim aBin
aBin=Array(&HA1,&H37, &HF3, &H2A)
WshShell. RegWrite "...", aBin, "REG_BINARY"