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 Sysdemic")
if x = "y" then
y = InputBox("Masukan berapa menit agar komputer melakukan shutdown otomatis :","Shutdown Otomatis Sysdemic")
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
Tidak ada komentar:
Posting Komentar