PROBLEMAS PARA LER REGISTRO
Pessoal preciso verificar no registro do Windows se as chaves existem, estou tentando com um exemplo do Macoratt mas não obtive sucesso, alguém poderia dar uma olhada por favor.
Ele sempre dá a mensagem NÃO ENCONTRADO mas se eu tirar o [Ô]+pSubKey[Ô] ele só dá encontrado.
Eu fiz um array com as chaves abaixo e preciso verificar se existe 1 por 1 ....
Chaves:
Dim RegistrosChaves() As String = {[Ô]Cisco WebEx Connect[Ô], [Ô]ApnUpdater[Ô], [Ô]NeroFilterCheck[Ô], [Ô]IgfxTray[Ô]}
Função:
Public Function fncDeletaRegistros(ByVal pSubKey As String) As Boolean
[ô]Public Function removerRegistroMaquina(ByVal pNome As String) As Boolean
Dim myKey As Microsoft.Win32.RegistryKey
Dim regLocalMachine As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
myKey = regLocalMachine.OpenSubKey([Ô]Software\Microsoft\Windows\CurrentVersion\Run\[Ô] + pSubKey, True)
If Not myKey Is Nothing Then
MsgBox([Ô]Encontrado[Ô])
Else
MsgBox([Ô]Não Encontrado[Ô])
End If
Ele sempre dá a mensagem NÃO ENCONTRADO mas se eu tirar o [Ô]+pSubKey[Ô] ele só dá encontrado.
Eu fiz um array com as chaves abaixo e preciso verificar se existe 1 por 1 ....
Chaves:
Dim RegistrosChaves() As String = {[Ô]Cisco WebEx Connect[Ô], [Ô]ApnUpdater[Ô], [Ô]NeroFilterCheck[Ô], [Ô]IgfxTray[Ô]}
Função:
Public Function fncDeletaRegistros(ByVal pSubKey As String) As Boolean
[ô]Public Function removerRegistroMaquina(ByVal pNome As String) As Boolean
Dim myKey As Microsoft.Win32.RegistryKey
Dim regLocalMachine As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
myKey = regLocalMachine.OpenSubKey([Ô]Software\Microsoft\Windows\CurrentVersion\Run\[Ô] + pSubKey, True)
If Not myKey Is Nothing Then
MsgBox([Ô]Encontrado[Ô])
Else
MsgBox([Ô]Não Encontrado[Ô])
End If
RESOLVIDO
[ô] Retorna dados de um registro
Dim pRegKey As RegistryKey = Registry.CurrentUser
pRegKey = pRegKey.OpenSubKey([Ô]SOFTWARE\\MICROSOFT\\WINDOWS\\CURRENTVERSION\\RUN[Ô])
Dim val As Object = pRegKey.GetValue(pSubKey)
If Not val Is Nothing Then
Console.WriteLine([Ô]O processador central para esta máquina é : [Ô] + val)
Else
MsgBox([Ô]NAO[Ô])
End If
[ô] Retorna dados de um registro
Dim pRegKey As RegistryKey = Registry.CurrentUser
pRegKey = pRegKey.OpenSubKey([Ô]SOFTWARE\\MICROSOFT\\WINDOWS\\CURRENTVERSION\\RUN[Ô])
Dim val As Object = pRegKey.GetValue(pSubKey)
If Not val Is Nothing Then
Console.WriteLine([Ô]O processador central para esta máquina é : [Ô] + val)
Else
MsgBox([Ô]NAO[Ô])
End If
Tópico encerrado , respostas não são mais permitidas