Mensajes

Y que se escribe en el textbos que dice estructure?

no se q pasa, q abro el programa bhb 2.0 y se me cierra al instante.
Algo asi como cuando haces un archivo batch y no le pones al final un "pause"
Como lo arreglo??

Podrias explicar q hace mas o menos el programa porq no me a quedado muy claro

saludos

Pasa esto porque no es para uar con doble click, en el primer post te dicen como se puede usar y no es con doble click, debes llamarlo desde línea de comandos colocándole el archivo al que deberas aplicarlo.

Hace unas semanas postee un programa que hice para bajar archivos mp3 de la página de Goear que sin lugar a dudas es el sitio más free para escuchar música online y para compartir música online, así como muchos suben sus mp3 para escucharlos y compartirlos online, otros hacen lo mismo, por lo que en las bases de datos de Goear existen muchas canciones que se pueden escuchar online y ahora con este programa bajarlos al disco duro.

Siempre es bueno tener un backup de los archivos que has subido, este tipo de páginas son polémicas por aquello de que las canciones están protegidas por el copyrigth, de hecho otras páginas similares a esta como imeen te limitan la reproducción de las canciones a sólo unos cuantos segundos y otras páginas similares no duran mucho online, pero Goear ha sobrevivido (aunque continuamente tiene problemas en sus servidores) porque únicamente te permite escuchar la música online y no bajar el mp3, no obstante como todo, hay manera de bajar el archivo mp3 y eso es precisamente lo que hace mi programa.

En el anterior post postee ya un beta del downloader, su uso es muy fácil, buscas en la página de goear la canción cuyo mp3 quieras bajar, copias el share-link (igual que youtube) y lo pegas en la caja de texto del programa, le das click y a bajar se ha dicho, pero como dije en el post no quedé contento porque este beta me resultó muy simple, lo volví a compilar con algunas mejoras que cojí del código vbs de novlucker que lo hacen superior, les dejo los pantallazos y una explicación Changelog de las mejoras.

Goear Download mp3 V.1.2




Icontray en acción.


1.- Esta versión en sus mejoras trae una caja de texto desde la cual puedes hacer la búsqueda de tus canciones o música preferida sin siquiera entrar a la página de Goear, desde el programa tecleas la música que quieras y le das enter o le picas search y te aparecerá la página con los resultados. (como el ejemplo de la cap que dice Rolling Stones)

2.- La interfaz es más intuitiva y tiene tooltips que indican cada una de sus funciones, el programa se iconiza en el trayicon (a lado del reloj) por lo que no se te pierde, algo que sucedia con la anterior versión.

3.- Esta versión corrige el fallo del link equivocado, es fácil equivocarse con el sharelink y en vez de copiarlo correctamente se puede copiar el url del reproductor (el share-link viene escrito en el reproductor por lo que es necesario darle click para escuchar la canción y buscar el link a lado de las palabras "To share"), el anterior porgrama tenía un error que cuando el link estaba equivocado colapsaba y se cerraba mostrando un error de ejecución, este bug fue reparado, ahora es simple si tu link es equivocado te saltará un alerta indicandote que tu link está equivocado.

4.- Esta versión prescinde de la dependencia wget.dll con la que venía el programa y tenía que ser colocada en la misma carpeta donde se ejecutaba, esta versión viene con un solo binario y no necesita más dependencias (sólo las básicas de vbasic que todos los sistemas ya traen default) y el proceso de download del archivo lo hace desde el navegador que tengas en tu sistema como default (si usas firefox te brincara una página luego un diálogo para decirte que te bajará un archivo mp3, lo mismo hará con explorer si es el browser que tienes predeterminado) ya no aparece la ventanita negra del wget y puedes escoger la carpeta a la que bajará tu archivo.

5.- Algunas otras mejoras son secundarias, como por ejemplo, cuando ya tienes copiado el share-link bastará con poner el cursor en la caja de texto de download y te pegará automáticamente el texto que traes en tu portapapeles evitándote la molestia de teclear ctrl+v, si quieres limpiar la línea de download dale doble click a la caja de texto y ya estará listo para otro share-link, el incontray por su parte tiene un minimenú básico para que puedas usar el programa aun y cuando no tengas el programa en primer plano (doble click en el icontray y el programa se resutaurará), puedes además salir y revisar el Acerca de.. con los créditos.

6.- El programa añade la aclaración en su formulario About que su creación no ha tenido la finalidad de promover o cometer un delito contra el copyright de las canciones bajadas ni tiene nada que ver con la página de Goear.com, es una simple utilidad educativa que sirve para hacer backup de los archivos que tú mismo has subido al portal, si se usa el programa para bajar canciones que el usuario no ha subido la responsabilidad será del usuario final. (Declaración de intenciones) ya saben, el uso que hagan de este programa no es responsabilidad mia.

El link de descarga es este, y lo dicho si les gusta y me dan más ideas para agregarle haremos el programa más bonito y util.

D O W N L O A D

PD1.- Saludos a Novlucker que me ayudó mucho dandome ideas y monstrando su código para corregir algunos bugs que tenía el primer beta que subí hace dos semanas).
PD2.- Hace poco en la realización de este proyecto hice una consulta y el usuario MANULOMM (Juan Manuel Lombana), me mandó a estudiar visual basic porque según él, si yo tenía una duda tan básica seguramente no era capaz de hacer un proyecto como este, le mando saludos ahora, no soy programador, ni siquiera informático sólo me gusta y he aprendido de los consejos que me dan, aunque algunos sean negativos, gracias.

Si lo posteas en VB ha de ir el codigo...

http://www.etynos.org/goear-downloader.php

Para quien no quiera un programa con la URL le sobra

Saludos

Conozco la página lo usé mucho hasta que me decidí hacer este programa...

Estoy colgando el código, tranquis...

Ok, aunque un poquito tarde les dejo el tema donde ya colgue el programa al que se refiere novlucker. Está Acá....

Por cierto la técnica para hacer el programa en vbasic es la misma que usa novlucker, y como si hubieramos pensado lo mismo yo incluyo el wget para bajar el archivo..

Me olvidé decirles que si quieren el código me mandan un mp...

[D E S C A R G A]

Hace poco me vino la idea de hacer un downloader que facilitara la tarea de bajar los archivos mp3 desde la página de música online http://www.goear.com/ estaba viendo si lo hacía en vbasic o autoit en fin que me resolví hacerlo en vbasic, y ya quedó un beta con algunas fallitas pero básico funciona.

El programita incluye el wget como un dll que sirve para bajar el archivo al folder en el que está contenido el programa, es básico y bastante cutre, tiene algunos errorcitos que por falta de tiempo ya no corregí, les advierto que no soy programador y ni siquiera informático pero me encanta programar cositas que me simplifican la vida y sí le sirve a alguien pues se lo comparto.

Algunos errores que ya no pude corregir son: Cuando el link es erróneo, es decir el link está alterado o no funciona bien, el programa tirará un error y se cerrará, esto es porque no supe manejar el error y un if que tirara un msgbox y que acabara con la rutina defectuosa.

Lo hice a ratos por lo que tiene muchos defectos y el codigo está sucio, no soy ordenado y me aplico más a que el programa funcione y este funciona, básico.

Lo que tienen que hacer es copiar el link de share it en la caja de arriba y primero ejecutar localizar archivo, luego que no les tiró error, ejecutar el botón de abajo que les saltará el wget con el historial de la descarga.

Chequenlo y si les gusta y quieren el source se los dejo igual...

D E S C A R G A

Gracias man..

Lo ejecuté con la versión v3.2.12.1.

Por cierto Martín, ¿como hiciste para dejar el directorio de los usuarios en C:\Users ?

Se refiere al lugar en el que está guardado el archivo au3, yo quise hacer una versión portable del scite para andarlo en el usb pero no me funcionó de la manera a mano y fácil, de transportar los arhivos del programa al usb no lo he intentado con programas para hacer portables, porque el scite llama default a sus programas en la locación de c:/archivos de programa\Autoit y no hay manera de cambiarselo.

Verán estoy iniciando el proyecto de un downloader para archivos mp3 desde la página de goear.com, me he dado cuenta que hay muchos bajadores de páginas como youtube y no hay ninguno para goear, el principio es casi el mismo, hay que modificar una url para que nos lleve a un archivo xml en el cual se revela el url final del mp3, estoy haciendolo en vbasic, para lo cual ayudado por un código de un amigo voy por pasos.

Primero es volcar el contenido de una página en un Text, me falta hacer la modificación del url original, pero no tengo problemas con eso ahora, quiero colocar la urla del xml y que lo baje a un archivo html de mi disco duro desde donde se vuelque el contenido a un Text en el programa, ya lo he hecho con el código que estoy tomando prestado pero tengo el problema de que en el código no se puede variar el url, es decir se tiene que declarar en el programa en entre "" y no se puede usar una caja de texto para especificar la url, el código que les digo es el siguiente, hechenme una manita, alumbrenme.

Código [Seleccionar] Expandir


Private Declare Function URLDownloadToFile Lib "urlmon" _
   Alias "URLDownloadToFileA" _
  (ByVal pCaller As Long, _
   ByVal szURL As String, _
   ByVal szFileName As String, _
   ByVal dwReserved As Long, _
   ByVal lpfnCB As Long) As Long
   
   
Private Const ERROR_SUCCESS As Long = 0
Private Const BINDF_GETNEWESTVERSION As Long = &H10
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000
Private Const sSourceUrl = "http://www.goear.com/files/sst/secm1869737.xml"
Private Const sLocalFile = "c:\temp.htm"

Dim posicion1 As Integer
Dim posicion2 As Integer
Dim ip As String
Dim ip_antigua As String
Dim hfile As Long
Dim url As String

Public Function DownloadFile(sSourceUrl As String, sLocalFile As String) As Boolean
   DownloadFile = URLDownloadToFile(0&, sSourceUrl, sLocalFile, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS
End Function

Private Sub Command1_Click()
If DownloadFile(sSourceUrl, sLocalFile) Then
   hfile = FreeFile
   Open sLocalFile For Input As #hfile
      Text1.Text = Input$(LOF(hfile), hfile)
   Close #hfile
   Kill sLocalFile
   End If
End Sub


Quiero que donde se declara la constante sSourceUrl pueda especificarse algo como:

sSourceUrl = Text2.Text para que la url se pueda meter desde la caja de texto del programa, por todo lo demás funciona bien, baja la página y lo vuelca en el Text1, el problema es que no puedo cambiar la constante sSourceUrl.

Yo sé que está fácil, aliumbrenmen por favor..