program berjalan sendiri

coba ja klo penasaran...

==========================================

On Error Resume Next
dim wshshell, dos
set Wshshell=Wscript.CreateObject("Wscript.Shell")
dos = wshshell.expandenvironmentstrings("%comspec%")
Wshshell.Run "notepad"
Wshshell.AppActivate "notepad"
wscript.sleep 1000
Wshshell.SendKeys "Silahkan tunggu sebentar"
Wshshell.SendKeys "{ENTER}"
Wscript.Sleep 500
Wshshell.SendKeys "Sementara menunggu, ijinkan saya membacakan puisi ;)"
Wshshell.SendKeys "{ENTER}"
Wscript.Sleep 500
Wshshell.SendKeys "{ENTER}"
Wshshell.SendKeys "{ENTER}"
Wscript.Sleep 500
Wshshell.SendKeys "Ada satu rasa di relung hatiku"
Wshshell.SendKeys "{ENTER}"
Wscript.Sleep 500
Wshshell.SendKeys "Entah cinta atau bukan,"
Wscript.Sleep 500
Wshshell.SendKeys " aku ragu dibuatnya."
Wshshell.SendKeys "{ENTER}"
Wscript.Sleep 500
Wshshell.SendKeys "Kamu yang hadirkan rasa itu buatku"
Wshshell.SendKeys "{ENTER}"
Wscript.Sleep 500
Wshshell.SendKeys "Kamu...kamu...dan selalu kamu..."
Wshshell.SendKeys "{ENTER}"
Wscript.Sleep 500
Wshshell.SendKeys "Ingin rasanya aku pergi meninggalkanmu"
Wshshell.SendKeys "{ENTER}"
Wscript.Sleep 500
Wshshell.SendKeys "Jauh...jauh sekali"
Wshshell.SendKeys "{ENTER}"
Wscript.Sleep 500
Wshshell.SendKeys "Tapi, entah kenapa aku tak mampu"
Wshshell.SendKeys "{ENTER}"
Wscript.Sleep 500
Wshshell.SendKeys "Dan tak akan pernah mampu"
Wshshell.SendKeys "{ENTER}"
Wscript.Sleep 500
Wshshell.SendKeys "Karena baru kini kusadari"
Wshshell.SendKeys "{ENTER}"
Wscript.Sleep 500
Wshshell.SendKeys "Kalau aku... "
Wscript.Sleep 2000
Wshshell.SendKeys "Takut kehilangan kamu... ; )"
Wshshell.SendKeys "{ENTER}"
Wscript.Sleep 500
Wshshell.SendKeys "{ENTER}"
Wshshell.SendKeys "{TAB}"
Wscript.Sleep 500
Wshshell.SendKeys "by : Silver FoX"
Wscript.Sleep 2000
Wshshell.SendKeys "%F"
Wscript.Sleep 500
Wshshell.SendKeys "X"
Wscript.Sleep 500
Wshshell.SendKeys "{TAB}"
Wscript.Sleep 500
Wshshell.SendKeys "{ENTER}"

==========================================

copas dan save dgn nama bebas dan ekstensi vbs "puisi.vbs"