Cara Buat Aplikasi Shutdown Otomatis

Bookmark and Share
Master Jin - Masih pada tips label komputer nih kawan. Sekarang saya akan berikan sedikit tips yang lainnya, yang sebelumnya aplikasi pengingat sholat tapi sekarang adalah aplikasi shutdown otomatis. Kawan dapat langsung membuatnya sendiri dan dapat berbicara pula. Unik bukan ?? Hehe. Seperti inilah contohnya punya saya : 


Bagaimana ?? Ingin membuatnya sendiri juga ?? Silahkan simak triksnya :
1. Pertama copy script dibawah ini :
Dim x
Dim y

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

sapi.speak "Hai ! Apakah kamu ingin mematikan laptopmu?"
x = InputBox("Hai ! Apakah kamu ingin mematikan laptopmu? Ketik: y dan OK untuk Shutdown atau Klik Cancel untuk membatalkan","Shutdown Otomatis Fajrin Ilham H"

if x = "y" then
y = InputBox("Masukan berapa menit agar komputer melakukan shutdown otomatis :","Shutdown Otomatis Fajrin Ilham H")
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 : script berwarna orange silahkan kawan ubah sendiri sesuai kesukan.

2. Kedua paste kan pada notepade
3. Terakhir save notepade tersebut dengan nama Shutdown otomatis.Vbs. Selesai deh

{ 0 komentar... Views All / Send Comment! }

Posting Komentar