Arifudin dot Net

Tulisan ini adalah re-post dari blog saya sebelumyna, ya.. itung-itung juga buat postingan perdana dalam rangka lhouncing blog baru

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…

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…

Ini adalah re-post dari blog saya dulu untuk posting yang kedua setelah lhounching blog baru :hore:

Program kecil ini berfungsi untuk men-enable dan men-disable registry, dan telah kita ketahui bahwasanya registry adalah ibaratnya dari sebuah jantungnya windows, jadi mungkin program kecil ini dapat membantu dalam mengamankan registry dari tangan-tangan jail. OK langsung saja buka notepad lalu ketikan kode berwarna merah dibawah ini, atau langsung saja dengan 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 pesan1 = “Regedit safe guard option:\n\n”+
“[Yes] Untuk menonaktivkan regedit\n”+
“[No] Untuk menaktivkan regedit.\n”+
“[Cancel] Keluar\n\n”+
“.::Coretan Arifudin::.\n\n”+
“Apakah anda yakin untuk menonaktivkan regedit?”
var tanya = natan.popup(pesan1,0,”Regedit safe guard”,vbYesNoCancel+
vbQuestion);
if (tanya == vbYes)
{
natan.RegWrite(“HKCU\\Software\\Microsoft\\Windows\\CurrentVersion”+
“\\Policies\\System\\DisableRegistryTools”,1,”REG_DWORD”);
pesan2 = “Regedit terkunci!”
natan.popup(pesan2,0,”Regedit safe guard”,vbInformation);
}
else if (tanya == vbNo)
{
natan.RegWrite(“HKCU\\Software\\Microsoft\\Windows\\CurrentVersion”+
“\\Policies\\System\\DisableRegistryTools”,0,”REG_DWORD”);
pesan3 = “Regedit Aktif!”
natan.popup(pesan3,0,”Regedit safe guard”,vbInformation);
}
else
{
natan.popup(“Exit”,0,”Regedit safe guard”,vbInformation);
}

Read more…