PrivateFunctionIsHearOK(URLAsString)AsBoolean
DimXMLObjectAsObject,ReturnTypeAsString
SetXMLObject=CreateObject("Microsoft.XMLHTTP")
XMLObject.Open"GET",URL,False
XMLObject.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
XMLObject.setRequestHeader"Диапазон","байты=1-255"
XMLObject.Отправить
ЕслиXMLObject.Status=200ИлиXMLObject.Status=206Тогда
ReturnType=XMLObject.getResponseHeader("CONTENT-TYPE")
IfUCase(ReturnType)<>"TEXT/HTML" Тогда
IsHearOK=Истина
Еще
IsHearOK=Ложь
КонецЕсли
Еще
IsHearOK=Ложь
КонецЕсли
SetXMLObject=Ничего
Конечнаяфункция
PrivateSubCommand1_Click()
ЕслиIsHearOK("//www.VeVB.COm/test.exe")Тогда
MsgBox"ок"
Еще
MsgBox"нет"
КонецЕсли
EndSub