프로그래밍

[vb.net] Get list all subkeys from Registry

프로세스 천국 2014. 7. 9. 01:07

서브키 3단 이상은 구글링해봐도 나오질 않는다.

이 방법외에는 없을듯..

사용법은 각자 알아서..

 

Private Sub listallsubkeys(ByVal lst As List(Of String), ByVal regpath As String)
Dim regkeyread As Microsoft.Win32.RegistryKey
Dim subk As New List(Of String)
regkeyread = My.Computer.Registry.LocalMachine.OpenSubKey(regpath, False)
If Not regkeyread Is Nothing Then
For Each sstr As String In regkeyread.GetSubKeyNames
regkeyread = My.Computer.Registry.LocalMachine.OpenSubKey(regpath & "\" & sstr, False)
If regkeyread.SubKeyCount = 0 Then
lst.Add(regpath & "\" & sstr)
Else
subk.Add(regpath & "\" & sstr)
End If
Next
End If
For Each substr As String In subk
listallsubkeys(lst, substr)
Next
End Sub

 

 

Dim ar As New List(Of String)
listallsubkeys(ar, "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer")

For each asdf as String in ar

'Do ("blah blah")

Next

 

 

결과값

SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\WCDEn
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\WindowsUpdate
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\KindMap
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\DelayedApps
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\AutoCheckSelect
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\FolderSizeTip
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideDrivesWithNoMedia
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExt
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\PersistBrowsers
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SharingWizardOn
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\ShowCompColor
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\ShowDriveLetters
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\ShowFullPath
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\ShowInfoTip
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\ShowPreviewHandlers
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\ShowTypeOverlay
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\AlwaysShowMenus\Policy\AlwaysShowClassicMenu
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\DesktopProcess\Policy\SeparateProcess
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\IconsOnly\Policy\DisableThumbnails
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden\Policy\DontShowSuperHidden
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\TypeAhead\USELISTVIEW
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\TypeAhead\USEWORDWHEEL
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AppKey\15
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AppKey\16
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AppKey\17
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AppKey\18
SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AppKey\7

.

.

.