Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: agus0 en 28 Noviembre 2010, 00:47 am



Título: [Solucionado] Descargar Un Archivo de Internet
Publicado por: agus0 en 28 Noviembre 2010, 00:47 am
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!!


Título: Re: [Ayuda] Descargar Un Archivo de Internet
Publicado por: BlackZeroX en 28 Noviembre 2010, 01:05 am
.
Usa el buscador...

Código
  1.  
  2.  
  3. '
  4. ' ////////////////////////////////////////////////////////////////
  5. ' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
  6. ' //                                                            //
  7. ' // Web: http://InfrAngeluX.Sytes.Net/                         //
  8. ' //                                                            //
  9. ' // |-> Pueden Distribuir Este Código siempre y cuando         //
  10. ' // no se eliminen los créditos originales de este código      //
  11. ' // No importando que sea modificado/editado o engrandecido    //
  12. ' // o achicado, si es en base a este código                    //
  13. ' ////////////////////////////////////////////////////////////////
  14. Option Explicit
  15. Function DescargarArchivo(strDowload As String, SaveOn As String) As Long
  16. On Error GoTo 1:
  17. Dim xml                     As Object
  18. Dim adoStream               As Object
  19.    Set xml = CreateObject("Microsoft.XMLHTTP")
  20.    Set adoStream = CreateObject("Adodb.Stream")
  21.    Call xml.Open("GET", strDowload, 0)
  22.    Call xml.Send
  23.    adoStream.Type = 1
  24.    Call adoStream.Open
  25.    Call adoStream.write(xml.responseBody)
  26.    Call adoStream.SaveToFile(SaveOn, 2)
  27.    Call adoStream.Close
  28.    DescargarArchivo = 1
  29. Exit Function
  30. 1:
  31. End Function
  32.  
  33.  

Dulces Lunas!¡.


Título: Re: [Ayuda] Descargar Un Archivo de Internet
Publicado por: agus0 en 28 Noviembre 2010, 01:11 am
Lo Use pero solo encontré mas "URLDownloadToFile"

De todas Formas Muchísimas Gracias BlackZeroX