VB XMLHTTP使用方法

 更新时间:2008年07月15日 18:44:40   作者:  
VB判断地址是否存在的XMLHTTP方法
(福利推荐:【腾讯云】服务器最新限时优惠活动,云服务器1核2G仅99元/年、2核4G仅768元/3年,立即抢购>>>:9i0i.cn/qcloud

(福利推荐:你还在原价购买阿里云服务器?现在阿里云0.8折限时抢购活动来啦!4核8G企业云服务器仅2998元/3年,立即抢购>>>:9i0i.cn/aliyun

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("/test.exe") Then
MsgBox "ok"
Else
MsgBox "no"
End If
End Sub 

相关文章

  • Basic求10000以内的完美数

    Basic求10000以内的完美数

    一个数的所有真因数加起来正好等于这个自然数本身,在数学上,具有这种性质的自然数叫做完全数。关键是求出该自然数k的所有因子。如果k%i为0,则i为k的因子,用循环语句求出k 的所有真因子(1<=i<=k/2),把它们求和,看是否等于k来判断。
    2015-05-05
  • VB调用Word拼写检查功能实例

    VB调用Word拼写检查功能实例

    这篇文章主要介绍了VB调用Word拼写检查功能,非常实用的功能,需要的朋友可以参考下
    2014-07-07
  • 分享如何在VB中调用VC编写的DLL

    分享如何在VB中调用VC编写的DLL

    一般来说,VB和VC共同编程有3种方式:一种是VC生成DLL,在VB中调用DLL;一种是VC生成ActiveX控件(.ocx),在VB中插入;还有一种是在VC中生成ActiveX Automation服务器,在VB中调用
    2013-04-04
  • VB6实现连接Access数据库的ADODB代码实现方法

    VB6实现连接Access数据库的ADODB代码实现方法

    这篇文章主要介绍了VB6实现连接Access数据库的ADODB代码实现方法,对于初学者掌握VB链接access数据库有着很好的借鉴价值,需要的朋友可以参考下
    2014-07-07
  • VB使用ADO操作Access数据库

    VB使用ADO操作Access数据库

    这篇文章主要介绍了VB使用ADO操作Access数据库的相关资料,需要的朋友可以参考下
    2015-06-06
  • VB XMLHTTP使用方法

    VB XMLHTTP使用方法

    VB判断地址是否存在的XMLHTTP方法
    2008-07-07
  • VB使用XMLHTTP实现Post与Get的方法

    VB使用XMLHTTP实现Post与Get的方法

    这篇文章主要介绍了VB使用XMLHTTP实现Post与Get的方法,有一定的借鉴价值,需要的朋友可以参考下
    2014-07-07
  • VB简易记事本实现代码

    VB简易记事本实现代码

    VB简易记事本实现代码,需要的朋友可以参考下
    2012-10-10
  • VB打开与保存txt文件的方法

    VB打开与保存txt文件的方法

    这篇文章主要介绍了VB打开与保存txt文件的方法,涉及使用VB操作文本文件的相关技巧,需要的朋友可以参考下
    2015-06-06
  • Windows 10 x64 安装 Visual Basic 6.0 SP6注意事项

    Windows 10 x64 安装 Visual Basic 

    这篇文章主要介绍了Windows 10 x64 安装 Visual Basic 6.0 SP6注意事项,需要的朋友可以参考下
    2023-06-06

最新评论

?


http://www.vxiaotou.com