VB XMLHTTP使用方法
作者:水悠悠予安
时间:2026-06-29
浏览:0
通过创建Microsoft.XMLHTTP对象发送GET请求,设置请求头与范围,依据状态码200或206判断响应成功,同时检测响应头CONTENT-TYPE是否为非text/html,以此验证指定URL的可访问性与资源类型。
本文目录
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
作者最新文章
漫蛙2manwa2漫画最新版本下载安装
2026-10-13 13:42
漫蛙2台版入口极速直达
2026-10-13 13:17
免费漫蛙manwa官网入口
2026-10-13 13:15
漫蛙manwa漫画网址大全
2026-10-13 13:15
photoshop通道和蒙版在哪
2026-10-03 12:15
上一篇:
VB编程的八个优良习惯第1/2页
下一篇:
Linux环境中PHP的内存限制如何调整
热门文章
更多
精品专题
更多
Mac软件
更多
WINDOWS
更多










































