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
WennXMLObject.Status=200OderXMLObject.Status=206Dann
ReturnType=XMLObject.getResponseHeader("CONTENT-TYPE")
IfUCase(ReturnType)<>"TEXT/HTML"Then
IsHearOK=True
Anders
IsHearOK=False
EndIf
Anders
IsHearOK=False
EndIf
SetXMLObject=Nichts
EndFunction
PrivateSubCommand1_Click()
IfIsHearOK("//www.VeVB.COm/test.exe")Then
MsgBox"ok"
Anders
MsgBox „nein“
EndIf
EndSub