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.zzvips.com/test.exe") Then
MsgBox "ok"
Else
MsgBox "no"
End If
End Sub
VB XMLHTTP使用方法
2021-10-07 22:58VB教程网 VB
VB判断地址是否存在的XMLHTTP方法
延伸 · 阅读
- 2021-12-25vb是什么意思?vb编程语言有哪些特点及优势?
- 2021-11-19C#中调用VB中Inputbox类的实现方法
- 2021-10-16VB中使用WMI获取系统硬件和软件有关信息
- 2021-10-16在VB中遍历文件并用正则表达式完成复制及vb实现
- 2021-10-16VB FileSystemObject对象实例详解
- 2021-10-16VB关机恶搞小程序
- VB
VB6实现连接Access数据库的ADODB代码实现方法
这篇文章主要介绍了VB6实现连接Access数据库的ADODB代码实现方法,对于初学者掌握VB链接access数据库有着很好的借鉴价值,需要的朋友可以参考下...
- VB
分享如何在VB中调用VC编写的DLL
一般来说,VB和VC共同编程有3种方式:一种是VC生成DLL,在VB中调用DLL;一种是VC生成ActiveX控件(.ocx),在VB中插入;还有一种是在VC中生成ActiveX Automation服务器...
- VB
VB键盘鼠标无动作调用程序的尝试
这篇文章主要介绍了VB键盘鼠标无动作调用程序的尝试,记录下整个思路和过程,有需要的小伙伴可以参考下。...
- VB
VB实现的16位和32位md5加密代码分享
这篇文章主要介绍了VB实现的16位和32位md5加密代码分享,需要的朋友可以参考下...
- VB
VB的TextBox文本框实现垂直居中显示的方法
这篇文章主要介绍了VB的TextBox文本框实现垂直居中显示的方法,比较实用的功能,需要的朋友可以参考下...
- VB
VB关机恶搞小程序
本文给大家汇总了一些使用VB实现的关机恶搞小程序,大家娱乐一下就行了,千万别做坏事哦...
- VB
VB获取文件大小的方法
这篇文章主要介绍了VB获取文件大小的方法,可实现准确获取文件大小的功能,需要的朋友可以参考下...
- VB
VB返回记录集结果到HTML表格的方法
这篇文章主要介绍了VB返回记录集结果到HTML表格的方法,实例分析了VB获取记录集与HTML表格生成的相关技巧,需要的朋友可以参考下...