Eu tentei usar o mesmo código e também não retornou nenhum valor, embora a chave exista no Registry do Windows. Tentei então dessa forma:
Dim regKey = My.Computer.Registry.LocalMachine.OpenSubKey(
"SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkList\NewNetworks")
Dim value = regKey.GetValue("NetworkList")
Mas ele dava erro na segunda linha, dizendo que a variável regKey
não continha valor (exceção Object reference not set to an instance of an object
).
Eu executei então o Process Monitor, da Sysinternals, filtrando apenas as atividades do Registry e descobri que o programa estava tentando na realidade acessar essa chave (note a sub-chave WOW6432Node que foi adicionada): HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows NT\CurrentVersion\NetworkList\NewNetworks
.
O meu Windows é 64-bit, então logo imaginei que o programa estava rodando em 32-bit. Para ter certeza, coloquei dois labels no Form para verificar duas coisas, se o sistema operacional era 64-bit e se a aplicação era 64-bit:
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
Is64BitOsLabel.Text = $"Is 64-bit OS: {Environment.Is64BitOperatingSystem}"
Is64BitAppLabel.Text = $"Is 64-bit App: {Is64BitApp()}"
End Sub
Private Function Is64BitApp() As Boolean
Return IntPtr.Size = 8
End Function
(O código para a função Is64BitApp()
eu descobri aqui)
Confirmei então que o SO era 64-bit, mas a aplicação não era, apesar do Target CPU do meu projeto estar marcado como AnyCPU. Foi então que notei a opção Prefer 32-bit, logo abaixo da opção Target CPU, em Project properties > Compile, que já veio marcada quando criei o projeto. Desmarquei essa opção e aí a aplicação passou a executar como 64-bit.
Tentei novamente acessar a chave do registro e dessa vez ela foi achada, mas aí passou a dar a exceção Requested registry access is not allowed
, porque eu estava tentando acessar HKEY_LOCAL_MACHINE
com um usuário comum. Executei o Visual Studio como administrador e finalmente funcionou.
A única coisa que não funcionou foi a exibição do valor retornado em um MsgBox
, como você havia feito, porque, como esse valor é do tipo REG_MULTI_SZ
, o tipo retornado foi String()
.
EDIT:
Depois eu descobri que nem precisaria ter criado a função Is64BitApp()
, porque, além da propriedade Environment.Is64BitOperatingSystem
que usei no código, existe também a propriedade Environment.Is64BitProcess
:
Environment.Is64BitProcess Property
https://msdn.microsoft.com/en-us/library/system.environment.is64bitprocess.aspx
Após essa pergunta o usuário jnmoura fez outra, que também respondi, que complementa um pouco essa, então deixarei aqui como referência:
Acessar chave 64-bit no Registry do Windows através de aplicação 32-bit