Script Matikan Windows
Copy aj ke notepad, trus save as dengan akhiran .Js (buat yg blum tau aje..hehee)
klo udh d save, double klik aja
trus klik kanan di Start buttonye,muncul dah tuh ">Matikan windows"
ini script ane dapet dari mbah asadot om
Tapi udah ane edit" dikit sihCopy aj ke notepad, trus save as dengan akhiran .Js (buat yg blum tau aje..hehee)
klo udh d save, double klik aja
trus klik kanan di Start buttonye,muncul dah tuh ">Matikan windows"
Copy Code dibawah ini
// Program Sederhana Matiin Komputer Via Klik Kanan
// Programmer : Holly Mellodic Ft Asadotcom
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 = 'HGz-HollyMellodic';
var pesan1 = '>>script by HollyMellodic<<\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 = 'Canceled!';
natan.popup(pesan4,0,kata,vbInformation);
}
Komentar
Posting Komentar