Foro de elhacker.net

Saludos, bueno queri saber que APIs son necesarias para descargar n archivo como la API URLDownloaToFile??.. solo especifiquenme si pueden señores las API lo demas me voy para el API Guide y google...

Pero porfa sean lo mas sertero posible! :D

Gracias

InternetOpen ,InternetOpenUrl , InternetReadFile, InternetCloseHandle 

Crea un nuevo classmodule con este código y ponle el nombre clsDownload:

Option Explicit
 
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 Declare Function InternetOpen Lib "wininet" Alias _
        "InternetOpenA" (ByVal sAgent As String, _
        ByVal lAccessType As Long, _
        ByVal sProxyName As String, _
        ByVal sProxyBypass As String, _
        ByVal lFlags As Long) As Long
 
 
Private Declare Function InternetCloseHandle Lib "wininet" _
        (ByVal hInet As Long) As Integer
 
 
Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Const INTERNET_FLAG_EXISTING_CONNECT = &H20000000
Const INTERNET_OPEN_TYPE_DIRECT = 1
Const INTERNET_OPEN_TYPE_PROXY = 3
Const INTERNET_FLAG_RELOAD = &H80000000
 
 
 
Public Function Get_File(sURLFileName As String, _
                         sSaveFileName As String) As Boolean
    Dim lRet As Long
    On Error GoTo err_Fix
 
    lRet = InternetOpen("", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
    lRet = URLDownloadToFile(0, sURLFileName, sSaveFileName, 0, 0)
    Get_File = True
    Exit Function
err_Fix:
    Debug.Print Err.LastDllError, lRet
    Err.Clear
    Get_File = False
End Function

Luego para descargar el archivo pon este codigo donde quieras

    Dim obj As clsDownload
    Set obj = New clsDownload
    Dim bRet As Boolean
 
    bRet = obj.Get_File(Trim("url"), Trim("direccion donde guardar"))
    If bRet = False Then msgbox "Error!!!"
    Screen.MousePointer = vbDefault
    Set obj = Nothing

Que es ese mamarracho!!!!???

para que inicias la funciones de internet con InternetOpen si no es necesario? aparte el nunca cerras el handle y para peor nada de eso es necesario si vas a usar URLDownloadToFile

Del Api-Guide:

puse lo primero que encontré en internet para el chico, no hace ponerse así, para una vez que hago algo de provecho  :¬¬ :xD