<requestedExecutionLevel level="asInvoker" uiAccess="false" />
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
Try Dim rs As New RegistrySecurity() Dim user As String = Environment.UserDomainName & "" & Environment.UserName rs = New RegistrySecurity() rs.AddAccessRule(New RegistryAccessRule(user, _ RegistryRights.SetValue, _ AccessControlType.Allow)) Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background") key.SetAccessControl(rs) key.SetValue("OEMBackground", "1", RegistryValueKind.DWord) key.Flush() key.Close() Catch ex As Exception MsgBox(ex.Message & "; " & ex.Data.ToString & "; " & ex.HelpLink & "; " & ex.Source & "; " & ex.StackTrace & "; " & ex.TargetSite.ToString & ".") End Try
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim key As RegistryKey = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry64) key = key.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background") '... suite de ton code
Dim key As RegistryKey = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry64) key = key.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background") key.SetValue("OEMBackground", "1", RegistryValueKind.DWord) key.Flush() key.Close()
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background", "OEMBackground", "1", RegistryValueKind.DWord)
J'ai trouvé un solution un peut bancale au problèmeLa vérité est ailleurs dans le reste de ton code. Et ce n'est pas bien de se contenter d'une 'solution bancale' alors que le fait de rechercher la véritable cause de l'erreur te serait bien plus profitable.
C'est pour cela qu'on a inventé le mode 'pas à pas' (F8) ainsi que les espions.