Drenated
Legend Member
- Joined
- Nov 23, 2019
- Topics
- 454
- Messages
- 1,853
- Solutions
- 162
- Reaction score
- 1,523
Merhabalar Arkadaşlar.
Bu Konumda Sizlere Vb.net Dili Üzerinden Görev Yöneticisi Engellemeyi Göstericem.
Öncelikle Bir Form Application Yaratalım Ve İçerisine Başlat Ve Durdur Diye 2 Tane Button Koyalım
Fakat Bundan Önce Programımızı Yönetici Olarak Başlamaya Ayarlamamız Lazım Bunun İçin Şurada Uygulamanızın İsmi Yazar Ben İsim Koymadığım İçin WindowsApplication Diye Gözüküyor Ona Sağ Tıklayıp Properties Bölümünü Açıyoruz.
Daha Sonra Oradan View Windows Settings ' i Açıyoruz.
Önümüze Programımızın Manifest Kısmı Geldi Orada Yazan
Bu Konumda Sizlere Vb.net Dili Üzerinden Görev Yöneticisi Engellemeyi Göstericem.
Öncelikle Bir Form Application Yaratalım Ve İçerisine Başlat Ve Durdur Diye 2 Tane Button Koyalım
Fakat Bundan Önce Programımızı Yönetici Olarak Başlamaya Ayarlamamız Lazım Bunun İçin Şurada Uygulamanızın İsmi Yazar Ben İsim Koymadığım İçin WindowsApplication Diye Gözüküyor Ona Sağ Tıklayıp Properties Bölümünü Açıyoruz.
Daha Sonra Oradan View Windows Settings ' i Açıyoruz.
Önümüze Programımızın Manifest Kısmı Geldi Orada Yazan
Code:
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
Kısmındaki asInvoker Yerine requireAdministrator Yazıyoruz Ve O Pencereyi Kapıyoruz
Daha Sonrasında Kodlara Gelebiliriz.
En Son Bu Şekilde Olan Formumuzun Başlat Buttonuna Şu Kodları Yazalım.

Daha Sonrasında Kodlara Gelebiliriz.

En Son Bu Şekilde Olan Formumuzun Başlat Buttonuna Şu Kodları Yazalım.
Code:
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
Durdur Buttonundaki Kod Kısmınada
Code:
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
Yazıp Programımızı Kaydedip Çıkalım.
Sonra Programı Debuglamaya Çalıştığınızda Bişey Gelicek Ona Üsttekini Seçip Geçiyorsunuz O Size Bu Programın Yönetici Olarak Çalıştırılması Gerektiğini Söylüyor. Daha Sonra Program Çalışıyor. !

Sonra Programı Debuglamaya Çalıştığınızda Bişey Gelicek Ona Üsttekini Seçip Geçiyorsunuz O Size Bu Programın Yönetici Olarak Çalıştırılması Gerektiğini Söylüyor. Daha Sonra Program Çalışıyor. !