Как проверить сайт на доступность через VB6

Формулировка задачи:

Через AUTOIT можно сделать так

но увы не работает в 2000 винде, как такую проверку можно организовать на VB6. Консольное приложение которое проверяет доступен ли сайт и если он доступен то...

Решение задачи: «Как проверить сайт на доступность через VB6»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
    Call Inet1.Execute("http://site.ru", "GET")
     Do Until Inet1.StillExecuting = False
        DoEvents
    Loop
    If InStr(1, Inet1.GetHeader(), "200") > 0 Then
        Call MsgBox("Good")
        Else
        
    End If
    Unload Me
End Sub

                        

Оцени полезность:

13 голосов , оценка 3.769 из 5

Похожие ответы