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"範囲","バイト=1-255"
XMLObject.Send
IfXMLObject.Status=200またはXMLObject.Status=206Then
ReturnType=XMLObject.getResponseHeader("コンテンツタイプ")
IfUCase(ReturnType)<>"TEXT/HTML"Then
IsHearOK=True
それ以外
IsHearOK=False
EndIf
それ以外
IsHearOK=False
EndIf
SetXMLObject=なし
エンドファンクション
PrivateSubCommand1_Click()
IfIsHearOK("//www.VeVB.COm/test.exe")Then
メッセージボックス「わかりました」
それ以外
メッセージボックス「いいえ」
EndIf
EndSub