PrivateFunctionIsHearOK(URLAsString)AsBoolean
DimXMLObjectAsObject,ReturnTypeAsString
SetXMLObject=CreateObject("Microsoft.XMLHTTP")
XMLObject.Open"GET",URL,False
XMLObject.setRequestHeader"CONTENT-TYPE","application/x-mand1_Click()
IfIsHearOK("https:///test.exe")Then
MsgBox"ok"
Else
MsgBox"no"
EndIf
EndSub
