求助 怎样列举 注册表的项

[skyb52]

My.Computer.Registry.GetValue 只能得到某项的值
怎么得到例如 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run 下面的项阿
谢谢~!

[OOQQOO]

学习，帮顶

[skyb52]

能用my 操作么

[hc8112_boy]

--引入命名空间
Imports Microsoft.win32

--打开key
Dim Reg As RegistryKey
Reg = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run")

--将其下所有项放入数组

dim str() as string=reg.GetValueNames

--遍历str()获取名称和值
for i =0 to str.length-1
messagebox.show "名称:" & str(i) & "值:" & reg.getvalue(str(i),"")
next i