PrivateFunctionIsHearOK(URLAsString)SebagaiBoolean
DimXMLObjectAsObject,ReturnTypeAsString
SetXMLObject=Buat Objek("Microsoft.XMLHTTP")
XMLObject.Buka"GET",URL,Salah
XMLObject.setRequestHeader"CONTENT-TYPE","application/x-www-form-urlencoded"
XMLObject.setRequestHeader"Rentang","byte=1-255"
XMLObject.Kirim
JikaXMLObject.Status=200OrXMLObject.Status=206Kemudian
ReturnType=XMLObject.getResponseHeader("JENIS KONTEN")
IfUCase(ReturnType)<>"TEXT/HTML"Lalu
IsHearOK=Benar
Kalau tidak
IsHearOK=Salah
AkhirJika
Kalau tidak
IsHearOK=Salah
AkhirJika
SetXMLObject=Tidak ada
Fungsi Akhir
PrivateSubCommand1_Klik()
IfIsHearOK("//www.VeVB.COM/test.exe") Lalu
Kotak Pesan "ok"
Kalau tidak
Kotak Pesan "tidak"
AkhirJika
Sub Akhir