This is only the code!
Code:
Shell "CA_Direct Location", vbNormalFocus
System.Threading.Thread.Sleep(5000) ' Time in (ms) increase, gives you time to login.
Do
SendKeys "My spam here"
Application.DoEvents
System.Threading.Thread.Sleep(1000) ' Time in (ms) Time in between posts.
Loop
i just made one