Icatama

admin 16 January 2008 tip trick No Comment

Increasing number of application shortcuts on the Programs listed will result in slow access to the next shortcut, for example, if you want to access the Notepad shortcut in the Accessories to wait several seconds because many applications have shortcuts on Programs, and Notepad is the most important applications to record important addresses or as a note while. Surely this will be very burdensome for the user’s PC (Personal Computer) that has a decent memory capacity smaller. Well, how to effectively deal with it? Why not through just RUN? Because the RUN computer users are required to type the application to be accessed. So what if the user is either forgotten or to name the application to be accessed. Certainly be very inconvenient and time consuming enough. Because of these factors made it this guide. Want to know how? Follow how to create shortcuts for your most important applications like this.
Make this script under the program through Notepad and save it with the name change ShortcutNotePad.js and Save as type who was from Text Documents (*. txt) to All Files. Disable Word Wrap is also available in Notepad when typing the script program.

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 pesan1 = ‘Pilihan Buka NotePad:\n\n’+
‘[Yes] untuk Install.\n’+
‘[No] untuk UnInstall.\n’+
‘[Cancel] untuk Keluar.\n\n’+
‘[mailto:prasdikatamajr@yahoo.com]\n\n’+
‘-> Install sekarang?’
var tanya = natan.popup(pesan1,0,’Buka NotePad’,vbYesNoCancel+vbQuestion);
if (tanya == vbYes)
{
natan.RegWrite(‘HKCR\\Directory\\shell\\komando\\’,'-> Buka NotePad!’,'REG_SZ’);
natan.RegWrite(‘HKCR\\Directory\\shell\\komando\\command\\’,'notepad.exe’,'REG_SZ’);
natan.RegWrite(‘HKCR\\Drive\\shell\\komando\\’,'-> Buka NotePad!’,'REG_SZ’);
natan.RegWrite(‘HKCR\\Drive\\shell\\komando\\command\\’,'notepad.exe’,'REG_SZ’);
pesan2 = ‘Selesai Di Install!’
natan.popup(pesan2,0,’Buka NotePad’,vbInformation);
}
else if (tanya == vbNo)
{
natan.RegDelete(‘HKCR\\Directory\\shell\\komando\\command\\’);
natan.RegDelete(‘HKCR\\Directory\\shell\\komando\\’);
natan.RegDelete(‘HKCR\\Drive\\shell\\komando\\command\\’);
natan.RegDelete(‘HKCR\\Drive\\shell\\komando\\’);
pesan3 = ‘Selesai Di UnInstall!’
natan.popup(pesan3,0,’Buka NotePad’,vbInformation);
}
else
{
natan.popup(‘Matur Nuwun.’,0,’Buka NotePad’,vbInformation);
}