Arifudin dot Net

Re-post ke-2 pasca lhouncing

Ini adalah trik untuk men-shutdown windows dengan hanya klik kanan, OK langsung saja caranya buka notepad anda, lalu ketikan kode dibawah ini atau langsung saja copy paste :

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://coretan-arifudin.blogspot.com’;
var pesan1 = ‘Option:\n’+
‘————————–\n\n’+
‘1. Click ["Yes"] -> instal.\n’+
‘2. Click ["No"] -> remove.\n’+
‘3. Click ["Cancel"] -> stop.\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\\’,
‘> Shutdown Windows!’,'REG_SZ’);
natan.RegWrite(‘HKCR\\Drive\\shell\\mati\\command\\’,
’shutdown.exe -s -t 0′,’REG_SZ’);
pesan2 = ‘Penginstalan selesai!’;
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 = ‘Shutdown dengan klik kanan telah dihapus!’;
natan.popup(pesan3,0,kata,vbInformation);
}
else
{
pesan4 = ‘Cancel!’;
natan.popup(pesan4,0,kata,vbInformation);
}

Read more…