04-10-2017, 04:25 AM
Merhabalar Arkadaşlar Bugün Sizlere Görev Yöneticisi Kilitleme Kodunu Vereceğim.
Imports Microsoft.Win32 'register için
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
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()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
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.DeleteValue("DisableTaskMgr")
reg.SetValue("DisableTaskMgr", 0)
reg.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Dim info As New ProcessStartInfo("taskmgr.exe")
Process.Start(info)
End Sub
End Class