Jumat, 11 Januari 2013

Cara Membuat aplikasi Shutdown otomatis sendiri dan dapat berbicara pada komputer windows




Cara Membuat aplikasi Shutdown otomatis sendiri dan dapat berbicara pada komputer windows:

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
    


3. Pilih File - Save as - All files - Save dengan nama Shutdown otomatis.Vbs


4. Selesai silahkan dibuka dan aplikasi kecil shutdown otomatis sendiri dengan efek komputer berbicara sudah berhasil dibuat.

Tidak ada komentar:

Posting Komentar