Preciso pegar informações referentes à rede para listar em uma aplicação que estou fazendo, porém estou com um problema ao acessar o Registry do Windows por causa da preferência do projeto.
Caminho: Clicar com o botão direito do mouse em cima da classe, clique em propriedades, e logo depois em compilador.
Note que abaixo do campo Target CPU, tem um CheckBox (Prefer 32-bit)
Se essa opção estiver ticada meu código não funciona em sistema 64 bits, porém se eu desabilitar minha aplicação não funciona na máquina 32 bits. Se eu comentar todos os procedimentos que buscam valores no regedit, a aplicação funciona em ambas.
Gostaria de saber se consigo fazer o acesso a chave de registro tanto em 64bits como em 32 bits.
Segue o código:
Public Sub ObterTipoDaRede(ByVal NomeConfiguracao As String, ByVal _
NomeConfiguracaoDois As String)
Dim NomeDaRede As String
Dim regKey
Dim lDatas As New List(Of KeyValuePair(Of String, DateTime))
'If Environment.Is64BitOperatingSystem Then
'Else
regKey = My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkList\Profiles")
'End If
Try
For Each SubK In regKey.GetSubKeyNames
Dim value = My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkList\Profiles\" + SubK)
Dim data = My.Computer.Registry.GetValue(value.ToString, "DateLastConnected", Nothing)
Dim dt As DateTime = ObterDataDoUltimoAcesso(data)
lDatas.Add(New KeyValuePair(Of String, Date)(SubK, dt))
Next
lDatas = lDatas.OrderByDescending(Function(x) x.Value).ToList
Dim t = lDatas.First
Dim chave = My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkList\Profiles\" + t.Key)
Dim nomeRede As String = My.Computer.Registry.GetValue(chave.ToString, "ProfileName", Nothing)
Dim tipoRede As String = My.Computer.Registry.GetValue(chave.ToString, "Category", Nothing)
NomeDaRede = nomeRede
Select Case tipoRede
Case 0
Me.PerfilDaRede = "Publica"
Case 1
Me.PerfilDaRede = "Privada"
Case 2
Me.PerfilDaRede = "Dominio"
End Select
Me.PreencherGriddgvDadosComputador(NomeConfiguracao, NomeDaRede, "Ok")
Me.PreencherGriddgvDadosComputador(NomeConfiguracaoDois, Me.PerfilDaRede, "Ok")
Catch ex As Exception
MsgBox("Teste", vbInformation)
End Try
End Sub
Se essa opção estiver ticada meu código não funciona, porém se eu desabilitar minha aplicação não funciona na máquina 32 bits.
Se eu entendi bem o seu código não funciona independente de a opção estar ativada ou não.