用WHS写REG_BINARY类型的注册表键值,其结果格式不符.请高手指教.

liu-aguang

本人用下列语句在VBA中试图修改一键值:
    Set ws = CreateObject("WScript.Shell")
    ws.RegWrite "HKLM\SOFTWARE\Microsoft\Jet\4.0\Engines\Text\FirstRowHasNames", 0, "REG_BINARY"
查看注册表,其结果为:00 00
而其本身的格式应该是00
从修改后执行的情况看,两种格式产生的结果是不一样.请教如何用WHS实现当写入0时,注册表中结果格式为00,而不是00 00.谢谢!

jsxjd

试一下：

CByte(0)

liu-aguang

jsxjd 发表于 2014-12-14 23:18
试一下：

CByte(0)

OK! OK! 谢谢版主大人.
不过很奇怪,昨天我用下列语句,却提示类型不符:
    Dim strValue As Byte
    strValue = 0
    Ws.RegWrite "HKLM\SOFTWARE\Microsoft\Jet\4.0\Engines\Text\FirstRowHasNames", strValue, "REG_BINARY"     '提示类型不配

jsxjd

liu-aguang 发表于 2014-12-15 08:57
OK! OK! 谢谢版主大人.
不过很奇怪,昨天我用下列语句,却提示类型不符:
    Dim strValue As Byte

似乎不应该？

liu-aguang

jsxjd 发表于 2014-12-15 11:45
似乎不应该？

重新测试了一下,的确不能用Dim定义变量的数据类型,否则会出错,下列两种写法都会出错:
dim strValue as Byte
strValue=0
或
dim strValue as Byte
strValue=Cbyte(0)
而只用下列语句则正确:
strValue=Cbyte(0) 或者直接在表达式中用Cbyte(0)

顺便请教一下版主,在解决这个问题的过程中,看到一位离任版主写的修改注册表专门文章:谈及了REG_BINARY用WSH写键值的问题.它谈到了可用十进制数字(0X)也或用十六进制数字,并没有用额外的代码转换为二进制.而我在自已的平台(win7 64 office 2010 32)上,却直接提示错误.
请问,是当时版主没有直接测试而误谈,还是可以在某种环境下可以那样做?谢谢!

jsxjd

1楼的写法不就是十进制数？