VB XMLHTTP使用方法
摘要:PrivateFunctionIsHearOK(URLAsString)AsBooleanDimXMLObjectAsObject,Retu...
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"Range","bytes=1-255"
XMLObject.Send
IfXMLObject.Status=200OrXMLObject.Status=206Then
ReturnType=XMLObject.getResponseHeader("CONTENT-TYPE")
IfUCase(ReturnType)<>"TEXT/HTML"Then
IsHearOK=True
Else
IsHearOK=False
EndIf
Else
IsHearOK=False
EndIf
SetXMLObject=Nothing
EndFunction
PrivateSubCommand1_Click()
IfIsHearOK("http://www.jb51.net/test.exe")Then
MsgBox"ok"
Else
MsgBox"no"
EndIf
EndSub
【VB XMLHTTP使用方法】相关文章:
上一篇:
VB编程的八个优良习惯第1/2页
下一篇:
vb简易计算器源码