Skip to main content
adicionou 544 caracteres ao conteúdo
Fonte Link
Pedro Gaspar
  • 3,4mil
  • 1
  • 16
  • 36

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:

https://pt.stackoverflow.com/q/283006/86952

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().

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:

https://pt.stackoverflow.com/q/283006/86952

adicionou 118 caracteres ao conteúdo
Fonte Link
Pedro Gaspar
  • 3,4mil
  • 1
  • 16
  • 36

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 o objetoa 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().

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 o objeto regKey não continha valor.

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: 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().

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().

Fonte Link
Pedro Gaspar
  • 3,4mil
  • 1
  • 16
  • 36

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 o objeto regKey não continha valor.

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: 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().