[VB.NET] Verificar existência de chave de registro
06/09/2015
0
Informações:
1- Preciso que ele leia a chave (DWORD): DisableAntiSpyware
2- Esta chave está localizada em: HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows Defender
Obs: Desculpa pela "noobisse", sou novo no assunto.
Abraços!
Daniel
Post mais votado
Mais Posts
06/09/2015
Daniel
06/09/2015
Jothaz
Os exemplos são bem completos, posta o código que você tem.
E o qual erro esta retornando.
06/09/2015
Daniel
/ Se possível, cria uma chave simples.
Dim Cr1 As RegistryKey = Registry.LocalMachine.CreateSubKey("SOFTWARE\Policies\Microsoft\Windows Defender")
/ Se possível, cria um valor DWORD dentro da chave criada.
Cr1.SetValue("DisableAntiSpyware", "00000000", Microsoft.Win32.RegistryValueKind.DWord)
/ Cria um objeto para guardar o valor do valor DWORD criado.
Dim WDKey As Object = Cr1.GetValue("DisableAntiSpyware")
/ Verificar o valor do valor DWORD e defini o que fazer dependendo da resposta.
If (WDKey <> "1") Then
lb_windefender.Text = "Windows Defender: Ativado"
lb_windefender.ForeColor = Color.Green
Else
lb_windefender.Text = "Windows Defender: Desativado"
lb_windefender.ForeColor = Color.Red
End If
- O código completo ficou assim:
Dim Cr1 As RegistryKey = Registry.LocalMachine.CreateSubKey("SOFTWARE\Policies\Microsoft\Windows Defender")
Cr1.SetValue("DisableAntiSpyware", "00000000", Microsoft.Win32.RegistryValueKind.DWord)
Dim WDKey As Object = Cr1.GetValue("DisableAntiSpyware")
If (WDKey <> "1") Then
lb_windefender.Text = "Windows Defender: Ativado"
lb_windefender.ForeColor = Color.Green
Else
lb_windefender.Text = "Windows Defender: Desativado"
lb_windefender.ForeColor = Color.Red
End If
08/09/2015
Jothaz
Dim Cr1 As RegistryKey = Registry.LocalMachine.CreateSubKey("SOFTWARE\Policies\Microsoft\Windows Defender") Cr1.SetValue("DisableAntiSpyware", "00000000", Microsoft.Win32.RegistryValueKind.DWord) Dim WDKey As Object = Cr1.GetValue("DisableAntiSpyware") If (WDKey <> "1") Then lb_windefender.Text = "Windows Defender: Ativado" lb_windefender.ForeColor = Color.Green Else lb_windefender.Text = "Windows Defender: Desativado" lb_windefender.ForeColor = Color.Red End If
09/09/2015
Daniel
Desculpa pela demora na resposta!
09/09/2015
Daniel
Desculpa pela demora na resposta!
Clique aqui para fazer login e interagir na Comunidade :)