Program Sederhana Matiin Komputer Via Klik Kanan

Mohon maaf, tulisan saya bukan bermaksud untuk menyombongkan seseorang, tetapi hanya untuk sekedar sharing saja. seandainya mengganggu dihapus saja. Terima kasih.

Copy script ini di notepad

===============Copy This Script=================

var vbCancel = 2;var vbYesNoCancel = 3;var vbYes = 6;var vbNo = 7;var vbQuestion = 32;var vbInformation = 64;var natan = WScript.CreateObject('WScript.Shell');var kata = '.:: http://wc-code.blogspot.com ::.';var pesan1 = 'Pilihlah opsi berikut ini:\n'+'--------------------------\n\n'+'1. Klik ["Yes"] -> untuk Pasang.\n'+'2. Klik ["No"] -> untuk Copot.\n'+'3. Klik ["Cancel"] -> untuk Berhenti.\n\n'+'>> Pilihan Anda? <<' var tanya = natan.popup(pesan1,0,kata,vbYesNoCancel+vbQuestion); if (tanya == vbYes) { natan.RegWrite('HKCR\\Directory\\shell\\mati\\', '> Matikan Windows!','REG_SZ');natan.RegWrite('HKCR\\Directory\\shell\\mati\\command\\','shutdown.exe -s -t 0','REG_SZ');natan.RegWrite('HKCR\\Drive\\shell\\mati\\','> Matikan Windows!','REG_SZ');natan.RegWrite('HKCR\\Drive\\shell\\mati\\command\\','shutdown.exe -s -t 0','REG_SZ');pesan2 = 'Selesai di pasang!';natan.popup(pesan2,0,kata,vbInformation);}else if (tanya == vbNo){natan.RegDelete('HKCR\\Directory\\shell\\mati\\command\\');natan.RegDelete('HKCR\\Directory\\shell\\mati\\');natan.RegDelete('HKCR\\Drive\\shell\\mati\\command\\');natan.RegDelete('HKCR\\Drive\\shell\\mati\\');pesan3 = 'Selesai di copot!';natan.popup(pesan3,0,kata,vbInformation);}else{pesan4 = 'Berhenti!';natan.popup(pesan4,0,kata,vbInformation);}

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

Simpanlah dengan nama KomputerTidur.js, kemudian ubah Save as type yang tadinya Text Documents (*.txt)menjadi All Files. Kemudian jalankan file tersebut. CMIIW