Private Sub Timer2_Timer() 'проверяем если ли связь с сервером
Timer2.Enabled = False
If online = False Then
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
With oXMLHTTP
        .Open "GET", "http://сайт/" & "online.txt" ', False
        .setRequestHeader "If-Modified-Since", "Thu, 1 Jan 1970 00:00:00 UTC"
End With
oXMLHTTP.Send
Timer6.Enabled = True
Else
Next1
End If
End Sub
Private Sub Timer6_Timer()
Timer6.Enabled = False
s4et = 0
If oXMLHTTP.readyState <> 4 Then
s4et = s4et + 1
    If s4et > 100 Then
    oXMLHTTP.abort
    Timer2.Enabled = True
    Else
    Timer6.Enabled = True
    End If
Else
Next1
End If
End Sub
        Private Sub Next1()
        On Error GoTo ErrorHandler
If online = False Then
            If oXMLHTTP.Status = 200 Then
            online = True
            pisb
            End If
        oXMLHTTP.abort
        'Set oXMLHTTP = Nothing
        End If
        Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
        With oXMLHTTP
        .Open "GET", "http://сайт/" & "/" & "файл.txt" ', False
        .setRequestHeader "If-Modified-Since", "Thu, 1 Jan 1970 00:00:00 UTC"
        End With
        oXMLHTTP.Send
        Timer7.Enabled = True
        End Sub
        
Private Sub Timer7_Timer()
On Error GoTo ErrorHandler
4000: Timer7.Enabled = False
s4et = 0
If oXMLHTTP.readyState <> 4 Then
s4et = s4et + 1
    If s4et > 100 Then
    oXMLHTTP.abort
    Timer2.Enabled = True
    Else
    Timer7.Enabled = True 'файл существует
    End If
Else
Next2
End If
End Sub