PrivateFunctionIsHearOK(URLAsString)AsBoolean
DimXMLObjectAsObject，ReturnTypeAsString
SetXMLObject=CreateObject("Microsoft.XMLHTTP")
XMLObject.Open"GET",URL,False
XMLObject.setRequestHeader"内容类型","application/x-www-form-urlencoded"
XMLObject.setRequestHeader"范围","字节=1-255"
XML对象.发送
如果XMLObject.Status=200或XMLObject.Status=206则
ReturnType=XMLObject.getResponseHeader("内容类型")
IfUCase(ReturnType)<>"TEXT/HTML"Then
IsHearOK=真
别的
IsHearOK=False
结束如果
别的
IsHearOK=False
结束如果
SetXMLObject=无
结束函数
PrivateSubCommand1_Click()
IfIsHearOK("//www.VeVB.COm/test.exe")Then
消息框“确定”
别的
消息框“否”
结束如果
结束子