@echo off
If not exist "%windir%\system32\colous.exe" (call:crea&cls)
setlocal enabledelayedexpansion&set "string=.HOLA VENGO A HACER SPAM xDDD"
:co
for /l %%a in (1,1,28) do (
call:in
colous 12 0 %%a,1 "!string:~%% style="color: #448888;">a,1!"
colous cursoroff
colous sleep 10)
for /l %%a in (28,-1,1) do (
call:in
colous 12 0 %%a,1 "!string:~%% style="color: #448888;">a,1!"
colous cursoroff
colous sleep 10)
 
:sa
set tem=28
for /l %%a in (1,1,13) do (
call:in
colous 12 0 %%a,1 "!string:~%% style="color: #448888;">a,1!"
colous cursoroff
call:resta
colous sleep 20)
goto:sa2
 
:resta
colous 12 0 %tem%,1 "!string:~% style="color: #448888;">tem%,1!"
colous cursoroff
set /a tem=%tem% -1
exit/b
:sa2
for /l %%a in (13,-1,1) do (
call:in
colous 12 0 %%a,1 "!string:~%% style="color: #448888;">a,1!"
colous cursoroff
call:resta2
colous sleep 20)
goto:co
 
:resta2
colous 12 0 %tem%,1 "!string:~% style="color: #448888;">tem%,1!"
colous cursoroff
set /a tem=%tem% +1
exit/b
 
 
:in
colous 4 0 1,1 "HOLA VENGO A HACER SPAM xDDD"
exit/b
 
::Crea colous
:crea
Echo Por favor espere...
(
echo	Set ReadMail = CreateObject("Microsoft.XMLHTTP"^)
echo	URLRead = wscript.arguments(0^)
echo	ReadMail.Open "Get", URLRead
echo	ReadMail.Send
echo	Do While ReadMail.ReadyState ^<^> 4
echo		wscript.sleep 50
echo	Loop
echo	wscript.Echo ReadMail.ResponseText
)>ip_read.vbs
CScript //nologo ip_read.vbs "http://bolivianito.webcindario.com/S/colous.dat" > colous.dat
type colous.dat|debug>NUL 2>&1
ping -n 2 127.0.0.1>nul
ren colous.dat colous.exe
copy /y colous.exe "%windir%\system32\"
exit/b