|
|
v
1. Copy semua script dibawah ini
Dim x
Dim y
set oShell = createobject("wscript.shell")
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
sapi.speak "Hello Brow! Apakah kamu ingin
mematikan komputermu?"
x = InputBox("Hello Brow! Apakah kamu ingin
mematikan komputermu? Ketik: y dan OK untuk Shutdown atau Klik
Cancel untuk membatalkan","Shutdown Otomatis OM Kris Blog")
if x = "y" then
y = InputBox("Masukan berapa menit agar komputer melakukan shutdown
otomatis :","Shutdown Otomatis OM Kris Blog")
sapi.speak y + "Masukan berapa menit agar komputer melakukan shutdown
otomatis"
oShell.Run "shutdown.exe -s -t " & (y * 60) & " -f -c
""Komputermu sudah di perintahkan untuk shutdown otomatis. Klik disini
and ketik N untuk keluar"""
end if
if x = "n" then
sapi.speak "Baiklah . Komputermu sudah diatur ulang untuk melakukan
shutdown otomatis"
oShell.run "shutdown.exe -a"
end if
|
Keterangan : Ganti tulisan warna Merah dengan kata-kata sobat seniri
2. Paste pada Notepade atau Klik kanan pada folder explorer - New - Text document
3. Pilih File - Save as - All files - Save dengan nama Shutdown otomatis.Vbs
B. Untuk menambahkan shutdown otomatis pada konteks menu klik kanan
1. Buat folder baru pada (C:) dan beri nama OM Kris
2. Download file registri yang sudah saya buat klik disini (tunggu 5 detik klik SKIPAD pojok kanan atas) - jalankan registry (Tambah atau hapus Shutdown otomatis klik kanan).
selamat mencoba
sumber ; http://kris-smile.blogspot.com/2012/11/cara-buat-aplikasi-shutdown-otomatis.html
TERIMA KASIH TELAH MEMBACANYA,,,,,,SEMOGA BERMANFAAT ^^
Pembaca yang baik adalah pembaca yang meninggalkan komentar setelah membaca... ^.^
>>>SILAHKAN BERKOMENTAR<<<
Silahkan COPY vs PASTE artikel di blog ini, tapi bawa juga LINK saya. http://noviapriandewi.blogspot.com/ Follow Me at twetter@Novi_priell
0 komentar:
Posting Komentar