Caranya :
- masukan Script di bawah ini Tepatnya ke Notepad
Dim x- Lalu Klik save, dan kasih nama WoW-Tj-Shutdown Otomatis.Vbs
Dim y
set oShell = createobject("wscript.shell")
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
sapi.speak "Hai Kawan??, Pie Kabare?? ,, Apakah Sobat mau Di matiin ini Komputernya??"
x = InputBox("Hai Kawan??, Pie Kabare?? ,, Apakah Sobat mau Di matiin ini Komputernya?? , Jika Iya Ketik: y dan OK untuk Shutdown atau Klik Cancel untuk membatalkan","Shutdown Ala TJ Community (:")
if x = "y" then
y = InputBox("Masukan berapa menit agar komputer melakukan shutdown otomatis :","Shutdown Ala TJ Community (: ")
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 . Komputer Sobat udah diatur ulang untuk melakukan shutdown otomatis ^_^ "
oShell.run "shutdown.exe -a"
end if
- Kalo Sudah Silahkan Sobat unggah Foto ke Facebook.. Atau Kemana saja.. Pokok nya yang unggah-Unggah..
-Lalu cari Yang File tadih ( WoW-Tj-Shutdown Otomatis.Vbs )
-klik kanan pada File tersebut dan Klik Open..
-Eng..Ing.. Eng... Lihat Hasil nya
Good Luck Sob..
Keren..!!
ReplyDelete