C# KOD ÖRNEKLERİ: Görev Yöneticisini Kilitlemek (TaskManager)

Görev Yöneticisini Kilitle-Aç KOD İNDİR

Görev Yöneticisini Kilitle-Aç EXE İNDİR

NOT : Projeden Görev Yöneticisine müdahale etmek için (Çözüm Gezgininden\My Project\View Windows Settings) düğmesinden açılacak kod penceresindeki ( <requestedExecutionLevel level="asInvoker" uiAccess="false" />) Komutunu ( <requestedExecutionLevel level="requireAdministrator" uiAccess="false" />) olarak değiştirmelisiniz aksi halde kilitlemenize izin vermez.

Imports Microsoft.Win32 'register için

Imports Microsoft.Win32

Public Class CtrAltDelFrm
    Public TaskMngKapalı As Boolean = False

#Region "   GÖREV YÖNETİCİSİ (TASKMANAGER) İŞLEMLERİ  "

Public Sub TaskMgr_Calistir()
        'TaskManager (Görev Yöneticisini) Çalıştır
        Try

Dim info As New ProcessStartInfo("taskmgr.exe")
            Process.Start(info)

Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Public Sub TaskMng_KodunuAc()
        Try

'TaskManager (Görev Yöneticisini) Registerden ( reg.SetValue("DisableTaskMgr", "0") değeri ile AÇIK hale getir
            Dim reg As Microsoft.Win32.RegistryKey
            Dim subKey As String = "Software\Microsoft\Windows\CurrentVersion\Policies\System"

reg = Microsoft.Win32.Registry.CurrentUser.CreateSubKey(subKey)
            reg.DeleteValue("DisableTaskMgr")
            reg.SetValue("DisableTaskMgr", 0)
            reg.Close()
            TaskMngKapalı = False
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Public Sub TaskMng_KodunuKilitle()
        'TaskManager (Görev Yöneticisini) Registerde  ( reg.SetValue("DisableTaskMgr", "1") değeri ile Kilitle
        Try
            Dim reg As Microsoft.Win32.RegistryKey
            Dim subKey As String = "Software\Microsoft\Windows\CurrentVersion\Policies\System"

reg = Microsoft.Win32.Registry.CurrentUser.CreateSubKey(subKey)
            reg.SetValue("DisableTaskMgr", "1")
            reg.Close()
            TaskMngKapalı = True

Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

End Sub

#End Region

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

Call TaskMng_KodunuKilitle()
        PictureBox2.Visible = True
        PictureBox1.Visible = False
        PictureBox3.Visible = False
    End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Call TaskMng_KodunuAc()
        PictureBox2.Visible = False
        PictureBox1.Visible = True
        PictureBox3.Visible = False
    End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Call TaskMgr_Calistir()
        PictureBox2.Visible = False
        PictureBox1.Visible = False
        PictureBox3.Visible = True
    End Sub
End Class

7 Mart 2016 Pazartesi

Görev Yöneticisini Kilitlemek (TaskManager)

Hiç yorum yok:

Yorum Gönder