Silakan copy dulu deh, ntar aku jelasin lagi...monggo...!!!
// Programmer : NewRule
var vbYesNoCancel = 3;
var vbYes = 6;
var vbNo = 7;
var vbQuestion = 32;
var vbInformation = 64;
var newrule = WScript.CreateObject ('WScript.Shell');
var kata = '.:: Shutdown Klik Kanan ::.';
var pesan1 = 'Tentukan Pilihan Anda:\n'+
'~~~~~~~~~~~~~~~~~~\n\n'+
'1. Klik ["YES"] : untuk Mengaktifkan.\n'+
'2. Klik ["NO"] : untuk Me-Non Aktifkan.\n'+
'3. Klik ["CANCEL"] : untuk Membatalkan.\n\n'+
'>> Silakan Pilih <<'
var tanya = newrule.popup
if (tanya == vbYes)
{
newrule.RegWrite('HKCR\\Directory\\shell\\mati\\',
'.::[ SHUTDOWN ]::.','REG_SZ');
newrule.RegWrite('HKCR\\Directory\\shell\\mati\\command\\', 'shutdown.exe -s -t 0','REG_SZ');
newrule.RegWrite('HKCR\\Drive\\shell\\mati\\',
'.::[ SHUTDOWN ]::.','REG_SZ');
newrule.RegWrite('HKCR\\Drive\\shell\\mati\\command\\',
'shutdown.exe -s -t 0','REG_SZ');
pesan2 = 'Shutdown Klik Kanan DIAKTIFKAN!';
newrule.popup(pesan2,0,kata,vbInformation);
}
else if (tanya == vbNo)
{
newrule.RegDelete('HKCR\\Directory\\shell\\mati\\command\\');
newrule.RegDelete('HKCR\\Directory\\shell\\mati\\');
newrule.RegDelete('HKCR\\Drive\\shell\\mati\\command\\');
newrule.RegDelete('HKCR\\Drive\\shell\\mati\\');
pesan3 = 'Shutdown Klik Kanan NON AKTIF!';
newrule.popup(pesan3,0,kata,vbInformation);
}
else
{
pesan4 = 'Pengaktifan Shutdown Klik Kanan DIBATALKAN!';
newrule.popup(pesan4,0,kata,vbInformation);
}
Untuk menjalankan file tersebut, silakan klik 2 kali lalu pilih Yes untuk mengaktifkan atau No untuk membatalkan pengaktifan.....
Bila anda menemui kesulitan, silakan tinggalkan komentar anda....
2 comments:
Kunjungan balik bos, Mantab bos Triknya, thanks.
Post a Comment
Silakan Berkomentar Di Sini Dengan Syarat :
1. Komentar anda tidak menyinggung SARA
2. Berikan komentar yang membangun, bukan yang semena-mena
3. Tersenyumlah sambil mengetikkan 'comment'
Bagi yang hanya sekedar 'blogwalking' di sini, silakan tinggalkan keterangan web title dan URL anda.
Hormat Saya,
Arifin