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
訊息框“確定”
別的
訊息框“否”
結束如果
結束子