Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 3
Ir a la página 1, 2, 3  Siguiente
 
Programa Para Ver Videos De Megavideo Sin Restriccion
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Programa Para Ver Videos De Megavideo Sin Restriccion 
 
Hola a todos!
Aquí os traigo mi programa.
Lo que hace es que cuando tu colocas un link a megavideo en la caja de texto y le das a enviar crea un archivo html con el video embedido que genera la web Megavideo-No
Despues al pulsar Ver Video se abre tu navegador y se reproduce el video.


Link

Quise hacerlo con un webbrowser (lo de reproducir el video pero creo que no soporta flash asi que de momento eso es todo.

MegavideoNo.Class:


' gambas class file
PRIVATE Client AS NEW HttpClient AS "Client"
PUBLIC Buffer AS String
'http://www.megavideo.com/?v=4R2Y3TWF
PUBLIC SUB GetEmbedVideoCode(MegavideoUrl AS String)
'Crea un archivo HTML con el codigo del video embedido (Finished)
IF Mid(megavideourl, 1, 26) <> "http://www.megavideo.com/?" THEN
    Message.Error("The specified URL is not a Megavideo link")
    FMain.BtVer.Enabled = FALSE
    RETURN
END IF
Client.Close
Client.Async = TRUE
Client.Timeout = 60
Client.URL = "http://www.megavideo-no.com/megavideo/"
Client.Post("application/x-www-form-urlencoded", "url=" & MegavideoUrl)
FMain.BtVer.Enabled = FALSE
END
PUBLIC SUB Client_Finished()
DIM Archivo AS File
'Leemos los datos descargados (HTML)
IF Lof(Client) THEN
    READ #Client, Buffer, Lof(Client)
END IF  
'comprobamos que no existan errores
IF InStr(Buffer, "Error locating download URL") THEN
    Message.Error("Video does not exist")
    FMain.BtVer.Enabled = FALSE
    RETURN
ENDIF

'Modificamos el buffer para que quede el codigo html que deseamos
Buffer = "<html><head><title>Ver video sin resticciones</title></head><body><br><br><br><br><center><embed src=" & Between(Buffer, "<embed>") & "></center></body></html>"
'Creamos un archivo HTML con el codigo del video generado por la web
  OPEN Application.Path & "/video.html" FOR WRITE CREATE AS #Archivo  
    PRINT #Archivo, Buffer  
  CLOSE #Archivo  
'Poniendo los controles de los formularios como publicos
FMain.BtVer.Enabled = TRUE
END

PRIVATE FUNCTION Between(Datos AS String, Cadena1 AS String, Cadena2 AS String) AS String
  DIM iinf AS Integer
  DIM isup AS Integer
  iinf = InStr(Datos, Cadena1) + Len(Cadena1)
  isup = InStr(Datos, Cadena2, iinf)
  RETURN Mid(Datos, iinf, isup - iinf)
END


Saludos.
 




===================
Sube tus clases, módulos o funciones a Mi Web

No soy un completo inútil. Por lo menos sirvo de mal ejemplo
 
Juan Luis Lopez - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Programa Para Ver Videos De Megavideo Sin Restriccion 
 
Hola, amplie un poco el codigo para que veas que si se puede reproducir desde el programa pero usando mplayer no un webbrowser.

Es medio un dolor de cabeza hacer streaming, puse un Shell asi nomas que esta bastante mal aunque funciona.

No creo que sea imposible hacer una buena clase de streaming con mplayer pero hay que romperse un poco la cabeza y hacerlo :P.

screen1
http://www.4shared.com/file/mAeaxogy/Movie1-001tar.html
 



 
Enchufadoo - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Programa Para Ver Videos De Megavideo Sin Restriccion 
 
Hola! me pase todo el dia agregandole cosas, ahora puede gestionar muchas descargas y le agregue la clase de "Movie Player" que viene con gambas para poder verlos mientras los descargas (espero que sea legal eso!)

http://www.4shared.com/file/rdt5pPIf/Movie1-003tar.html

megavideoscreen
 



 
Enchufadoo - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Programa Para Ver Videos De Megavideo Sin Restriccion 
 
Y con este programa no hay limitaciones de las 72 horas?

Saludos.
 




===================
www.capasoft.cat
 
Capa - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Programa Para Ver Videos De Megavideo Sin Restriccion 
 
Hola Capa! estube viendo anoche y megavideo me reconocia wget como un no-navegador y cortaba las descargas, le agregue un parametro y ahora funciona sin restriccion (por ahora). Tambien le agregue un par de cosas.

http://www.4shared.com/file/bhZ22MlF/Movie1-005tar.html

screenshot1
 



 
Enchufadoo - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Programa Para Ver Videos De Megavideo Sin Restriccion 
 
Veo que se ha mejorado mucho el programa!
Me gusta mucho lo de descargarse los videos al disco aunque no entiendo muy bien el codigo porque soy ubuntero desde hace 3 o 4 meses ( vengo de Visual basic 6)
A mi en ubuntu 11.04 y gambas 2 no se me visualiza el video mientras se descarga por mucho que le de a "Play" que puede ser?

Saludos y gracias!
 




===================
Sube tus clases, módulos o funciones a Mi Web

No soy un completo inútil. Por lo menos sirvo de mal ejemplo
 
Juan Luis Lopez - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Programa Para Ver Videos De Megavideo Sin Restriccion 
 
Juan Luis Lopez y Enchufadoo:

Seria interesante que dejarais un enlace a un archivo de instalación  .deb , porque creo que es un programa muy interesante, y mucha gente puede estar interesada en instalarla.

Saludos.

Nota.
Si me dais permiso, lo publico en mi blog.
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Programa Para Ver Videos De Megavideo Sin Restriccion 
 
Por lo que a mi respecta haz lo que quieras.
enchufado es quien partió de la base que hice y el que ha añadido un monton de mejoras.
Mi codigo lo tienes mas arriba de todas formas (Como soy nuevo y no se como hacerlo) las lineas:

OPEN Application.Path & "/video.html" FOR WRITE CREATE AS #Archivo  
   PRINT #Archivo, Buffer  
 CLOSE #Archivo  


Esto en un paquete Deb instalado no se ejecuta por tema de privilegios y no se como ejecutarlas como root (supongo que sea con shell (su)) Estoy investigando-aprendiendo.

Saludos y felicidades por tu blog!
 




===================
Sube tus clases, módulos o funciones a Mi Web

No soy un completo inútil. Por lo menos sirvo de mal ejemplo
 
Juan Luis Lopez - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Programa Para Ver Videos De Megavideo Sin Restriccion 
 
Enchufadoo escribió:  
Hola Capa! estube viendo anoche y megavideo me reconocia wget como un no-navegador y cortaba las descargas, le agregue un parametro y ahora funciona sin restriccion (por ahora). Tambien le agregue un par de cosas.

http://www.4shared.com/file/bhZ22MlF/Movie1-005tar.html

screenshot1


Gracias compañero, bajando.

Por cierto, http://www.4shared.com es un poco complicado para acertar cual es el botón verdadero de descarga (Download). Suerte que el resto baja .exe sospechosos
 




===================
www.capasoft.cat
 
Capa - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Programa Para Ver Videos De Megavideo Sin Restriccion 
 
Hola Jsban, si queres publicarlo no hay problema por mi parte, pero creo que hay partes del codigo las hice solo para que funcionaran y no quedaron muy bien. Ademas la interfaz grafica es muy chata xD. Ahora por finales no me puedo meter del todo pero ni bien tenga tiempo voy a tratar de terminarlo.
 



 
Enchufadoo - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.43 0 1 7
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Megavideo netking86 General 8 Viernes, 22 Enero 2010, 16:43 Ver último mensaje
fabianfv
No hay nuevos mensajes Preparar Nuestro Programa Para Un Usuario.... Shell General 5 Viernes, 21 Octobre 2011, 14:54 Ver último mensaje
Dani26
No hay nuevos mensajes Videos Tutoriales De Keinek jsbsan Videotutoriales 5 Miercoles, 31 Agosto 2016, 12:52 Ver último mensaje
davidbueno
No hay nuevos mensajes Como Reproducir Videos Con Gambas Euclide443 General 1 Lunes, 29 Agosto 2011, 14:30 Ver último mensaje
Shell
 

Publicar nuevo tema  Responder al tema  Página 1 de 3
Ir a la página 1, 2, 3  Siguiente

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario