Rabu, 21 September 2011

Shutdown Komputer Dengan Klik Kanan

Code:

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 = '.:: zer03s THK ::.';
var pesan1 = ' klik salah satu Option di bawah ini:\n'+
'--------------------------\n\n'+
'1. Klik ["Yes"] -> Pasang.\n'+
'2. Klik ["No"] -> nonaktifkan.\n'+
'3. Klik ["Cancel"] -> Stop.\n\n'+
'> TusaCrew <' var tanya = natan.popup(pesan1,0,kata,vbYesNoCancel+vbQuestion); if (tanya == vbYes) { natan.RegWrite('HKCR\\Directory\\shell\\mati\\', '=> Turn Off!!','REG_SZ');
natan.RegWrite('HKCR\\Directory\\shell\\mati\\command\\',
'shutdown.exe -s -t 0','REG_SZ');
natan.RegWrite('HKCR\\Drive\\shell\\mati\\',
'=> Turn Off!!','REG_SZ');
natan.RegWrite('HKCR\\Drive\\shell\\mati\\command\\',
'shutdown.exe -s -t 0','REG_SZ');
pesan2 = 'Terpasang (www.TusaCrew.co.tv';
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);
}


Simpan dengan nama ShutdownKlik.js

Terus buka File ShutdownKlik.js
Aktifin.> double klik
Atau Lewat Cmd.
caranya ketik command
> cscript ShutdownKlik.js

Cara Ngeliat perubahannya yaitu coba klik kanan di Start Menu, atau di salah satu drive
maupun folder yang terdapat di Windows Explorer. Disana kamu bisa liat sebuah shortcut dengan nama => Turn Off!!
yang dapat anda klik untuk menonaktifkan komputer.
Jika tidak menginginkan shorcut tersebut tampil di Start Menu atau Windows Explorer,
silahkan klik tombol No untuk menghapusnya.
Tetapi jika tidak ada keinginan untuk mengeksekusi program tersebut, silahkan klik tombol
Cancel untuk keluar.

Tidak ada komentar:

Posting Komentar