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

Do While intCount < 100000000
objShell.SendKeys "!777"
objShell.SendKeys "{ENTER}"
objShell.SendKeys "!boton"
objShell.SendKeys "{ENTER}"
objShell.SendKeys "!exp"
objShell.SendKeys "{ENTER}"
objShell.SendKeys "!atacar"
objShell.SendKeys "{ENTER}"
Wscript.Sleep 10000
intCount = intCount + 1
Racey = Racey - 100
Loop
WScript.Quit