VB XMLHTTP使用方法

日期:01-31  浏览:

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.jb51.net/test.exe") Then
MsgBox "ok"
Else
MsgBox "no"
End If
End Sub 
上一篇:VB使用XMLHTTP实现Post与Get的方法
下一篇:VB实现屏蔽文本框右键菜单的复制、粘贴等功能的方法

网友评论


点击图片更换


查看更多评论
 

推荐文章

·VB实现的16位和32位md5加密代码分享
·什么是一个高效的软件
·VB6实现连接Access数据库的ADODB代码实现方法
·VB实现屏蔽文本框右键菜单的复制、粘贴等功能的方法
·VB的TextBox文本框实现垂直居中显示的方法
·VB读取线程、句柄及写入内存的API代码实例
·VB编程的八个优良习惯第1/2页
·VB简易记事本实现代码