XMLHTTP方法 VB XMLHTTP使用方法
人气:2想了解VB XMLHTTP使用方法的相关内容吗，在本文为您仔细讲解XMLHTTP方法的相关知识和一些Code实例，欢迎阅读和指正，我们先划重点：VB,XMLHTTP，下面大家一起来学习吧。
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("//www.qb5200.com/test.exe") Then
MsgBox "ok"
Else
MsgBox "no"
End If
End Sub
加载全部内容