PrivateFunctionIsHearOK(URLAsString)AsBoolean
DimXMLObjectAsObject,ReturnTypeAsString
SetXMLObject=CreateObject("Microsoft.XMLHTTP")
XMLObject.Open"GET",URL,เท็จ
XMLObject.setRequestHeader "ประเภทเนื้อหา", "application/x-www-form-urlencoded"
XMLObject.setRequestHeader"ช่วง", "ไบต์ = 1-255"
XMLObject ส่ง
IfXMLObject.Status=200OrXMLObject.Status=206แล้ว
ReturnType=XMLObject.getResponseHeader("ประเภทเนื้อหา")
IfUCase(ReturnType)<>"TEXT/HTML"แล้ว
IsHearOK=จริง
อื่น
IsHearOK=เท็จ
สิ้นสุดถ้า
อื่น
IsHearOK=เท็จ
สิ้นสุดถ้า
SetXMLObject=ไม่มีอะไร
EndFunction
PrivateSubCommand1_คลิก()
IfIsHearOK("//www.VeVB.COm/test.exe")จากนั้น
MsgBox "ตกลง"
อื่น
MsgBox "ไม่"
สิ้นสุดถ้า
สิ้นสุดย่อย