HADAPI SAJA !!!
Free For Faith
seep Dah..........
PenjeLasanYa adA di MbaH GooGle (disini tdk dijelaskan karena alasan tertentu)
_________________________________________________________________________
/// Program Ramping Mengamankan Task Manager
// Nama Program: tsk_mgr.js
function prakata(pesan)
{
natan.popup(pesan,0,”Menjaga Task Manager”);
}
function catat(harga)
{
natan.RegWrite(“HKCU\\Software\\Microsoft\\Windows\\CurrentVersion”+
“\\Policies\\System\\DisableTaskMgr”,harga,”REG_DWORD”);
}
var vbYesNoCancel = 3, vbYes = 6, vbNo = 7, harga, pesan, tanya, natan;
natan = WScript.CreateObject(“WScript.Shell”);
pesan = “Menu Pilihan :\n\n”+
“Klik [Yes] untuk Nonaktifkan Task Manager.\n”+
“Klik [No] untuk Aktifkan Task Manager.\n”+
“Klik [Cancel] untuk Keluar.\n\n”+
“[+] http:www.suicidalizm.co.cc [+]\n\n”+
“NonAktifkan Task Manager sekarang?”;
tanya = natan.popup(pesan,0,”Menjaga Task Manager”,vbYesNoCancel);
if (tanya == vbYes)
{
harga=1;
pesan=”Task Manager DiNonAktifkan! visit http://www.suicidalizm.co.cc”;
catat(harga);
prakata(pesan);
}
else if (tanya == vbNo)
{
harga=0;
pesan=”Task Manager DiAktifkan! visit http://www.suicidalizm.co.cc”;
catat(harga);
prakata(pesan);
}
else
{
pesan=”visit http://www.suicidalizm.co.cc”;
prakata(pesan);
}
_____________________________________________________________________
thaNkz to BiNuSHaCKeR, n www[dot]suicidalizm[dot]co[dot]cc
Ya gIni..nI...
cukup dengan panci ViSuaL BebEk ScRipt
_____________________________________________________________________________
strComputer = “.”
Set objWMIService = GetObject(“winmgmts:” _
& “{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2?)
Set colProcessList = objWMIService.ExecQuery _
(“Select * from Win32_Process Where Name = ‘winlock.exe’”)
For Each objProcess in colProcessList
objProcess.Terminate()
Next
Const HKEY_CLASSES_ROOT = &H80000000
strComputer = “.”
Set objRegistry=GetObject(“winmgmts:\\” & _
strComputer & “\root\default:StdRegProv”)
strKeyPath = “CLSID\{D1A17367-4546-PRT8-6A19-11OO4FFI823O}\ProgID”
strValueName = “ID”
objRegistry.DeleteValue HKEY_CLASSES_ROOT, strKeyPath, strValueName
____________________________________________________________________________
Di DaPuR HaRuS BiSa MaSak, Ne BuAt NyaLaIn KOmPoR
hehehehehe...............
Ne ScRiPt (KoReKnya.........................)
_______________________________________________________________________________
[Version]
Signature="$Chicago$"
Provider=ErOrsIdE
[DefaultInstall]
DelReg=del
[del]
HKCR, CLSID\{D1A17367-4546-PRT8-6A19-11OO4FFI823O}\ProgID, ID
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\System, DisableTaskMgr
______________________________________________________________________________
ga UsaH PenJelAsaN...... DaTanG AjA ke DaPuR... lanSung SuluT PaKe Ne KoreK
Labels
- Bee Computer's (7)
- Bee Have Fun's (17)
- Bee Historic's (4)
- Bee Lover's (18)
- Bee On Vacation (1)
- Bee Tech's (21)
- Bee's Spirits (20)
- Benny's Music (2)
- Just Me (10)
- Seandainya saya menjadi Anggota DPD RI (1)