elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  automatizado de Canal de TV, basado en Batch DOS y VBasic…
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 3 Ir Abajo Respuesta Imprimir
Autor Tema: automatizado de Canal de TV, basado en Batch DOS y VBasic…  (Leído 16,925 veces)
Dsalomon

Desconectado Desconectado

Mensajes: 52


Ver Perfil
automatizado de Canal de TV, basado en Batch DOS y VBasic…
« 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
  1. @echo off
  2. START /D "X:\Disco\Programa\Desktop Logo 1" DesktopLogo.exe
  3. ping -n 5 localhost>nul
  4. START /D "C:\Archivos de programa\DS Clock\" dsclock.exe
  5.  

o con este otros 2 que me acaban de facilitar
Código
  1. @echo off
  2. FOR /R %%_ in (*DsLogo.exe) do ("%%_")
  3.  

No sé pero no los pude unir  así que los hice por aparte y después los compile juntos…
Código
  1. @echo off
  2. START /D "%PROGRAMFILES%\DS Clock" dsclock.exe
  3.  


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

Código
  1. TASKKILL /IM Desktop logo1.exe /F >nul
  2. TASKKILL /IM dsclock.exe /F >nul
  3. TASKKILL /IM TxtTick.exe /F >nul
  4.  

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
  1. @echo off
  2. TASKLIST /FI "winamp.exe " | findstr PID >nul
  3. 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
  4. IF NOT %ERRORLEVEL% LEQ 0 TASKKILL /IM DsLogo.exe /F >nul & TASKKILL /IM dsclock.exe /F >nul
  5. TASKKILL /IM TxtTick.exe /F >nul do ("%%_") & Ping -n 5 localhost >nul & goto
  6.  

Pero no se cómo incluir este codigo VB:

ejemplo de codigo VB No. 1

Código
  1. Select Case Status
  2.       Case 1
  3.          WinAMP_GetStatus = "PLAYING"
  4.       Case 3
  5.          WinAMP_GetStatus = "PAUSED"
  6.       Case Else
  7.          WinAMP_GetStatus = "STOPPED"
  8.    End Select



Ejemplo de codigo VB   numero 2:

Código
  1. Function WinAMP_GetStatus() As String
  2.  
  3.    '----------------------------------------------------------'
  4.    'Emula la condicion de Winamo: Play, Pausa y Detener'
  5.     'Retrieves the status of WinAMP: PLAYING, PAUSED or STOPPED'
  6.    '----------------------------------------------------------'
  7.  
  8.    Dim Status As Long
  9.    Dim i As Long
  10.  
  11.    If hWndWinAMP = 0 Then
  12.       MsgBox "WinAMP window not found yet...", vbOKOnly + vbCritical, "WinAMP Not Found"
  13.       Exit Function
  14.    End If
  15.  
  16.    Status = SendMessage(hWndWinAMP, WM_USER, 0, WA_GETSTATUS)
  17.  
  18.    Select Case Status
  19.       Case 1
  20.          WinAMP_GetStatus = "PLAYING"
  21.       Case 3
  22.          WinAMP_GetStatus = "PAUSED"
  23.       Case Else
  24.          WinAMP_GetStatus = "STOPPED"
  25.    End Select
  26.  
  27. 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.


En línea

Dsalomon

Desconectado Desconectado

Mensajes: 52


Ver Perfil
Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
« Respuesta #1 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
  1. @echo off
  2.  
  3. ::set define el proceso con una letra::
  4.  
  5. :repetir
  6. set w=bsplayer.exe
  7. set Dsl=Dslogo.exe
  8.  
  9. ::buscar el proceso Bsplayer y si lo encuentra cierre el proceso Dslogo::
  10.  
  11. tasklist | find "%w%" && taskkill /f /im %Dsl% | Ping -n localhost >nul & goto :repetir
  12.  
  13.  
  14.  
  15. ::Continuara por que todavia me faltan agregar mas programas juntos ::


En línea

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.885



Ver Perfil
Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
« Respuesta #2 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
  1. @Echo off
  2.  
  3. :Check
  4.  
  5. Rem Reseteamos la variable "CLOSE".
  6. Set Close=
  7.  
  8. Rem Busca el proceso en activo "bsplayer", Si lo encuentra le da un valor a la variable "Close".
  9. Tasklist /FI "IMAGENAME eq bsplayer.exe"  | Find /I "bsplayer" >NUL && (Set Close=SI)
  10.  
  11. 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"
  12. Tasklist /FI "IMAGENAME eq winamp.exe" /V | Findstr /I "\[detenido\] \[en.pausa\]" >NUL && (Set Close=SI)
  13.  
  14. Rem Si la variable "close" está definida, Mata los siguientes procesos.
  15. If Defined CLOSE (
  16. Taskkill /F /T /IM "dsclock.exe" >NUL 2>&1
  17. Taskkill /F /T /IM "dslogo.exe" >NUL 2>&1
  18. Taskkill /F /T /IM "barra.exe" >NUL 2>&1
  19. ) ELSE (
  20. REM Si la variable "CLOSE" NO está definida, Abre los siguientes procesos.
  21. Start /B dsclock.exe
  22. Start /B dslogo.exe
  23. )
  24.  
  25.  
  26. Ping -n 3 LOCALHOST >NUL
  27. Rem Vuelve a la etiqueta principal.
  28. 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
« Última modificación: 3 Septiembre 2012, 11:16 am por EleKtro H@cker » En línea



Dsalomon

Desconectado Desconectado

Mensajes: 52


Ver Perfil
Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
« Respuesta #3 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...
En línea

Dsalomon

Desconectado Desconectado

Mensajes: 52


Ver Perfil
Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
« Respuesta #4 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
  1. @echo off
  2. ::set define el proceso con una letra::
  3. :: variables de los programas para resumir::
  4. set Bs=bsplayer.exe
  5. set W=Winamp.exe
  6. set Dsl=Dslogo.exe
  7. set DsC=dsclock.exe
  8.  
  9. ::buscar el proceso Bsplayer y si lo encuentra cierre el proceso Dslogo y Dsclock::
  10. :repetir
  11. tasklist | find "%Bs%" && taskkill /f /im %Dsl%
  12. tasklist | find "%Bs%" && taskkill /f /im %Dsc%
  13. tasklist | find "%Bs%" >nul
  14. if %Errorlevel% == 1 (START /D "%Programfiles%\DS Clock\" dsclock.exe)
  15. if %Errorlevel% == 1 (FOR /R %%_ in (*DsLogo.exe) do ("%%_"))
  16. ping -n 05 localhost>nul & goto :repetir
  17.  
En línea

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.885



Ver Perfil
Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
« Respuesta #5 en: 3 Septiembre 2012, 11:16 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
  1. CMD /K "check.bat"

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
« Última modificación: 3 Septiembre 2012, 11:22 am por EleKtro H@cker » En línea



Dsalomon

Desconectado Desconectado

Mensajes: 52


Ver Perfil
Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
« Respuesta #6 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
En línea

Dsalomon

Desconectado Desconectado

Mensajes: 52


Ver Perfil
Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
« Respuesta #7 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..
En línea

Dsalomon

Desconectado Desconectado

Mensajes: 52


Ver Perfil
Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
« Respuesta #8 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
  1. 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
  1. FOR /R %%_ in (*DsLogo.exe) do ("%%_")

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

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

Para el programa Text Ticket:
Código
  1. 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   
               
↓                                 

└─────────────────────────────────────┘
« Última modificación: 5 Septiembre 2012, 12:04 pm por Dsalomon » En línea

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.885



Ver Perfil
Re: automatizado de Canal de TV, basado en Batch DOS y VBasic…
« Respuesta #9 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
Crear una tarea prograbada en bat

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
En línea



Páginas: [1] 2 3 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Necesito programa sencillo automatizado
Programación Visual Basic
K-19 5 3,315 Último mensaje 4 Noviembre 2009, 02:35 am
por Dessa
Descargar Videos de Canal 40, Tv azteca y Canal Once alguien...
Multimedia
grayfox2284 4 19,776 Último mensaje 21 Noviembre 2009, 02:50 am
por 043h68
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines