Tips dan Trick Internet dan Komputer

Punya ide unik atau iseng atau info lowongan kerja, dan anda pengen diposkan disini... silakan kirim ke email kami yah!.. revieads@gmail.com

Monday, January 3, 2011

taskmanager kompi kamu gk bisa? biarin aja !..

Kalo di anggap perlu banget mao di aktifin ulang sama tu ama aktifin kembali regedit. singkat padat alias efisien.. gk ribet dan gk makan waktu. carana kopas aja ne script di notepad kamu simpan aja tah apa namanya yang penting extensen nya vbs. misal na taskmanager.vbs
ini neh script na:


===================================================================

'Enable/Disable Task Manager
'By PatheticCockroach - based on an idea by Doug Knox
'© 2005 MPAM Rebooted - http://patheticcockroach.com
'This code may be freely distributed/modified as long as it remains free of charge

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 = "Task Manager is now "
ttl = "Result"

'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 & "disabled.", 4096, ttl)
Else
    WSHShell.RegDelete val
    WSHShell.RegDelete val2
    Mybox = MsgBox(jobfunc & "enabled.", 4096, ttl)
End If

====================================================================
ingat garis na gk ikut lah ya !

No comments:

Post a Comment