VB XMLHTTP使用方法

页面导航:首页 > 软件编程 > vb > VB XMLHTTP使用方法

VB XMLHTTP使用方法

来源:互联网 作者:脚本宝典 时间:2015-07-28 13:12 【

PrivateFunctionIsHearOK(URLAsString)AsBoolean DimXMLObjectAsObject,ReturnTypeAsString SetXMLObject=CreateObject(Microsoft.XMLHTTP) XMLObject.OpenGET,URL,False XMLObject.setRequestHeaderCONTENT-TYPE,application/x-www-form-urlencoded XMLObjec

Private Function IsHearOK(URL As String) As Boolean 
Dim XMLObject As Object, ReturnType As String 
Set XMLObject = 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 
If XMLObject.Status = 200 Or XMLObject.Status = 206 Then 
ReturnType = XMLObject.getResponseHeader("CONTENT-TYPE") 
If UCase(ReturnType) <> "TEXT/HTML" Then 
IsHearOK = True 
Else 
IsHearOK = False 
End If 
Else 
IsHearOK = False 
End If 
Set XMLObject = Nothing 
End Function 

Private Sub Command1_Click() 
If IsHearOK("http://www.jb51.net/test.exe") Then 
MsgBox "ok" 
Else 
MsgBox "no" 
End If 
End Sub 

Tags: vb  
本文链接:http://www.js-code.com/vb/20150728/2721.html

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<