[Creat0R]

amel27
Если я сделаю так (см. ниже), будет ли это являться корректной проверкой подключения?

Код:

;Установка функции перехвата COM-ошибок
 $oMyError = ObjEvent("AutoIt.Error","MyErrFunc")

 If IsNotConnect() Then MsgBox (48,"Проверка связи","Интернет-соединение отсутствует по причине:" & @CRLF & $oMyError.description)

;Функция проверки на отсутствие соединения
 Func IsNotConnect()
    Local $oHTTP=ObjCreate("winhttp.winhttprequest.5.1")
    $oHTTP.Open("GET","http://www.google.com")
    $oHTTP.Send()

    Return @error
 EndFunc

;Обработчик COM-ошибок
Func MyErrFunc()
    Select
        Case $oMyError.source = "WinHttp.WinHttpRequest"
            SetError($oMyError.number)
        Case Else
            Return $oMyError.description
    EndSelect
Endfunc

P.S:

Просто интересно, как ты разукрасил код скрипта? неужели каждую команду (и разделители) обрамлял тегом цветов и выделения?