12/07/2011

Share Script Matikan Windows

SHARE ON :

Script Matikan Windows

ini script ane dapet dari mbah asadot om
Tapi udah ane edit" dikit sih

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"


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);
}

Comments with Facebook
0 Comments with Blogger
Facebook Comments by Media Blogger

0 comments:

Posting Komentar

1. Berikan komentar Anda yang sesuai dengan isi artikel
2. Mohon untuk tidak melakukan SPAM, apabila nyepam komentar akan langsung dihapus