Anda ingin menambahkan menu pada klik kanan pada start menu, yang seperti tertampil pada gambar di samping. Ini merupakan alternatif lain selain shortcut yang sudah biasa. Anda dapat melakukan hal ini untuk jalan pintas dalam menjalankan aplikasi/software yang ada. Langkahnya cukup mudah. Hal pertama yang harus anda lakukan ialah membuka notepad, kemudian salin script di bawah ini ada notepad yang dibuka :
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 = '.:: terserah anda#1 ::.';
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\\', 'Firefox!','REG_SZ'); natan.RegWrite('HKCR\\Directory\\shell\\mati\\command\\', 'firefox.exe -s -t 0','REG_SZ'); natan.RegWrite('HKCR\\Drive\\shell\\mati\\', 'Firefox!','REG_SZ'); natan.RegWrite('HKCR\\Drive\\shell\\mati\\command\\', 'firefox.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); } Script di atas adalah untuk membuka firefox, maka pada regwrite di tulis firefox.exe dan namanya firefox. Kalau nama bisa terserah anda, begitu juga kata-kata yang ada dalam bahasa Indonesia bisa anda ganti sesuka anda. Dan program yang hendak digunakan juga terserah anda, asal sudah terinstal, misal ingin untuk membuka winamp bisa di tuliskan winamp.exe menggantikan firefox.exe, jika untuk mematikan komputer bisa di tulis shutdown.exe, dan lain sebagainya. Semoga bermanfaat.
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 = '.:: terserah anda#1 ::.';
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\\', 'Firefox!','REG_SZ'); natan.RegWrite('HKCR\\Directory\\shell\\mati\\command\\', 'firefox.exe -s -t 0','REG_SZ'); natan.RegWrite('HKCR\\Drive\\shell\\mati\\', 'Firefox!','REG_SZ'); natan.RegWrite('HKCR\\Drive\\shell\\mati\\command\\', 'firefox.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); } Script di atas adalah untuk membuka firefox, maka pada regwrite di tulis firefox.exe dan namanya firefox. Kalau nama bisa terserah anda, begitu juga kata-kata yang ada dalam bahasa Indonesia bisa anda ganti sesuka anda. Dan program yang hendak digunakan juga terserah anda, asal sudah terinstal, misal ingin untuk membuka winamp bisa di tuliskan winamp.exe menggantikan firefox.exe, jika untuk mematikan komputer bisa di tulis shutdown.exe, dan lain sebagainya. Semoga bermanfaat.
