منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كود تعطيل CTRL+ALT+DEL - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [سؤال] كود تعطيل CTRL+ALT+DEL (/showthread.php?tid=1911)

كود تعطيل CTRL+ALT+DEL - نبيل جعران - 14-02-14

كود تعطيل CTRL+ALT+DEL

RE: كود تعطيل CTRL+ALT+DEL - ربيع - 14-02-14

نحمده ونصلي على رسوله الكريم

تعطيل:

كود :
Try
    Using rk As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\System")
        rk.SetValue("DisableTaskMgr", 1, Microsoft.Win32.RegistryValueKind.DWord)
    End Using
Catch
End Try

تفعيل:

كود :
Try
    Using rk As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\System", True)
        rk.SetValue("DisableTaskMgr", 0, Microsoft.Win32.RegistryValueKind.DWord)
    End Using
Catch
End Try