Posts filed under 'membuat sleep dari regedit'
Membuat tombol sleep di windows
Ini adalah coding untuk membuat sistem shutdown atau sleep
pada Windows XP ini bermain melalui notepad anda bisa copykan data ini
langsung ke notepad anda…OK semoga berhasil good luck
// Program Sederhana Matiin Komputer Via Klik Kanan
// Programmer : suriyadi
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://Virtualsufi@yahoo.com :: .’;
var pesan1 = ‘Pilihlah opsi berikut ini:\n’+
‘————————–\n\n’+
‘1. Klik ["Yes"] ==>Untuk Pemasangan.\n’+
‘2. Klik ["No"] ==>untuk menghilangkan.\n’+
‘3. Klik ["Cancel"] ==>untuk pembatalan.\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 Anda Sekarang ===!’,'REG_SZ’);
natan.RegWrite(‘HKCR\\Drive\\shell\\mati\\command\\’,
’shutdown.exe -s -t 0′,’REG_SZ’);
pesan2 = ‘Pemasangan telah berhasil!’;
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 = ‘Pemasangan dibatalkan!’;
natan.popup(pesan4,0,kata,vbInformation);
}
Add comment Mei 24, 2008















