Sabtu, 22 Januari 2011

Matiin Komputer via klik kanan

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 = '.:: Matiin Komputer ::.'; 
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); 



Copy and paste to notepad,then save as with extension .js and Run !!!
Good Luck !!!

Tidak ada komentar:

Posting Komentar