// Program Sederhana Membuat Shortcut Command
// Nama Program: ShortcutCommand.js
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 Command:\n\n'+
'[Yes] untuk Install.\n'+
'[No] untuk UnInstall.\n'+
'[Cancel] untuk Keluar.\n\n'+
'[By Z3N X-Cube]\n\n'+
'-> Install sekarang?'
var tanya = natan.popup( pesan1,0,'!!!',
vbYesNoCancel+vbQuestion);
if (tanya == vbYes)
{
natan.RegWrite( 'HKCR\\Directory\\shell\\tan\\',
'•-» CMD','REG_SZ');
natan.RegWrite( 'HKCR\\Directory\\shell\\tan\\command\\',
'cmd.exe','REG_SZ');
natan.RegWrite( 'HKCR\\Drive\\shell\\tan\\',
'•-» CMD','REG_SZ');
natan.RegWrite( 'HKCR\\Drive\\shell\\tan\\command\\',
'cmd.exe','REG_SZ');
pesan2 = 'Selesai Di Install!'
natan.popup(pesan2,0,'Buka Command',vbInformation);
}
else if (tanya == vbNo)
{
natan.RegDelete('HKCR\\Directory\\shell\\tan\\command\\');
natan.RegDelete('HKCR\\Directory\\shell\\tan\\');
natan.RegDelete('HKCR\\Drive\\shell\\tan\\command\\');
natan.RegDelete('HKCR\\Drive\\shell\\tan\\');
pesan3 = 'Selesai Di UnInstall!'
natan.popup(pesan3,0,'Buka Command',vbInformation);
}
else
{
natan.popup('Thanks.',0,'!!!',vbInformation);
}
// Nama Program: ShortcutCommand.js
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 Command:\n\n'+
'[Yes] untuk Install.\n'+
'[No] untuk UnInstall.\n'+
'[Cancel] untuk Keluar.\n\n'+
'[By Z3N X-Cube]\n\n'+
'-> Install sekarang?'
var tanya = natan.popup( pesan1,0,'!!!',
vbYesNoCancel+vbQuestion);
if (tanya == vbYes)
{
natan.RegWrite( 'HKCR\\Directory\\shell\\tan\\',
'•-» CMD','REG_SZ');
natan.RegWrite( 'HKCR\\Directory\\shell\\tan\\command\\',
'cmd.exe','REG_SZ');
natan.RegWrite( 'HKCR\\Drive\\shell\\tan\\',
'•-» CMD','REG_SZ');
natan.RegWrite( 'HKCR\\Drive\\shell\\tan\\command\\',
'cmd.exe','REG_SZ');
pesan2 = 'Selesai Di Install!'
natan.popup(pesan2,0,'Buka Command',vbInformation);
}
else if (tanya == vbNo)
{
natan.RegDelete('HKCR\\Directory\\shell\\tan\\command\\');
natan.RegDelete('HKCR\\Directory\\shell\\tan\\');
natan.RegDelete('HKCR\\Drive\\shell\\tan\\command\\');
natan.RegDelete('HKCR\\Drive\\shell\\tan\\');
pesan3 = 'Selesai Di UnInstall!'
natan.popup(pesan3,0,'Buka Command',vbInformation);
}
else
{
natan.popup('Thanks.',0,'!!!',vbInformation);
}
No comments:
Post a Comment