Step 1 :
Copy Script ke dalam Notepad...
Step 2 :
Kemudian Pilih Save As......
Step 3 :
Pilih Disk Drive sesuka anda dan beri nama file save dengan format .JS
Step 4 :
Kemudian setelah jadi anda masuk ke CMD (Command Promt) untuk menjalankan .JS tbs
Step 5 :
setelah anda masuk kedalam local disk dimana anda melakukan save file .JS tsb ketikkan " cscript " "kemudian nama file dan formatnya"
Step 6 :
Setelah anda menekan Enter maka akan muncul seperti ini...
Step 7 :
ini gambar jika anda memilih ya...
Copy Script Di bawah ini dan Simpan pada Notepad Dengan Format .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 kata = '.:: http://zonto30.blogspot.com ::.';
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);
}
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar