VB XMLHTTP使用方法
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("//www.jb51.net/test.exe") Then
MsgBox "ok"
Else
MsgBox "no"
End If
End Sub
您可能感兴趣的文章
- 01-10用VBS可执行程序+Xmlhttp下载备份网上文件的代码
- 01-10刷QQ群的VBS脚本
- 01-10实用vbs提醒小程序
- 01-10用vbs实现的输入助手附使用方法
- 01-10vbscript LoadPicture函数使用方法与漏洞利用
- 01-10Msxml2.XMLHTTP Msxml2.ServerXMLHTTP与缓存
- 01-10asp中for循环的使用方法
- 01-10VB使用XMLHTTP实现Post与Get的方法
- 01-10全面解析Bootstrap中form、navbar的使用方法
- 01-10vbscript基础篇 - vbs数组Array的定义与使用方法