// Program Sederhana Matiin Komputer Via Klik Kanan// Programmer : Yonatan Prasdikatamavar 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://ikatama.wordpress.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);}
copas di notepad, simpan dengan nama : komputermati.js
js ( java script )
setelah itu clik dua kali lalu ok..
reaksinya, clik kanan pada setar menu...wisss..
ada tampilan baru!!!
yaitu tulisan ( matikan windows! )
semoga bermanfaat..
eh gan, itu yg tulisan // Program Sederhana Matiin Komputer Via Klik Kanan// Programmer : dimasukkan juga gak ? harap balas seceptnya
BalasHapusitu dimasukin juga gan
BalasHapus