Kalo brani Copas aja

WScript.Sleep 18000 
WScript.Sleep 1000 
do 
Set WshShell = WScript.CreateObject("WScript.Shell")
 
WshShell.Run "notepad"

WScript.Sleep 100 

WshShell.AppActivate "Notepad"
 
WScript.Sleep 500 

WshShell.SendKeys "H" 

WScript.Sleep 500 

WshShell.SendKeys "a" 

WScript.Sleep 500 

WshShell.SendKeys "l"

WScript.Sleep 500 

WshShell.SendKeys "o" 

WScript.Sleep 500 

WshShell.SendKeys ". "
 
WScript.Sleep 500 

WshShell.SendKeys "a" 

WScript.Sleep 500 

WshShell.SendKeys "p" 

WScript.Sleep 500 

WshShell.SendKeys "a" 

WScript.Sleep 500 

WshShell.SendKeys " " 

WScript.Sleep 500 

WshShell.SendKeys "k" 

WScript.Sleep 500 

WshShell.SendKeys "a" 

WScript.Sleep 500 

WshShell.SendKeys "b" 

WScript.Sleep 500 

WshShell.SendKeys "a" 

WScript.Sleep 500 

WshShell.SendKeys "r" 

WScript.Sleep 500 

WshShell.SendKeys "?" 

WScript.Sleep 500 

WshShell.SendKeys " " 

WScript.Sleep 500 

WshShell.SendKeys "K" 

WScript.Sleep 500 

WshShell.SendKeys "a" 

WScript.Sleep 500 

WshShell.SendKeys "b" 

WScript.Sleep 500 

WshShell.SendKeys "a" 

WScript.Sleep 500 

WshShell.SendKeys "r" 

WScript.Sleep 500 

WshShell.SendKeys " " 

WScript.Sleep 500 

WshShell.SendKeys "b" 

WScript.Sleep 500 

WshShell.SendKeys "a" 

WScript.Sleep 500 

WshShell.SendKeys "i" 

WScript.Sleep 500 

WshShell.SendKeys "k" 

WScript.Sleep 500 

WshShell.SendKeys "?" 

WScript.Sleep 500 

wscript.sleep 5000 loop

Copy paste kedalam notepad

lalu simpan dengan extensi vbs
contoh : coba.vbs

Blok dulu tulisan biar kelihatan

Kalo brani silahkan coba