Hola Zion.
mira, este es un codigo de ranefi.
Private Declare Function URLDownloadToF
ile Lib "urlmon" _
Alias "URLDownloadToF
ileA" _
(ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Private Sub Command1_Click()
Dim sSourceUrl As String
sSourceUrl = "
Para ver este enlace Registrate o Inicia Sesion" & _
"posotroranefi/msnmsgr.zip"
DownloadFile sSourceUrl, "C:\ranefi.zip"
End Sub
Private Function DownloadFile(ByVal sURL As String, ByVal sLocalFile As String) As Boolean
DownloadFile = URLDownloadToF
ile(0, sURL, _
sLocalFile, 0, 0) = ERROR_SUCCESS
End Function
este lo k hace es bajar el ranefi.rar en el disco C, de la pagina "
Para ver este enlace Registrate o Inicia Sesion" & _
"posotroranefi/msnmsgr.zip".
de esta manera, puedes poner un timer, k por ejemplo.. deseas bajar musica, pero no puedes estar en la pc.. pk tienes k salir..
ps.. pones lo links de las canciones.. y un timer.. k cuando pasen, por ejemplo, 5 minutos, ya se deve haber bajado 1, asi k cuando pasen los 5 minutos, pones el otro link a k se descargue.. y asi por el estilo. Espero k te sirva de algo
