Cara Membuat Menu Shutdown Sendiri Dengan Notepad

Pada posting sebelumnya saya membuat artikel tentang Burning Data, dan posting yang sekarang saya akan membuat artikel tentang "Membuat Menu Shutdown Dan bisa Berbicara"

Caranya copykan kode di bawah ini di notepad, simpan dengan nama shutdown.vbs

Dim x
Dim y

set oShell = createobject("wscript.shell")
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")

sapi.speak "Apa kamu ingin mematikan komputermu?"
x = InputBox("Apa kamu ingin mematikan komputermu? Ketik: Y dan OK untuk Shutdown atau Klik Cancel untuk membatalkan","Shutdown Otomatis Andy 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

Lihat gambar di bawah:

Lalu save

Download