[amel27]

если человек сидит за проксёй это ничего не даст

Creat0R
вот несколько модифицированный пример из справки:

Код:

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

 If IsNotConnect() Then
    MsgBox (0,"Проверка связи","Интернет-соединение отсутствует!")
 Else
    MsgBox (0,"Проверка связи","Интернет-соединение установлено!")
 EndIf

;Функция проверки на отсутствие соединения
 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
            Msgbox(0,"AutoIt COM Error !", _
                "err.source is: "      & @TAB & $oMyError.source        & @CRLF & _
                "err.description is: " & @TAB & $oMyError.description   & @CRLF & _
                "err.number is: "      & @TAB & hex($oMyError.number,8) & @CRLF & _
                "err.scriptline is: "  & @TAB & $oMyError.scriptline    & @CRLF )
            SetError($oMyError.number)
    EndSelect
Endfunc