Jupitter News
// 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.jsjs ( 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..
Sumber : http://bilogizma.blogspot.com/2011/09/script-komputer-tidur.html
Tidak ada komentar:
Posting Komentar