Visual Basic Görev Yöneticisi Engelleme Ve Açma Kodu
Trojan \\1
![](http://i.hizliresim.com/2nAZZj.png)
Kodun Çalışması İçin Program Yönetici Olarak Çalışması Gerek Bunu İçin
![](http://i.hizliresim.com/m4BLL1.png)
Basıp
![](http://i.hizliresim.com/jXZnnn.png)
Deyiştirmemiz Lazım
![](http://i.hizliresim.com/EroJJ8.png)
Bu Şekilde Engellemiş Olduk
Diğer Kodlarda Görüşme Üzere...
Trojan \\1
![](http://i.hizliresim.com/2nAZZj.png)
Kodun Çalışması İçin Program Yönetici Olarak Çalışması Gerek Bunu İçin
![](http://i.hizliresim.com/m4BLL1.png)
Basıp
![](http://i.hizliresim.com/jXZnnn.png)
Deyiştirmemiz Lazım
![](http://i.hizliresim.com/EroJJ8.png)
Bu Şekilde Engellemiş Olduk
Diğer Kodlarda Görüşme Üzere...
Kod:
Public Class Form1
Public TaskMngKapalı As Boolean = False
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
'TaskManager (Görev Yöneticisini) Aç
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(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'TaskManager (Görev Yöneticisini) 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 Class