http://mampirbro.blogspot.com/2011/04/mematikan-komputer-via-klik-kanan-start.html
Pada postingan kali ini saya ingin berbagi bagaimana cara membuat pilihan "Komputer Mati" saat klik kanan pada start menu. Dengan adanya pilihan tersebut memudahkan sobat mematikan langsung komputer/laptop sobat. Yang kita butuhkan hanya program bawaan windows, notepad dan kode javascript. Script ini buatan dari yonatan prasdikatama. Ingin mencoba membuatnya? Monggo dibaca postingannya bro/sis...
Berikut Caranya:
Berikut Caranya:
- Buka program notepad.
- Copy-pastekan kode dibawah ini pada notepad:
- Simpan file dengan ekstensi .js dan simpan sebagai "all files".
- Klik pada file .js yang telah sobat buat tadi.
- Jika ada pilihan, pilih instal.
- Setelah itu tinggal klik kanan pada tombol startmenu, maka akan muncul teks "Matikan Windows".
// Program Sederhana Matiin Komputer Via Klik Kanan // Programmer : Yonatan Prasdikatama 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://www.mampirbro.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); }
Penampakan:
Semoga berguna dan bermamfaat...
Semoga berguna dan bermamfaat...
Tidak ada komentar:
Posting Komentar