2008-12-21

Cara Simple mengenable atau mendisabled task manager

Banyak cara untuk mendisabled task manager. salah satunya make dengan menyetting billing explorer, disetting enable/disabled tentunya login dulu di billingnya. make ansav juga bisa mengenabled/disabled task manager.
Tentunya bagi pengelola warnet, bila tidak ingin task manager bisa dibuka oleh usernya. memang apa sih bahayanya???.... billing explorer atau apapun yg berbasis windows bisa ditaklukkan/dihack hanya dengan task manager. kok bisa ??? klo tutorial ini lain kali aja ya... hehehe.
ok langsung aja dengan code simple yahhh...

langkah pertama buka notepad

selanjutnya copy paste kode dibawah ini
Code:
cls
@ECHO OFF
title Folder Private
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
if NOT EXIST Private goto MDLOCKER
Option Explicit
'Declare variables
Dim WSHShell, rr, rr2, MyBox, val, val2, ttl, toggle
Dim jobfunc, itemtype

On Error Resume Next

Set WSHShell = WScript.CreateObject("WScript.Shell")
val = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
val2 = "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
itemtype = "REG_DWORD"
jobfunc = "http://nur-punya.blogspot.com "
ttl = " AsOy™v1.0"

'reads the registry key value.
rr = WSHShell.RegRead (val)
rr2 = WSHShell.RegRead (val2)

toggle=1
If (rr=1 or rr2=1) Then toggle=0

If toggle = 1 Then
WSHShell.RegWrite val, 1, itemtype
WSHShell.RegWrite val2, 1, itemtype
Mybox = MsgBox(jobfunc & "Tutup Task Manager", 4096, ttl)
Else
WSHShell.RegDelete val
WSHShell.RegDelete val2
Mybox = MsgBox(jobfunc & "Buka Task Manager", 4096, ttl)
End If

selanjutnya save dengan nama Tas Man.vbs , save as type all file

kemudian buka file Tas Man.vbs yg barusan dibuka, apa yang terjadi bla bla bla.... yg sebelumnya enabled akan menjadi disabled.
silahkan mencoba semoga berguna :)