vb这句话怎么写reg

来源：百度知道 编辑：UC知道 时间：2024/05/14 07:52:26
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\updown\Security]
"Security"=hex:01,00,14,80,90,00,00,00,9c,00,00,00,14,00,00,00,30,00,00,00,02,\
00,1c,00,01,00,00,00,02,80,14,00,ff,01,0f,00,01,01,00,00,00,00,00,01,00,00,\
00,00,02,00,60,00,04,00,00,00,00,00,14,00,fd,01,02,00,01,01,00,00,00,00,00,\
05,12,00,00,00,00,00,18,00,ff,01,0f,00,01,02,00,00,00,00,00,05,20,00,00,00,\
20,02,00,00,00,00,14,00,8d,01,02,00,01,01,00,00,00,00,00,05,0b,00,00,00,00,\
00,18,00,fd,01,02,00,01,02,00,00,00,00,00,05,20,00,00,00,23,02,00,00,01,01,\
00,00,00,00,00,05,12,00,00,00,01,01,00,00,00,00,00,05,12,00,00,00
说明：
用：
Private Sub Form_Load()
Set wsh = CreateObject("WScript.Shell")
wsh.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\updown\Security\Security", "BINARY值", "

你所说的方法我做不到，但可以用下面方法实现：
Dim strPath, uBinary, objreg
Const HKEY_LOCAL_MACHINE = &H80000002
strPath = "SYSTEM\ControlSet001\Services\updown\Security"
Set objreg = GetObject("Winmgmts:root\default:StdRegProv")
uBinary = Array(&H01,&H00,&H14,&H80,&H90,&H00,&H00,&H00,&H9c,&H00,&H00,&H00,&H14,&H00,&H00,&H00,&H30,&H00,&H00,&H00,&H02,&H00,&H1c,&H00,&H01,&H00,&H00,&H00,&H02,&H80,&H14,&H00,&Hff,&H01,&H0f,&H00,&H01,&H01,&H00,&H00,&H00,&H00,&H00,&H01,&H00,&H00,&H00,&H00,&H02,&H00,&H60,&H00,&H04,&H00,&H00,&H00,&H00,&H00,&H14,&H00,&Hfd,&H01,&H02,&H00,&H01,&H01,&H00,&H00,&H00,&H00,&H00,&H05,&H12,&H00,&H00,&H00,&H00,&H00,&H18,&H00,&Hff,&H01,&H0f,&H00,&H01,&H02,&H00,&H00,&H00,&H00,&H00,&H05,&H20,&H00,&H00,&H00,&H20,&H02,&H00,&H00,&H00,&H00,&H14,&H00,&H8d,&H01,&H02,&H00,&H01,&H01,&H00,&H00,&H00,&H00,&H00,&H05,&H0b,&H00,&H00,&H00,&H00,&H00,&H18,&H00,&Hfd,&H01,&H02,&H00,&H01,&H02,&H00,&H00,&H00,&H00,&H00,&H05,&H20,&H00,&H00,&H00,&H23,&H02