PrivateFunctionIsHearOK(URLAsString)AsBoolean
DimXMLObjectAsObject,ReturnTypeAsString
SetXMLObject=CrearObjeto("Microsoft.XMLHTTP")
XMLObject.Open"GET",URL,Falso
XMLObject.setRequestHeader"TIPO DE CONTENIDO","aplicación/x-www-form-urlencoded"
XMLObject.setRequestHeader"Rango","bytes=1-255"
XMLObject.Enviar
SiXMLObject.Status=200OXMLObject.Status=206Entonces
ReturnType=XMLObject.getResponseHeader("TIPO DE CONTENIDO")
IfUCase(ReturnType)<>"TEXT/HTML"Entonces
IsHearOK=Verdadero
Demás
IsHearOK=Falso
Fin si
Demás
IsHearOK=Falso
Fin si
SetXMLObject=Nada
Función final
PrivadoSubCommand1_Click()
IfIsHearOK("//www.VeVB.COm/test.exe")Entonces
MsgBox"ok"
Demás
MsgBox"no"
Fin si
FinSub