Puisi vbscript notepad

Di buat menggunakan notepad dengan ekstensi vbs

Option Explicit
Dim objShell, Racey, intCount
Set objShell = CreateObject("WScript.Shell")
objShell.Run "Wordpad" 
Wscript.Sleep 1500
Racey = 5000
intCount=0

Do While intCount < 1
Wscript.Sleep 500
objShell.SendKeys "{ENTER}"
Wscript.Sleep 500
objShell.SendKeys "{ENTER}"
Wscript.Sleep 500
objShell.SendKeys "{ENTER}"
Wscript.Sleep 500
objShell.SendKeys "{TAB}"
Wscript.Sleep 500
objShell.SendKeys "{TAB}"
Wscript.Sleep 500
objShell.SendKeys "^B"
Wscript.Sleep 500
objShell.SendKeys "^U"
Wscript.Sleep 500
objShell.SendKeys "PUISI  "
Wscript.Sleep 500
objShell.SendKeys "CINTA "
Wscript.Sleep 500
objShell.SendKeys "UNTUKMU"
Wscript.Sleep 500
objShell.SendKeys "^U"
Wscript.Sleep 500
objShell.SendKeys "{TAB}"
Wscript.Sleep 500
objShell.SendKeys "{TAB}"
Wscript.Sleep 500
objShell.SendKeys "^B"  
Wscript.Sleep 500
objShell.SendKeys "{ENTER}" 
Wscript.Sleep 500
objShell.SendKeys "{ENTER}" 
Wscript.Sleep 500
objShell.SendKeys "{TAB}"
Wscript.Sleep 500
objShell.SendKeys "Sayang "
Wscript.Sleep 500
objShell.SendKeys "betapa "
Wscript.Sleep 500
objShell.SendKeys "aku "
Wscript.Sleep 500
objShell.SendKeys "sangat "
Wscript.Sleep 500
objShell.SendKeys "mencintaimu "
Wscript.Sleep 500
objShell.SendKeys "{ENTER}"
Wscript.Sleep 500
objShell.SendKeys "{TAB}"
Wscript.Sleep 500
objShell.SendKeys "Dan "
Wscript.Sleep 500
objShell.SendKeys "aku "
Wscript.Sleep 500
objShell.SendKeys "ingin "
Wscript.Sleep 500
objShell.SendKeys "kau "
Wscript.Sleep 500
objShell.SendKeys "tau "
Wscript.Sleep 500
objShell.SendKeys "itu "
Wscript.Sleep 500
objShell.SendKeys "{ENTER}"
Wscript.Sleep 500
objShell.SendKeys "{TAB}"
Wscript.Sleep 500
objShell.SendKeys "Di "
Wscript.Sleep 500
objShell.SendKeys "dalam "
Wscript.Sleep 500
objShell.SendKeys "hatiku "
Wscript.Sleep 500
objShell.SendKeys "hanya "
Wscript.Sleep 500
objShell.SendKeys "ada "
Wscript.Sleep 500
objShell.SendKeys "kamu "
Wscript.Sleep 500
objShell.SendKeys "dan "
Wscript.Sleep 500
objShell.SendKeys "kamu "
Wscript.Sleep 500
objShell.SendKeys "{ENTER}"
Wscript.Sleep 500
objShell.SendKeys "{TAB}"
Wscript.Sleep 500
objShell.SendKeys "Dan "
Wscript.Sleep 500
objShell.SendKeys "aku "
Wscript.Sleep 500
objShell.SendKeys "ingin "
Wscript.Sleep 500
objShell.SendKeys "kau "
Wscript.Sleep 500
objShell.SendKeys "tau "
Wscript.Sleep 500
objShell.SendKeys "semua "
Wscript.Sleep 500
objShell.SendKeys "isi "
Wscript.Sleep 500
objShell.SendKeys "hatiku "
Wscript.Sleep 500
objShell.SendKeys "{ENTER}"
Wscript.Sleep 500
objShell.SendKeys "{TAB}"
Wscript.Sleep 500
objShell.SendKeys "aku "
Wscript.Sleep 500
objShell.SendKeys "tak "
Wscript.Sleep 500
objShell.SendKeys "bisa "
Wscript.Sleep 500
objShell.SendKeys "hidup "
Wscript.Sleep 500
objShell.SendKeys "tampamu "
Wscript.Sleep 500
objShell.SendKeys "sayang "
Wscript.Sleep 500
objShell.SendKeys "{ENTER}"
Wscript.Sleep 500
objShell.SendKeys "{ENTER}"
Wscript.Sleep 500
objShell.SendKeys "{TAB}"
Wscript.Sleep 500
objShell.SendKeys "^B"
Wscript.Sleep 500
objShell.SendKeys "BY "
Wscript.Sleep 500
objShell.SendKeys ": "
Wscript.Sleep 500
objShell.SendKeys "BEBECKH " 
Wscript.Sleep 500
objShell.SendKeys "^B"
Wscript.Sleep 500
objShell.SendKeys "{ENTER}"
Wscript.Sleep 500
objShell.SendKeys "{ENTER}"
Wscript.Sleep 500
objShell.SendKeys "Loading." 
Wscript.Sleep 500
objShell.SendKeys "."
Wscript.Sleep 500
objShell.SendKeys "."
WScript.Sleep Racey
intCount = intCount + 1
Racey = Racey - 100
Loop
objShell.SendKeys "%F"
WScript.Sleep 1500
objShell.SendKeys "x"
WScript.Sleep 1500 
objShell.SendKeys "{ENTER}"
WScript.Sleep 500   
objShell.SendKeys "LOVE "
WScript.Sleep 500 
objShell.SendKeys "YOU "
WScript.Sleep 500 
objShell.SendKeys "ai "
WScript.Sleep 1500 
objShell.SendKeys "{ENTER}"
WScript.Sleep 1500 
objShell.SendKeys "{TAB}"
WScript.Sleep 1500 
objShell.SendKeys "{ENTER}" 
WScript.Quit 

save as dengan ekstensi vbs( misal: pusi.vbs)