:: DheDycrenzt
Link Satu Link Dua Link Tiga Link Empat Haryantoblog





Selamat Datang di blog yang diciptakan oleh Uchiha Dhedy


bila blog ini kurang bagus maka kiranya anda jangan menghina atau mencela blog ini,dan blum tentu anda dapat membuat sperti ini jikalau engkau bisa mungkin belajar dari seseorang atau bimbel(Les tambahan),jadi ku harap bila blog ini kurang enak dipandang skali lagi jangan menghina itu tandanya Syirik tanda tak mampu



Blog DheDy

Blog DheDy
TKJ 2 is The Best

Minggu, 04 April 2010

Membuat komputer cepat di shut Down Dengan mengklik kanan saja

silahkan anda copast ajjh(copy paste) script dibawah ini :

// Program Sederhana Matiin Komputer Via Klik Kanan
// Programmer : Yonatan Prasdikatama
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://ikatama.wordpress.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
{
Komunitas eLearning IlmuKomputer.Com
Copyright © 2003-2007 IlmuKomputer.Com
3
pesan4 = 'Berhenti!';
natan.popup(pesan4,0,kata,vbInformation);
}

kalau udah di coba dan berhasil,sihlahkan comment akuh yach
^_^

2 komentar:

Ratna_Imoet_Bgt mengatakan...

kreatifff...
sukses slalu...
bwt nak TKJ yg slalu jdi kebanggaan d SKADARS
^_^

DhedyCrenzt mengatakan...

pastinya bahwa ilmu komputer di era ini sangt banyak berperan
so
manfaatkan memang dari sekarg

 
Copyright © 2010 DheDycrenzt | Design : Noyod.Com | Images : Red_Priest_Usada, flashouille