PrivateFunctionIsHearOK(URLAsString)AsBoolean
DimXMLObjectAsObject,ReturnTypeAsString
SetXMLObject=CreateObject("Microsoft.XMLHTTP")
XMLObject.Open"GET"، URL، خطأ
XMLObject.setRequestHeader"CONTENT-TYPE"، "application/x-www-form-urlencoded"
XMLObject.setRequestHeader"Range"،"بايت=1-255"
XMLObject.Send
IfXMLObject.Status=200OrXMLObject.Status=206ثم
ReturnType=XMLObject.getResponseHeader("CONTENT-TYPE")
IfUCase(ReturnType)<>"TEXT/HTML"ثم
IsHearOK=صحيح
آخر
IsHearOK=خطأ
EndIf
آخر
IsHearOK=خطأ
EndIf
SetXMLObject=لا شيء
وظيفة النهاية
PrivateSubCommand1_Click()
IfIsHearOK("//www.VeVB.COm/test.exe")ثم
MsgBox "موافق"
آخر
MsgBox "لا"
EndIf
EndSub