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!!
.
Usa el buscador...
'
' ////////////////////////////////////////////////////////////////
' // 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!¡.
Lo Use pero solo encontré mas "URLDownloadToFile"
De todas Formas Muchísimas Gracias BlackZeroX