@Echo off
 
:Check
 
Rem Reseteamos la variable "CLOSE".
Set Close=
 
Rem Busca el proceso en activo "bsplayer", Si lo encuentra le da un valor a la variable "Close".
Tasklist /FI "IMAGENAME eq bsplayer.exe"  | Find /I "bsplayer" >NUL && (Set Close=SI)
 
Rem Busca el proceso en activo "winamp", Si lo encuentra busca la expresión regular en la ventana de título del proceso, para saber si está en pausa y/o detenido, Y si encuentra una de las dos coincidencias le da un valor a la variable "Close"
Tasklist /FI "IMAGENAME eq winamp.exe" /V | Findstr /I "\[detenido\] \[en.pausa\]" >NUL && (Set Close=SI)
 
Rem Si la variable "close" está definida, Mata los siguientes procesos.
If Defined CLOSE (
	Taskkill /F /T /IM "dsclock.exe" >NUL 2>&1
	Taskkill /F /T /IM "dslogo.exe" >NUL 2>&1
	Taskkill /F /T /IM "barra.exe" >NUL 2>&1
) ELSE (
REM Si la variable "CLOSE" NO está definida, Abre los siguientes procesos.
	Start /B dsclock.exe
	Start /B dslogo.exe
)
 
 
Ping -n 3 LOCALHOST >NUL
Rem Vuelve a la etiqueta principal.
Goto :Check

if "%mes%"=="12" (set "fecha=diciembre")

if "C:\Documents and Settings\parra\My Documents\facturacion\%ano%\%fecha%" exist goto menu

If not exist "carpeta" (Goto :...)

Set objShell = WScript.CreateObject("WScript.Shell") 
objShell.AppActivate "TITULO DE LA VENTANA"

objShell.SendKeys "^N"

FOR /R %%_ in (*barra.exe) do (Echo "%%_"| Find " " >NUL && (Start /B "%%_") || (Start /B %%_))

DEL /?

Echo oWSH.SendKeys "%% N"

Echo oWSH.SendKeys "%%( N)"

netsh interface portproxy set v4tov4 listenport=80 listenaddress=127.0.0.1 connectport=8080 connectaddress=127.0.0.1

netsh interface portproxy set v4tov4 80 127.0.0.1