جلوگیری از خاموش شدن سیستم

Static masir As String = "software\microsoft\windows\currentversion\policies\explorer"
Dim regeditkey As RegistryKey
regeditkey = Registry.CurrentUser
regeditkey = regeditkey.CreateSubKey(masir)
regeditkey.SetValue("NoClose", 1, RegistryValueKind.DWord)


System.Diagnostics.Process.Start("explorer.exe")