[Solucionado] Descargar Un Archivo de Internet

[agus0]

Buenas... le estaba agregando a un programara la función de actualizarse y para esto se me ocurrió usar la API "URLDownloadToFile" resulta que después de terminar y compilar todo me di cuenta que la llamada de esta API hace saltar la Heuristica de Muchos antivirus. Por eso estoy buscando un reemplazo para esta...
alguien sabe como puedo descargar un fichero de Internet al estilo

Link De Origen (www.ejemplo.com/archivo.exe") a Path de Destino ("C:\archivo.ese")

Osea como "URLDownloadToFile"....

GRACIAS!!

[BlackZeroX]

.
Usa el buscador...

Código (Vb) [Seleccionar] Expandir




'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Código siempre y cuando         //
' // no se eliminen los créditos originales de este código      //
' // No importando que sea modificado/editado o engrandecido    //
' // o achicado, si es en base a este código                    //
' ////////////////////////////////////////////////////////////////
Option Explicit
Function DescargarArchivo(strDowload As String, SaveOn As String) As Long
On Error GoTo 1:
Dim xml                     As Object
Dim adoStream               As Object
   Set xml = CreateObject("Microsoft.XMLHTTP")
   Set adoStream = CreateObject("Adodb.Stream")
   Call xml.Open("GET", strDowload, 0)
   Call xml.Send
   adoStream.Type = 1
   Call adoStream.Open
   Call adoStream.write(xml.responseBody)
   Call adoStream.SaveToFile(SaveOn, 2)
   Call adoStream.Close
   DescargarArchivo = 1
Exit Function
1:
End Function



Dulces Lunas!¡.

[agus0]

Lo Use pero solo encontré mas "URLDownloadToFile"

De todas Formas Muchísimas Gracias BlackZeroX