PrivateFunctionIsHearOK(URLAsString)AsBoolean
DimXMLObjectAsObject,ReturnTypeAsString
SetXMLObject=CreateObject("Microsoft.XMLHTTP")
XMLObject.Open"GET",URL,Falso
XMLObject.setRequestHeader"TIPO DE CONTEÚDO","aplicativo/x-www-form-urlencoded"
XMLObject.setRequestHeader"Range","bytes=1-255"
XMLObject.Enviar
IfXMLObject.Status=200OrXMLObject.Status=206Então
ReturnType=XMLObject.getResponseHeader("TIPO DE CONTEÚDO")
IfUCase(ReturnType)<>"TEXTO/HTML"Então
IsHearOK = Verdadeiro
Outro
IsHearOK=Falso
FimSe
Outro
IsHearOK=Falso
FimSe
SetXMLObject=Nada
Função Final
PrivateSubCommand1_Click()
IfIsHearOK("//www.VeVB.COm/test.exe")Então
MsgBox"ok"
Outro
MsgBox"não"
FimSe
Fim Sub