Imprimir Página - automatizado de Canal de TV, basado en Batch DOS y VBasic…

Título: automatizado de Canal de TV, basado en Batch DOS y VBasic…
Publicado por: Dsalomon en 2 Septiembre 2012, 09:23 am

Hoy en día dirijo un pequeño pero prometedor proyecto de un canal de TV local, la necesidad de mejorar cada día me ha llevado a crear una serie de herramientas, personalizadas en conjunto con algunas ya existentes, para lograr mi objetivo, mi idea que con los años y ayuda de expertos he ido formando funciona de la siguiente manera:

1. Utilizo Principalmente Winamp (Winamp.exe) para tirar mis videos, películas, etc, debido a que esta aplicación recibe una gran serie de complementos, plugins, comandos, etc.

2.   Como segundo reproductor utilizo otro mas que soporta casi igual o diferente tipo de comandos Bsplayer (Bsplayer.exe) pero el uso especifico es reproducir unplay list con jingles o anuncios

3.   Utilizo un software llamado Ds clock para mostrar la hora en la pantalla (Dsclock.exe)

4.   Y otro para mostrar logotipos llamado Desktop Logo (DsLogo.exe)

5.   Y finalmente otra aplicación de pago llamada TextTcker (Barra.exe) para el scrool text…

Bueno dirán que quiere decir con esto, además qye tiene que ver con programación… XD…

Bueno aquí entra lo poco que he implementado… pero hoy por hoy me doy cuenta que necesito saber algo de programación para hacer funcionar todo esto

Para evitar abrir programas por programas cree una pequeña línea de comandos DOS o batch y uno o fusiono las 2 aplicaciones graficas o informativas

Ds Clock (Dsclock.exe)+ Desktop logo (DsLogo.exe) = LOGO Y HORA.bat o compilado .exe

Los scrips anteriores que use son estos, pero ya me están siendo obsoletos o incómodos para mi objetivo por lo cual tratare de compilar uno mejor

Así:

Código

@echo off
START /D "X:\Disco\Programa\Desktop Logo 1" DesktopLogo.exe
ping -n 5 localhost>nul
START /D "C:\Archivos de programa\DS Clock\" dsclock.exe 
Exit

o con este otros 2 que me acaban de facilitar

Código

@echo off
FOR /R %%_ in (*DsLogo.exe) do ("%%_")

No sé pero no los pude unir así que los hice por aparte y después los compile juntos…

Código

@echo off
START /D "%PROGRAMFILES%\DS Clock" dsclock.exe
exit

Para hacerlos desaparecer o quitarlos he usado el comando Batch Kill process

Código

TASKKILL /IM Desktop logo1.exe /F >nul
TASKKILL /IM dsclock.exe /F >nul
TASKKILL /IM TxtTick.exe /F >nul
exit

Pero queda el molesto icono en el Systray que muestra los procesos abiertos.
Como se darán cuenta programar esto es sencillo pero me ha resultado incomodo en algún modo…

Que busco hacer ahora…

1 necesito hacer un script que otra vez el llamado de las aplicaciones graficas pero que corra únicamente si el proceso Winamp está corriendo o activo y si detecta el proceso Bsplayer se cierre:
•   Ds clock
•   DsLogo
•   Barra ( si esta activa y es opcional)

presentación de los intentos de fusionar mi idea

SCRIPT LOGO Y HORA AVANZADO.BAT

Código

@echo off
TASKLIST /FI "winamp.exe " | findstr PID >nul
IF %ERRORLEVEL% LEQ 0 Ping -n 5 localhost >nul & goto  START /D "C:\Archivos de programa\DS Clock\" dsclock.exe & FOR /R %%_ in (*DsLogo.exe) do ("%%_") & Ping -n 5 localhost >nul & goto
IF NOT %ERRORLEVEL% LEQ 0 TASKKILL /IM DsLogo.exe /F >nul & TASKKILL /IM dsclock.exe /F >nul
TASKKILL /IM TxtTick.exe /F >nul do ("%%_") & Ping -n 5 localhost >nul & goto

Pero no se cómo incluir este codigo VB:

ejemplo de codigo VB No. 1

Código

Select Case Status
       Case 1
          WinAMP_GetStatus = "PLAYING"
       Case 3
          WinAMP_GetStatus = "PAUSED"
       Case Else
          WinAMP_GetStatus = "STOPPED"
    End Select

Ejemplo de codigo VB numero 2:

Código

Function WinAMP_GetStatus() As String
 
    '----------------------------------------------------------'
    'Emula la condicion de Winamo: Play, Pausa y Detener'
     'Retrieves the status of WinAMP: PLAYING, PAUSED or STOPPED'
    '----------------------------------------------------------'
 
    Dim Status As Long
    Dim i As Long
 
    If hWndWinAMP = 0 Then
       MsgBox "WinAMP window not found yet...", vbOKOnly + vbCritical, "WinAMP Not Found"
       Exit Function
    End If
 
    Status = SendMessage(hWndWinAMP, WM_USER, 0, WA_GETSTATUS)
 
    Select Case Status
       Case 1
          WinAMP_GetStatus = "PLAYING"
       Case 3
          WinAMP_GetStatus = "PAUSED"
       Case Else
          WinAMP_GetStatus = "STOPPED"
    End Select
 
End Function

Algo así:

Citar

┌─────────┐
   SI
   Winamp está en Play
↓   Ejecute el Script:
   Abrir
1. Ds clock
2. DsLogo
↓

└─
┌─   Pero

   Si el proceso Bsplayer .exe está ejecutándose o Winamp está en pausa

   Ejecute el Script:
↓   Cerrar los programas
   1. Ds clock
   2. DsLogo
   3. Barra
↓

   FIN
└─────────┘

Que haría ahora compilaría en un solo script el abrir el logo y la hora si se cumplen determinadas acciones, eso me ahorraría mucho trabajo de tareas programadas…
Agradeceré cualquier ayuda.

Saludos desde Guatemala.

Dsalomon.

Título: Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
Publicado por: Dsalomon en 3 Septiembre 2012, 00:49 am

viendo otros codigos de por alli logre hacer esto que es casi el 40% de lo que quiero hacer:

Código

@echo off
 
::set define el proceso con una letra::
 
:repetir
set w=bsplayer.exe 
set Dsl=Dslogo.exe 
 
::buscar el proceso Bsplayer y si lo encuentra cierre el proceso Dslogo::
 
tasklist | find "%w%" && taskkill /f /im %Dsl% | Ping -n localhost >nul & goto :repetir
 
 
 
::Continuara por que todavia me faltan agregar mas programas juntos ::
exit

Título: Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
Publicado por: Eleкtro en 3 Septiembre 2012, 10:02 am

Citar

┌─────────┐
   SI
   Winamp está en Play
↓ Ejecute el Script:
   Abrir
   1. Ds clock
   2. DsLogo
↓

└─
┌─ Pero

   Si el proceso Bsplayer .exe está ejecutándose o Winamp está en pausa

   Ejecute el Script:
↓ Cerrar los programas
   1. Ds clock
   2. DsLogo
   3. Barra
↓

   FIN
└─────────┘

Check.bat

Código

@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

PD: No te recomiendo que uses el comando ping sin especificar un tiempo de espera (-n) mayor de "1", En tu code dejas el valor vacío y te consumirá bastantes recursos. Además Windows tarda unos segundos en actualizar la lista de procesos etc, Así que no vale la pena comprobar el comando tasklist cada milisegundo, Cada 3 segundos está bien.

Saludos

Título: Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
Publicado por: Dsalomon en 3 Septiembre 2012, 10:52 am

preliminarmente lo he corrido pero solo al ejecutar el batch este se cierra... sin mas ni mas, y no hace nada...

con esto he recontraaprendido mucho... siempre te pido si nos puedes explicar las lineas para comprender mejor su funcionamiento...

Título: Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
Publicado por: Dsalomon en 3 Septiembre 2012, 11:05 am

aqui dejo hasta donde iva estudiando tus anteriores codigos...
pero como te das cuenta todo depende de un proceso BSPLAYER... y no hay instruccion de play, pausa ni nada... es una burda imitacion del tuyo... ja ja

Código

@echo off
::set define el proceso con una letra::
:: variables de los programas para resumir::
set Bs=bsplayer.exe
set W=Winamp.exe
set Dsl=Dslogo.exe
set DsC=dsclock.exe
 
::buscar el proceso Bsplayer y si lo encuentra cierre el proceso Dslogo y Dsclock::
:repetir
tasklist | find "%Bs%" && taskkill /f /im %Dsl%
tasklist | find "%Bs%" && taskkill /f /im %Dsc%
tasklist | find "%Bs%" >nul
if %Errorlevel% == 1 (START /D "%Programfiles%\DS Clock\" dsclock.exe)
if %Errorlevel% == 1 (FOR /R %%_ in (*DsLogo.exe) do ("%%_"))
ping -n 05 localhost>nul & goto :repetir
 
pause

Título: Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
Publicado por: Eleкtro en 3 Septiembre 2012, 11:16 am

Cita de: Dsalomon en 3 Septiembre 2012, 10:52 am

preliminarmente lo he corrido pero solo al ejecutar el batch este se cierra... sin mas ni mas, y no hace nada...

El script funciona perfectamente en windows 7, Pero tampoco veo ninguna diferencia en la sintaxis que pueda causar que no funcione bajo la CMD de windows XP.

EDITO: Acabo de probar el script en Una máquina virtual con Win XP SP 3 y Tal como pensaba, funciona. Si has manipulado el script de alguna manera, O si lo has acolpado a otro script, Pues postea la modificación porque ya no tiene que ver con el script original.

De todas formas, Abre la consola y escribe el nombre del bat para ejecutarlo (Desde la consola, No haciendo doble click en el archivo bat ni llamandolo desde otro bat), Así te indicará la posible causa del error y se te podrá ofrecer más ayuda.
En consola:

Código

CMD /K "check.bat"

Cita de: Dsalomon en 3 Septiembre 2012, 10:52 am

siempre te pido si nos puedes explicar las lineas para comprender mejor su funcionamiento...

He añadido comentarios al script en mi último comentario.

El último code que has posteado como bien dices está incompleto y tiene sus fallos, El código de salida (%Errorlevel%) Se refiere al último comando que se ejecutó por lo tanto no es efectivo de la manera que lo has hecho, No sigas pensando en como hacer el script, arriba te di la solución, veamos que es lo que está causando el cierre que comentas y una vez arreglado eso ya estará.

Saludos

Título: Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
Publicado por: Dsalomon en 3 Septiembre 2012, 20:55 pm

gracias por corregirlo... solo puse el codigo anterior como referencia... pero ahora estoy en el codigo tuyo...

probare nuevamente en una maquina virtual... buena idea

Título: Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
Publicado por: Dsalomon en 5 Septiembre 2012, 07:29 am

eres un genio...

funciona pero ahora me doy cuenta que he planteado mal el funcionamiento... permiteme lo replanteo correctamente... en win XP corrio perfecto.... en 7 lo probare por que mi sistema 7 ya esta algo trasteado..

Título: Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
Publicado por: Dsalomon en 5 Septiembre 2012, 11:31 am

Perdona me confundi al armar la idea pero creo que aqui corregi la estructura y encontre algunas consideraciones para el funcionamiento

Para Winamp:

Código

START /D "%Programfiles%\Winamp\" winamp.exe

Para el Programa DsLogo y los derivados numéricos:
Dslogo, Dslogo1 y Dslogo2 los guardo en una subcarpeta dentro de
la carpeta donde se guarda el BAT por eso pongo este código por que no Abrir el proceso DsLogo.exe conozco otro:

Código

FOR /R %%_ in (*DsLogo.exe) do ("%%_")

Para el programa Ds Clock:

Código

START /D "%Programfiles%\DS Clock\" dsclock.exe

Para el programa Bsplayer:

Código

START /D "%Programfiles%\Webteh\BSplayerPro"  bsplayer.exe

Para el programa Text Ticket:

Código

START /D "%Programfiles%\Text Ticker\TxtTick.exe"

Citar

┌─────────────────────────────────────┐

1. ABRIR el programa Winamp y darle PLAY

Continúe al paso 2

■ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─

┌─────────────────────────────────────┐

↓

2. SI El programa Winamp.exe está en PLAY

Abrir programa Ds clock
Abrir el proceso DsLogo.exe

↓

└──────────────────────────────────────
3.   Pero   Si el proceso Bsplayer.exe se ejecuta         ↓
┌──────────────────────────────────────

PAUSAR Winamp
Cerrar el proceso Dsclock.exe
Cerrar el proceso DsLogo.exe
Cerrar el proceso DsLogo1.exe
Cerrar el proceso DsLogo2.exe
Cerrar el proceso TxTicker.exe

↓

└──────────────────────────────────────
4. CUANDO El proceso Bsplayer.exe se cierre o no este activo         ↓
┌──────────────────────────────────────

REPETIR INFINITO DEL PASO 2 AL PASO 4

↓

└─────────────────────────────────────┘

Título: Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
Publicado por: Eleкtro en 5 Septiembre 2012, 13:40 pm

Citar

darle PLAY

Citar

PAUSAR Winamp

Para hacer eso solo puedes hacerlo con el puntero del mouse...

Descarga NIRCMD, y lee ejemplos:
Problema con Comando para hacer fuerza bruta (http://foro.elhacker.net/empty-t357086.0.html)
Crear una tarea prograbada en bat (http://foro.elhacker.net/empty-t367633.0.html)

Para hacer un bucle infinito solo tienes que crear una etiqueta en el "paso 2" y llamarla en el "paso 4", Cuando terminen los chequeos...

Saludos

Título: Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
Publicado por: Dsalomon en 5 Septiembre 2012, 16:33 pm

excellente... voy a hacer las modificaciones en el codigo y te aviso... que resultado me dio... se me ocurre que para darle play o pausa usare Send keys para no usar aplicaciones de terceros..

Saludos...

Título: Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
Publicado por: Eleкtro en 5 Septiembre 2012, 18:06 pm

Cita de: Dsalomon en 5 Septiembre 2012, 16:33 pm

para darle play o pausa usare Send keys para no usar aplicaciones de terceros..

Supongo que te refieres a la función "SendKeys" de VisualBasicScript?

Pues hombre, también puedes mover el cursor con VBS, Solo tienes que buscar en Google...
Pero yo usaría nircmd para simplificar las dos tareas, Es una aplicación multiusos que es obligado tener "por si acaso".

Saludos

Título: Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
Publicado por: Dsalomon en 6 Septiembre 2012, 10:39 am

maestro te agradeceria si me corriges el codigo... esta muy bueno el tuyo pero todavia me falta... por aprender:

Código

@Echo off
 
REM PASO 1 -  - - - - ABRIR el programa Winamp y darle PLAY - - - - - - - - - - - - - - - - - - - - -
 
START /D "%Programfiles%\Winamp\" winamp.exe
 
(
Echo Set objShell = WScript.CreateObject("WScript.Shell") 
objShell.AppActivate "WINAMP"
    Wscript.Sleep 1000 
 
REM la tecla "X" le da PLAY a la ventana activa en este caso la ventana winamp
 
Echo oWSH.SendKeys "X"
)>"%TEMP%\play.vbs"
 
Start /B wscript "%TEMP%\play.vbs"
ping localhost -n 3 > nul
Del "%TEMP%\play.vbs"
 
 
REM PASO 2 - - - -  SI BSPLAYER ESTA ACTIVO CIERRE Ds Clock, Ds Logo y Text Ticker y PAUSAR Winamp 
 
@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 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 "TxTicker.exe" >NUL 2>&1
 
Echo Set objShell = WScript.CreateObject("WScript.Shell") 
objShell.AppActivate "WINAMP"
Wscript.Sleep 1000
 
REM la tecla "C" le da PAUSA a la ventana activa en este caso la ventana winamp
Echo oWSH.SendKeys "(c)"
)>"%TEMP%\pausa.vbs"
 
Start /B wscript "%TEMP%\pausa.vbs"
ping localhost -n 3 > nul
Del "%TEMP%\pausa.vbs"
 
REM PASO 3 - - - 	Si no esta abierto Bsplayer inicie el programa Ds Clock, Ds Logo y a Winamp darle PLAY
 
) ELSE (
REM Si la variable "CLOSE" NO esta definida, Abre los siguientes procesos.
	START /D "%Programfiles%\DS Clock\" dsclock.exe
	FOR /R %%_ in (*DsLogo.exe) do ("%%_")
 
	Echo Set objShell = WScript.CreateObject("WScript.Shell") 
objShell.AppActivate "WINAMP"
    Wscript.Sleep 1000 
 
REM la tecla "X" le da PLAY a la ventana activa en este caso la ventana winamp
 
Echo oWSH.SendKeys "(X)"
)>"%TEMP%\pausa.vbs"
 
Start /B wscript "%TEMP%\pausa.vbs"
ping localhost -n 3 > nul
Del "%TEMP%\pausa.vbs"
)
 
 
Ping -n 3 LOCALHOST >NUL
Rem Vuelve a la etiqueta principal.
Goto :Check

ya casi esta... te agradezco la atencion y todos los consejos que me has brindado... sin duda eres el mejor...

Saludos desde Guatemala...

Título: Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
Publicado por: Eleкtro en 6 Septiembre 2012, 13:13 pm

Veo que para darle al play/pause usas los atajos especiales de Winamp, no habia caido en eso mira! No se como se me pasó. :xD

Pero el script está lleno de errores como para que funcione, sobretodo de sintaxis.
Voy a comentar solo el error más importante:

Citar

Código:

Set objShell = WScript.CreateObject("WScript.Shell") 
oWSH.SendKeys "X"

Aquí fallas en algo, ¿No te das cuenta?
La variable la defines como "objshell", no "oWSH".

Aparte de muchos más errores críticos, el script se puede simplificar y mejorar mucho, Aquí tienes:

Código

@Echo off
 
:: [PASO 1]
:: Ejecutar el proceso Winamp y darle PLAY.
START /D "%Programfiles%\Winamp\" winamp.exe
Call :Winamp_Key "x"
 
:: [PASO 2]
:: Si BSPLAYER está activo, cerrar "Ds Clock", "Ds Logo", "Text Ticker", y darle PAUSE a Winamp.
:: Si BSPLAYER no está activo, iniciar "Ds Clock", "Ds Logo", y darle PLAY a Winamp.
:Loop
Tasklist /FI "IMAGENAME eq bsplayer.exe"  | Find /I "bsplayer" >NUL && (
	For /F %%# in ('Tasklist ^| Find /I "DSLOGO"') Do (Taskkill /F /T /IM "%%#" >NUL 2>&1)
	Taskkill /F /T /IM "dsclock.exe"  >NUL 2>&1
	Taskkill /F /T /IM "TxTicker.exe" >NUL 2>&1
	Call :Winamp_Key "c"
) || (
	START /D "%Programfiles%\DS Clock\" dsclock.exe
	FOR /R %%_ in (*DsLogo.exe) do ("%%_")
	Call :Winamp_Key "x"
)
 
:Winamp_Key
:: Hotkeys Winamp:
::
:: c=Pause
:: x=Play
::
If NOT "%~1" EQU "" (
	(
	 Echo Set objShell = WScript.CreateObject("WScript.Shell"^)
	 Echo Do Until Success = True
	 Echo     Success = objShell.AppActivate("winamp"^)
	 Echo     Wscript.Sleep 250
	 Echo Loop
	 Echo objShell.SendKeys "%~1"
	 Echo Wscript.quit
	)>"%TEMP%\winamp.vbs"
	Start /W wscript "%TEMP%\winamp.vbs"
	Del /Q "%TEMP%\Winamp.vbs"
	Goto :EOF
)
 
Ping -n 3 LOCALHOST >NUL
Goto :Loop

Saludos

Título: Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
Publicado por: Dsalomon en 7 Septiembre 2012, 02:19 am

Cita de: EleKtro H@cker en 5 Septiembre 2012, 18:06 pm

gracias por la guia es lo mas avanzado que jamas haya intentado hacer... con el block de notas...

si habia pensado en usar el plug in de terceros como el Clever para winamp y guardarlo en la misma carpeta del batch... alguna vez publique algo de eso aqui... pero en este caso lo pienso usar en mis 2 Pc que tengo para este fin de automatizacion...

me ha gustado tanto lo de buscar la manera por que he aprendido de VB tambien por eso es que me me he guiado con ejemplos...

http://foro.elhacker.net/empty-t321121.0.html

Título: Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
Publicado por: Dsalomon en 26 Septiembre 2012, 11:50 am

maestro sera que se puede corregir... asi

(http://imageshack.us/a/img259/2718/procesoautomatizacion.png) (http://imageshack.us/photo/my-images/259/procesoautomatizacion.png/)

Código

@Echo off
 
::[PASO 1] ABRIR Winamp,PLAY a Winamp, ABRIR Dsclock.exe, Dslogo.exe y Dslogo2.exe
 
START /D "%Programfiles%\Winamp\" winamp.exe
	Call :Winamp_Key "x"
START /D "%Programfiles%\DS Clock\" dsclock.exe
	FOR /R %%_ in (*DsLogo.exe) do ("%%_") | FOR /R %%_ in (*DsLogo2.exe) do ("%%_")
 
::[PASO 2] PROGRAMAR BSplayer y sus listas en el el Escritorio activo - el archivo .bsl es nativo de BSplayer - 
 
at 6:45:00 /interactive start "%DesktopPath%" LISTA1.bsl
at 9:45:00 /interactive start "%DesktopPath%" LISTA1.bsl
at 12:45:00 /interactive start "%DesktopPath%" LISTA1.bsl
at 15:45:00 /interactive start "%DesktopPath%" LISTA1.bsl
at 18:45:00 /interactive start "%DesktopPath%" LISTA1.bsl
at 21:45:00 /interactive start "%DesktopPath%" LISTA1.bsl
 
at 7:30:00 /interactive start "%DesktopPath%" LISTA2.bsl
at 10:30:00 /interactive start "%DesktopPath%" LISTA2.bsl
at 13:30:00 /interactive start "%DesktopPath%" LISTA2.bsl
at 16:30:00 /interactive start "%DesktopPath%" LISTA2.bsl
at 19:30:00 /interactive start "%DesktopPath%" LISTA2.bsl
at 22:30:00 /interactive start "%DesktopPath%" LISTA2.bsl
 
at 8:15:00 /interactive start "%DesktopPath%" LISTA3.bsl
at 11:15:00 /interactive start "%DesktopPath%" LISTA3.bsl
at 14:15:00 /interactive start "%DesktopPath%" LISTA3.bsl
at 17:15:00 /interactive start "%DesktopPath%" LISTA3.bsl
at 20:15:00 /interactive start "%DesktopPath%" LISTA3.bsl
at 23:15:00 /interactive start "%DesktopPath%" LISTA3.bsl
 
at 9:00:00 /interactive start "%DesktopPath%" LISTA4.bsl
at 12:00:00 /interactive start "%DesktopPath%" LISTA4.bsl
at 15:00:00 /interactive start "%DesktopPath%" LISTA4.bsl
at 18:00:00 /interactive start "%DesktopPath%" LISTA4.bsl
at 21:00:00 /interactive start "%DesktopPath%" LISTA4.bsl
at 0:00:00 /interactive start "%DesktopPath%" LISTA4.bsl
 
::[PASO 3]
:ETIQUETA1	
 
::[PASO 4] Busque El Proceso BSplayer y al encontrarlo, PAUSE Winamp, CERRAR: Dsclock.exe, Dslogo.exe, Dslogo2.exe y TextTicker.exe
 
Tasklist /FI "IMAGENAME eq bsplayer.exe"  | Find /I "bsplayer" >NUL && (
	Call :Winamp_Key "c"
	Taskkill /F /T /IM "dsclock.exe"  >NUL 2>&1
	Taskkill /F /T /IM "Dslogo.exe" >NUL 2>&1
	Taskkill /F /T /IM "Dslogo2.exe" >NUL 2>&1
	Taskkill /F /T /IM "TxTicker.exe" >NUL 2>&1
 
::[PASO 5]	Esperar  que proceso BSplayer TERMINE de reproducir y se cierre después: Dar PLAY a Winamp, Abrir Dsclock, Abrir Dslogo y Dslogo2
)
Echo Set WshShell = CreateObject("WScript.Shell")
Echo Set oExec = WshShell.Exec("BSplayer")
Echo Do While oExec.Status = 0
     Echo WScript.Sleep 100
Echo Loop
Echo WScript.Echo oExec.Status
)>"%TEMP%\winamp.vbs"
	Start /W wscript "%TEMP%\BSplayer.vbs"
	Del /Q "%TEMP%\BSplayer.vbs"
Goto :EOF
)
 
	Call :Winamp_Key "x"
	START /D "%Programfiles%\DS Clock\" dsclock.exe
	FOR /R %%_ in (*DsLogo.exe) do ("%%_") | FOR /R %%_ in (*DsLogo2.exe) do ("%%_")
 
 
:Winamp_Key
:: Hotkeys Winamp:
::
:: c=Pause
:: x=Play
::
 
Ping -n 3 LOCALHOST >NUL
 
::[PASO 6] repetir hasta Etiqueta 1
Goto ::ETIQUETA1

Título: Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
Publicado por: Eleкtro en 26 Septiembre 2012, 12:37 pm

Citar

Código:

:Winamp_Key
:: Hotkeys Winamp:
::
:: c=Pause
:: x=Play
::
 
Ping -n 3 LOCALHOST >NUL

Porque la rutina ":Winamp_Key" solo contiene un "ping"? :¬¬
has eliminado la función por completo, en la primera página la tienes, vuelvela a copiar.

Aparte:

Citar

Código:

)>"%TEMP%\winamp.vbs"
	Start /W wscript "%TEMP%\BSplayer.vbs"

Fíjate bien a donde redireccionas y lo que intentas ejecutar (no existe).

Citar

::[PASO 5]
)
Echo Set WshShell = CreateObject("WScript.Shell")
Echo Set oExec = WshShell.Exec("BSplayer")
...
)

(
Echo Set WshShell = CreateObject("WScript.Shell"^)
Echo Set oExec = WshShell.Exec("BSplayer"^)
etc...
)

Citar

Código:

FOR /R %%_ in (*DsLogo.exe) do ("%%_") | FOR /R %%_ in (*DsLogo2.exe) do ("%%_")

¿Porque usas la pipe |?

Código:

FOR /R %%_ in (*DsLogo*.exe) do ("%%_")

saludos

Título: Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
Publicado por: Dsalomon en 26 Septiembre 2012, 18:45 pm

Gracias maestro seguire tus consejos y por la noche hare una prueba... ;-)

Título: Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
Publicado por: Dsalomon en 26 Septiembre 2012, 20:29 pm

Mastro me puedes explicar como funcionan estas lineas por que en realidad solo copie y pegue peno entiendo su funcionamiento, sobre todo de las teclas de winamp

Código

)
 
:Winamp_Key
:: Hotkeys Winamp:
::
:: c=Pause
:: x=Play
::
If NOT "%~1" EQU "" (
	(
	 Echo Set objShell = WScript.CreateObject("WScript.Shell"^)
	 Echo Do Until Success = True
	 Echo     Success = objShell.AppActivate("winamp"^)
	 Echo     Wscript.Sleep 250
	 Echo Loop
	 Echo objShell.SendKeys "%~1"
	 Echo Wscript.quit
	)>"%TEMP%\winamp.vbs"
	Start /W wscript "%TEMP%\winamp.vbs"
	Del /Q "%TEMP%\Winamp.vbs"
	Goto :EOF
)
 
Ping -n 3 LOCALHOST >NUL
Goto :Loop

Título: Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
Publicado por: Eleкtro en 27 Septiembre 2012, 00:36 am

Ay señor... :xD Con explicarte lo que hacen las lineas no sería suficiente, necesitas aprender lo que es un argumento...

Código:

Call :Winamp_Key "X"

Esto llama a la etiqueta "Winamp_key" y le pasa un argumento, la "X".

Código:

If NOT "%~1" EQU "" ()

Si por error no se le pasa un argumento pues el código del interior no se ejecuta, así se evitan aún más errores xD.

las lineas con dobles puntos :: son lineas de comentario, nada más.

Se escribe un código VBS en el archivo "%TEMP%\winamp.vbs"

El código VBS ya sabes lo que hace, envía el argumento de la etiqueta a winamp (La "X" o la "C").

No hay más.

Saludos

Título: Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
Publicado por: Dsalomon en 29 Septiembre 2012, 02:54 am

Continuando maestro me puedes seguir guiando

No me funcionan las tareas programadas pues me dice que no encuentra el archivo...

Estaba pensando usar esto:

Código

 AT 6:45 /interactive start If Not Exist "%UserProfile%\Escritorio\" (Set "DesktopPath=%UserProfile%\Desktop") LISTA1.bsl

me preguntaste ¿Porque usas la pipe |?

lo uso así... por qué probé en una máquina virtual Xp y W7 ultímate... y no corría
Hacia abajo asi que lo pegue asi y funciono...

Código

(FOR /R %%_ in (*DsLogo.exe) do ("%%_")) | (FOR /R %%_ in (*DsLogo2.exe) do ("%%_"))

Además añadí o cambie esta parte: porque no logre que corriera como anteriormente

Código

Tasklist|find /i "Bsplayer.exe"
if %errorlevel%==0 Taskkill /F /T /IM "dsclock.exe"  >NUL 2>&1 |Taskkill /F /T /IM "Dslogo.exe" >NUL 2>&1 | Taskkill /F /T /IM "Dslogo2.exe" >NUL 2>&1 | Taskkill /F /T /IM "TxTicker.exe" >NUL 2>&1 | Call :Winamp_Key "c"

Para que espere que proceso BSplayer TERMINE de reproducir y se cierre después: Dar PLAY a Winamp, Abrir Dsclock, Abrir Dslogo y Dslogo2 use este código
Pero como dije yo no he utilizado batch más que lo añadí y adpte… pero di me si esta correcto

Código

 (
Echo Set WshShell = CreateObject("WScript.Shell"^)
Echo Set oExec = WshShell.Exec("BSplayer"^)
Echo Do While oExec.Status = 0
     Echo WScript.Sleep 100
Echo Loop
Echo WScript.Echo oExec.Status
)>"%TEMP%\BSplayer.vbs"
	Start /W wscript "%TEMP%\BSplayer.vbs"
	Del /Q "%TEMP%\BSplayer.vbs"
Goto :EOF
)

Aqui estan todas las lineas.

Código

Echo off 
AT 6:45 /interactive start "%DesktopPath%" LISTA1.bsl
AT 7:30 /interactive start "%DesktopPath%" LISTA2.bsl
AT 8:15 /interactive start "%DesktopPath%" LISTA3.bsl
AT 9:00 /interactive start "%DesktopPath%" LISTA4.bsl
AT 9:45 /interactive start "%DesktopPath%" LISTA1.bsl
AT 10:30 /interactive start "%DesktopPath%" LISTA2.bsl
AT 11:15 /interactive start "%DesktopPath%" LISTA3.bsl
AT 12:00 /interactive start "%DesktopPath%" LISTA4.bsl
AT 12:45 /interactive start "%DesktopPath%" LISTA1.bsl
AT 13:30 /interactive start "%DesktopPath%" LISTA2.bsl
AT 14:15 /interactive start "%DesktopPath%" LISTA3.bsl
AT 15:00 /interactive start "%DesktopPath%" LISTA4.bsl
AT 15:45 /interactive start "%DesktopPath%" LISTA1.bsl
AT 16:30 /interactive start "%DesktopPath%" LISTA2.bsl
AT 17:15 /interactive start "%DesktopPath%" LISTA3.bsl
AT 18:00 /interactive start "%DesktopPath%" LISTA4.bsl
AT 18:45 /interactive start "%DesktopPath%" LISTA1.bsl
AT 19:30 /interactive start "%DesktopPath%" LISTA2.bsl
AT 20:15 /interactive start "%DesktopPath%" LISTA3.bsl
AT 21:00 /interactive start "%DesktopPath%" LISTA4.bsl
AT 21:45 /interactive start "%DesktopPath%" LISTA1.bsl
AT 22:30 /interactive start "%DesktopPath%" LISTA2.bsl
AT 23:15 /interactive start "%DesktopPath%" LISTA3.bsl
AT 0:00 /interactive start "%DesktopPath%" LISTA4.bsl
 
@Echo off
START /D "%Programfiles%\Winamp\" winamp.exe
	Call :Winamp_Key "x"
START /D "%Programfiles%\DS Clock\" dsclock.exe
	(FOR /R %%_ in (*DsLogo.exe) do ("%%_")) | (FOR /R %%_ in (*DsLogo2.exe) do ("%%_"))
 
:Loop
 
::[PASO 4] Busque El Proceso BSplayer y al encontrarlo: CERRAR Dsclock.exe, Dslogo.exe, Dslogo2.exe, TextTicker.exe y PAUSE Winamp 
@Echo Off
Tasklist|find /i "Bsplayer.exe"
if %errorlevel%==0 Taskkill /F /T /IM "dsclock.exe"  >NUL 2>&1 |Taskkill /F /T /IM "Dslogo.exe" >NUL 2>&1 | Taskkill /F /T /IM "Dslogo2.exe" >NUL 2>&1 | Taskkill /F /T /IM "TxTicker.exe" >NUL 2>&1 | Call :Winamp_Key "c"
 
::[PASO 5]	Esperar  que proceso BSplayer TERMINE de reproducir y se cierre después: Dar PLAY a Winamp, Abrir Dsclock, Abrir Dslogo y Dslogo2
(
Echo Set WshShell = CreateObject("WScript.Shell"^)
Echo Set oExec = WshShell.Exec("BSplayer"^)
Echo Do While oExec.Status = 0
     Echo WScript.Sleep 100
Echo Loop
Echo WScript.Echo oExec.Status
)>"%TEMP%\BSplayer.vbs"
	Start /W wscript "%TEMP%\BSplayer.vbs"
	Del /Q "%TEMP%\BSplayer.vbs"
Goto :EOF
)
	Call :Winamp_Key "x"
	START /D "%Programfiles%\DS Clock\" dsclock.exe
	(FOR /R %%_ in (*DsLogo.exe) do ("%%_")) | (FOR /R %%_ in (*DsLogo2.exe) do ("%%_"))
 
 
:Winamp_Key
:: Hotkeys Winamp:
::
:: c=Pause
:: x=Play
::
If NOT "%~1" EQU "" (
	(
	 Echo Set objShell = WScript.CreateObject("WScript.Shell"^)
	 Echo Do Until Success = True
	 Echo     Success = objShell.AppActivate("winamp"^)
	 Echo     Wscript.Sleep 250
	 Echo Loop
	 Echo objShell.SendKeys "%~1"
	 Echo Wscript.quit
	)>"%TEMP%\winamp.vbs"
	Start /W wscript "%TEMP%\winamp.vbs"
	Del /Q "%TEMP%\Winamp.vbs"
	Goto :EOF
)
 
Ping -n 3 LOCALHOST >NUL
 
::[PASO 6] repetir hasta Etiqueta 1
Goto :Loop

Título: Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
Publicado por: Eleкtro en 1 Octubre 2012, 10:01 am

Aparte de que la variable de entorno "DesktopPath" no existe, y has cambiado la manera de usar el comando start sin los parámetros correspondientes, ¿porque intentas usar un comando para abrir el archivo cuando puedes abrirlo directamente? (Siempre que lo tengas asociado al bsplayer).

Código:

AT 6:45 /NEXT: "%USERPROFILE%\Desktop\LISTA1.bsl"

http://ss64.com/nt/at.html
http://ss64.com/nt/schtasks.html

el trozo del código VBS de "Bsplayer.vbs" está bien, bueno, le sobra el parentesis suelto ) de abajo del todo, pero supongo que arriba del todo hay una linea que no pusiste (If not exist...() entonces ya no sobraría el paréntesis.

Te aconsejo que leas un manual básico... lo necesitas para tu hobby/trabajo y no puedes pasarte la vida preguntando sobre el mismo tema :xD

saludos

Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: Dsalomon en 2 Septiembre 2012, 09:23 am