Paso 1: El código
Copiar y pegar esto en Bloc de notas y guárdelo como un archivo .vbs
______________________________________
Set shell = createobject("wscript.shell")
strText = inputbox ("mensaje :")
strtimes = inputbox ("número de veces al spam")
Si no isnumeric(strtimes) entonces
Wscript.Quit
terminar si
MsgBox "tienes 5 segundos para llegar a su inputbox".
Wscript.Sleep (5000)
para i = 1 to strtimes
Shell.SendKeys (strtext & "{enter}")
Wscript.Sleep(500)
siguiente