1
EXE RANK
sAwjer`o
Fexe Kullanıcısı
XP Dahil Tüm Win Sistemlerde Görev Yöneticisini Devre Dışı Bırakmak
Herkeze Yeniden Merhaba Daha Önce C + + Için Yazmışdım VBasic Çevirmek Zor Olmadı.
Bu İşi Nasıl Yapıcağımıza Gelince Bildiğiniz Gibi XP,2000 gibi Sistemlede SystemParametersInfo Api si Çalışmıyordu Fakat Bill Amca Çok Açık Kapı Bırakıyor
Registry'a İnce Bir Ayarla İle Bu İşi Çözüyoruz
Önce Projenize Bir Modul Ekl
Kod:
eyin Ve Modul İçine Aşağıdaki Api Ve Sabitleri Yerleştirin
Herkeze Yeniden Merhaba Daha Önce C + + Için Yazmışdım VBasic Çevirmek Zor Olmadı.
Bu İşi Nasıl Yapıcağımıza Gelince Bildiğiniz Gibi XP,2000 gibi Sistemlede SystemParametersInfo Api si Çalışmıyordu Fakat Bill Amca Çok Açık Kapı Bırakıyor
Registry'a İnce Bir Ayarla İle Bu İşi Çözüyoruz
Önce Projenize Bir Modul Ekl
Kod:
- Public Const HKEY_CURRENT_USER = &H80000001
- Public Const REG_SZ = 1
- ‘Reg Aç
- Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
- ‘Reg Kapat
- Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Long) As Long
- ‘Reg Yaz
- Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
- ‘Reg Sil
- Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hkey As Long, ByVal lpValueName As String) As Long
- '98
- Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
- __________________________________________________ _______________________
- ‘Tanımlamalarımız Burda Bitdi
- ‘Şimdi Aşadaki Fonksiyonu Yazıyoruz
- Public Function TaskMgr(Enabled As Boolean)
- Dim Hkey As Long
- RegOpenKey HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policie s\System", Hkey
- If Enabled = False Then
- RegSetValueEx Hkey, "DisableTaskMgr", 0, REG_SZ, ByVal "0", 1
- SystemParametersInfo 97, True, 1, 0
- Else
- RegDeleteValue Hkey, "DisableTaskMgr"
- SystemParametersInfo 97, False, 1, 0
- End If
- RegCloseKey (Hkey)
- End Function
- ‘Şimdi Formunuza İki Button Ekleyin
- Private Sub Comm***1_Click()
- ‘Pasif Duruma Getirmek İçin
- TasMgr (False)
- End Sub
- Private Sub Comm***2_Click()
- ‘Aktif Duruma Getirmek İçin
- TasMgr (True)
- End SuB
eyin Ve Modul İçine Aşağıdaki Api Ve Sabitleri Yerleştirin