1,485
社区成员
发帖
与我相关
我的任务
分享
Sub main()
Dim oA As New AceCnfViewer.RegConstants, Ob As New AceCnfViewer.Key, Oc As New AceCnfViewer.Key
Ob.Handle = oA.HKeyLocalMachine
Set Oc = Ob.OpenSubKey("software")
Debug.Print Oc.SubKeys.Count
End Sub
Option Explicit
Const REG_SZ = 1 ' Unicode nul terminated string
Sub main()
Dim oA As New AceCnfViewer.RegConstants, Ob As New AceCnfViewer.Key, Oc As New AceCnfViewer.Key
Ob.Handle = oA.HKeyLocalMachine
Set Oc = Ob.OpenSubKey("software\tlv_zhyj")
Debug.Print Oc.SubKeys.Count
Oc.Values.Add "my", REG_SZ, "12345"
End Sub