Ayuda en proyecto goear downloader

[Martín Fierro]

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

[MANULOMM]

pues quitale la palabra reservada const y declara sSourceUrl como una variable de tipo string. te aconsejo que primero estudies lo basico (Como esto) dxesde algun tutorial que para eso hay muchos y despues te encamines en proyectos de este tipo.


Atentamente,

Juan Manuel Lombana
Medellìn - Colombia

[Martín Fierro]

Gracias man..