Test Foro de elhacker.net SMF 2.1

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


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í:


@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

@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...

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



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


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


@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

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:

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.

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

@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

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
@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

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...

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


@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

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:
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

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

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..

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


Para Winamp:
   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:
   
FOR /R %%_ in (*DsLogo.exe) do ("%%_")

Para el programa Ds Clock:
START /D "%Programfiles%\DS Clock\" dsclock.exe

Para el programa Bsplayer:
START /D "%Programfiles%\Webteh\BSplayerPro"  bsplayer.exe

Para el programa Text Ticket:
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   

↓                                 

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

Citardarle PLAY 

CitarPAUSAR 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

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...

Cita de: Dsalomon en  5 Septiembre 2012, 16:33 PMpara 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

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


@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...

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 [Seleccionar] Expandir

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:

@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

Cita de: EleKtro H@cker en  5 Septiembre 2012, 18:06 PM
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

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

maestro sera que se puede corregir... asi



@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

Citar

Código [Seleccionar] Expandir

: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 [Seleccionar] Expandir

)>"%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 [Seleccionar] Expandir


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

¿Porque usas la pipe |?

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

saludos

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

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


)

: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

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

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

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

Continuando maestro me puedes seguir guiando

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

Estaba pensando usar esto:

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...

(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

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


(
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.

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

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).

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