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"Range","bytes=1-255"
XMLObject.Send
IfXMLObject.Status=200OrXMLObject.Status=206Then
ReturnType=XMLObject.getResponseHeader("CONTENT-TYPE")
IfUCase(ReturnType)<>"TEXT/HTML"Then
IsHearOK=True
Else
IsHearOK=False
EndIf
Else
IsHearOK=False
EndIf
SetXMLObject=Nothing
EndFunction
PrivateSubCommand1_Click()
IfIsHearOK("//www.VeVB.COm/test.exe")Then
MsgBox"ok"
Else
MsgBox"no"
EndIf
EndSub