Menonaktifkan Task Manager

Kode berikut ini berfungsi untuk menonaktifkan fasilitas Task Manager di Windows.

Buat sebuah Module baru dan ketikkan :

Public Sub DisableTaskManager(ByVal State As Boolean)
On Error Resume Next
Dim o As Object
Set o = CreateObject("wscript.shell")
o.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", CInt(State), "REG_DWORD"
End Sub

Untuk menonaktifkan Task Manager, tinggal menuliskan kode berikut :

DisableTaskManager True

Untuk mengaktifkan kembali Task Manager ketikkan :

DisableTaskManager False