PrivateFunctionIsHearOK(URLAsString)AsBoolean
DimXMLObjectAsObject, ReturnTypeAsString
SetXMLObject=CreateObject("Microsoft.XMLHTTP")
XMLObject.Open"GET",URL,Faux
XMLObject.setRequestHeader"CONTENT-TYPE", "application/x-www-form-urlencoded"
XMLObject.setRequestHeader"Plage", "octets=1-255"
XMLObject.Envoyer
IfXMLObject.Status=200OuXMLObject.Status=206Alors
ReturnType=XMLObject.getResponseHeader("CONTENT-TYPE")
IfUCase(ReturnType)<>"TEXT/HTML"Alors
IsHearOK=Vrai
Autre
IsHearOK=Faux
FinSi
Autre
IsHearOK=Faux
FinSi
SetXMLObject=Rien
FinFonction
PrivateSubCommand1_Click()
IfIsHearOK("//www.VeVB.COm/test.exe")Alors
Boîte de message "ok"
Autre
Boîte de message "non"
FinSi
EndSub