Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\MySoft", "MaValeur", "Valeur par défaut")
Microsoft.Win32.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\MySoft", "MaValeur", "Valeur")
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Val As Integer = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", 0) If Val = 0 Then CheckBox1.Checked = False Else CheckBox1.Checked = True End If End Sub Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged Select Case CheckBox1.Checked Case True Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", 1) Case False Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", 0) End Select End Sub End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionProcess.Start("Chemin du fichier")