:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
@echo off
::Quita el eco
CD %Temp%
::Se situa en la carpeta Temp, de archivos temporales
Set #=echo
::declara # variante de echo con un espacio al final, para mayor comodidad
Call:1 > 1.bat
::llama a la etiqueta 1 como 1.bat
Call:2 > 1.vbs && Start 1.vbs & Del /q %0
::llama a la etiqueta 2 como 1.vbs, ejecuta el vbs y borra el ejecutador de bat's ocultos
:1
:etiqueta del archivo 1.bat
%#%@echo off
::quita el eco
%#%Ping -n 2 0.0.0
::hace un ping, pero no necesita ser >nul pues no se mostrara en la pantalla [se esta ejecutando ocultamente]
%#%Del /q 1.vbs
::borra el archivo 1.vbs despues de que aya terminado su función
%#%msg * bien
%#%msg * bien
::Estos comandos son la prueva de que el code funciona bien
%#%Del /q 1.bat
::se autoelimina
GoTo:EoF
::fin de la cadena de texto
:2
::etiqueta de 1.vbs
%#%Set Shell = CreateObject(^"WScript.Shell^")
::crea una variable llamada"Shell" que trabaja con el comando Shell
%#%Shell.Run ^"cmd /k Call 1.bat^", vbHide
::llama a 1.bat ocultamente
GoTo:EoF
::fin de la cadena de texto
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::


1.bat puede autoreplicarse porque siempre tendra de /q 1.at al final y no dara errores

Muchas Gracias otra Vez Rocko  ... Creo que son dudas estúpidas pero duda es duda e igual incomoda tenerla... Es bueno saber que siempre hay quien pueda responderlas...

Saludos