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"
XML객체.전송
IfXMLObject.Status=200OrXMLObject.Status=206그러면
ReturnType=XMLObject.getResponseHeader("CONTENT-TYPE")
IfUCase(반환 유형)<>"TEXT/HTML"Then
IsHearOK=참
또 다른
IsHearOK=거짓
종료
또 다른
IsHearOK=거짓
종료
SetXMLObject=아무것도 없음
EndFunction
PrivateSubCommand1_Click()
IfIsHearOK("//www.VeVB.COm/test.exe")그런 다음
MsgBox"알았어"
또 다른
MsgBox"아니요"
종료
EndSub