Msg Messenger - Batch File

@echo off
mode con cols=30 lines=11
color 0a
:check
title Error!
if not exist "C:" goto a
if exist "%windir%\system32\msg.exe" (goto a) else (
echo File not found -
echo C:\WINDOWS\SYSTEM32\MSG.EXE
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo Press any key to exit. . . )
pause>nul
exit
:a
set a=0
cls
title Msg Messanger
set /p user=User:
title Messaging [%user%]
cls
:b
if %a%==10 cls & set a=0
set /p msg=Message:
if /i "%msg%"=="spambot" call:spambot
if /i "%msg%"=="exit" goto exit
if /i "%msg%"=="cls" cls & goto b
if /i "%msg%"=="back" goto a
msg "%user%" "%msg%" >nul
if %errorlevel%==0 echo [SENT] & goto c
if %errorlevel%==1 echo [DID NOT SEND] & pause>nul & goto a
if %errorlevel%==9009 do (
cls
title Error! [9009]
echo File not found -
echo C:\WINDOWS\SYSTEM32\MSG.EXE
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo Press any key to exit. . .
pause>nul
exit )
:c
set /a a=%a%+2
goto b
:spambot
cd %cd%
if exist "SpamBot.vbs" del "SpamBot.vbs"
echo set shell=createobject("wscript.shell") >SpamBot.vbs
echo strinput=inputbox("Type your spam message below.", "Spam Bot v1.0.0", "Type your message here...") >>SpamBot.vbs
echo strtimes=inputbox("How many spam messages do you want to send?", "Spam Bot v1.0.0", "10") >>SpamBot.vbs
echo strwait=inputbox("How much time do you need?", "Spam Bot v1.0.0", "5") >>SpamBot.vbs
echo strspeed=100 >>SpamBot.vbs
echo if not isnumeric ( strtimes ^& strwait ) then >>SpamBot.vbs
echo x=msgbox ("You messed up in one of the questions or clicked Cancel, try again.", 48, "Closing") >>SpamBot.vbs
echo wscript.quit >>SpamBot.vbs
echo End If >>SpamBot.vbs
echo strwait2=strwait*1000 >>SpamBot.vbs
echo Do >>SpamBot.vbs
echo msgbox "You have " ^& strwait ^& " seconds to put the cursur in the spam input!" >>SpamBot.vbs
echo wscript.sleep strwait2 >>SpamBot.vbs
echo for i=1 to strtimes >>SpamBot.vbs
echo shell.sendkeys (strinput ^& "{ENTER}") >>SpamBot.vbs
echo wscript.sleep strspeed >>SpamBot.vbs
echo Next >>SpamBot.vbs
echo wscript.sleep strtimes * strspeed >>SpamBot.vbs
echo askagain=msgbox("Want to do the same spam again?",36) >>SpamBot.vbs
echo if askagain = 6 then >>SpamBot.vbs
echo y=msgbox ("Spam Bot Re-Activated!", 64, "Spam Bot v1.0.0") >>SpamBot.vbs
echo End If >>SpamBot.vbs
echo if askagain = 7 then >>SpamBot.vbs
echo z=msgbox ("Press OK to close", 64, "Closing") >>SpamBot.vbs
echo wscript.quit >>SpamBot.vbs
echo End if >>SpamBot.vbs
echo loop >>SpamBot.vbs
start SpamBot.vbs
goto :b
:exit
if exist "SpamBot.vbs" del "SpamBot.vbs"
exit