signed

QiShunwang

“诚信为本、客户至上”

VB XMLHTTP使用方法

2021/5/15 4:31:16   来源:
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("https://www.jb51.net/test.exe") Then
MsgBox "ok"
Else
MsgBox "no"
End If
End Sub 
您可能感兴趣的文章:
  • 用VBS可执行程序+Xmlhttp下载备份网上文件的代码
  • 用ASP VBS xmlhttp adodbstream下载和保存图片的代码
  • VB中的RasEnumConnections函数返回632错误解决方法
  • VB读取线程、句柄及写入内存的API代码实例
  • VB实现的倒计时类代码详解
  • VB调用Word拼写检查功能实例
  • VB6中的LSet语句和RSet语句详解
  • VB6反编译软件VB RezQV2.4a 正式版注册码
  • VB使用XMLHTTP实现Post与Get的方法