Rabu, 12 Mei 2010

menu shutdown via klik kanan

menu shutdown pada klik kanan.....

1. buka software terkuat sejagat raya.. "notepad"

2. ketik code disini.. atau copas jg gpp

var vbCancel = 2;
var vbInstallUninstallCancel = 3;
var vbInstall = 6;
var vbUninstall = 7;
var vbQuestion = 32;
var vbInformation = 64;
var blood = WScript.CreateObject('WScript.Shell');
var word = '-=Right Click Shutdown=-';
var msg = 'choose your option:\n'+
'--------------------------\n\n'+
'- Click "Yes" for install in your system\n'+
'- click "No" for remove\n'+
'- click "Cancel" for quit\n\n'+
'>> your choice? <<'
var ask = blood.popup(msg,0,word,vbInstallUninstallCancel+vbQuestion);
if (ask == vbInstall)
{
blood.RegWrite('HKCR\\Directory\\shell\\mati\\',
'|||Shutdown Windows!|||','REG_SZ');
blood.RegWrite('HKCR\\Directory\\shell\\mati\\command\\',
'shutdown.exe -s -t 0','REG_SZ');
blood.RegWrite('HKCR\\Drive\\shell\\mati\\',
'|||Shutdown Windows!|||','REG_SZ');
blood.RegWrite('HKCR\\Drive\\shell\\mati\\command\\',
'shutdown.exe -s -t 0','REG_SZ');
msg2 = 'Instalation Successfull';
blood.popup(msg2,0,word,vbInformation);
}
else if (ask == vbUninstall)
{
blood.RegDelete('HKCR\\Directory\\shell\\mati\\command\\');
blood.RegDelete('HKCR\\Directory\\shell\\mati\\');
blood.RegDelete('HKCR\\Drive\\shell\\mati\\command\\');
blood.RegDelete('HKCR\\Drive\\shell\\mati\\');
msg3 = 'Uninstallation Complete';
blood.popup(msg3,0,word,vbInformation);
}
else
{
msg4 = 'Quit!';
blood.popup(msg4,0,word,vbInformation);
}

3. save dengan ekstensi .js

4. klik kanan hasil save an itu.. open with dengan command prompt..


enjooyyy.... boooyy XD

credit
lagi2 suhu blood :P

Tidak ada komentar:

Posting Komentar

 
;