VB XMLHTTP使用方法
更新時(shí)間：2008年07月15日 18:44:40 作者：
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("http://www.dbjr.com.cn/test.exe") Then
MsgBox "ok"
Else
MsgBox "no"
End If
End Sub
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.dbjr.com.cn/test.exe") Then
MsgBox "ok"
Else
MsgBox "no"
End If
End Sub
您可能感興趣的文章:
相關(guān)文章
VB FileSystemObject對象實(shí)例詳解
FileSystemObject對象被用來訪問服務(wù)器上的文件系統(tǒng)。這個(gè)對象能夠處理文件、文件夾和目錄路徑。用它來檢索文件系統(tǒng)信息也是可能的，而且vb與vbs、asp都是差不多的語法2018-12-12
一般來說，VB和VC共同編程有3種方式：一種是VC生成DLL，在VB中調(diào)用DLL；一種是VC生成ActiveX控件(.ocx)，在VB中插入；還有一種是在VC中生成ActiveX Automation服務(wù)器，在VB中調(diào)用2013-04-04
這篇文章主要介紹了VBA數(shù)組用法案例詳解,本篇文章通過簡要的案例,講解了該項(xiàng)技術(shù)的了解與使用,以下就是詳細(xì)內(nèi)容,需要的朋友可以參考下2021-08-08
這篇文章主要介紹了VBA中連接SQLSERVER數(shù)據(jù)庫例子,VBA是指Visual Basic for Applications,是Visual Basic的一種宏語言,需要的朋友可以參考下2014-07-07
一個(gè)數(shù)的所有真因數(shù)加起來正好等于這個(gè)自然數(shù)本身，在數(shù)學(xué)上，具有這種性質(zhì)的自然數(shù)叫做完全數(shù)。關(guān)鍵是求出該自然數(shù)k的所有因子。如果k%i為0，則i為k的因子，用循環(huán)語句求出k 的所有真因子（1<=i<=k/2)，把它們求和，看是否等于k來判斷。2015-05-05
VB中使用WMI獲取系統(tǒng)硬件和軟件有關(guān)信息
WMI是英文Windows Management Instrumentation的簡寫，它的功能主要是：訪問本地主機(jī)的一些信息和服務(wù)，可以管理遠(yuǎn)程計(jì)算機(jī)（當(dāng)然你必須要擁有足夠的權(quán)限），比如：重啟，關(guān)機(jī)，關(guān)閉進(jìn)程，創(chuàng)建進(jìn)程等2019-04-04
VB語言使用ADO連接、操作SQLServer數(shù)據(jù)庫教程
這篇文章主要介紹了VB語言使用ADO連接、操作SQLServer數(shù)據(jù)庫教程,本文講解詳細(xì)、代碼中有大量注釋,是非常好的一篇教程,需要的朋友可以參考下2014-08-08
這篇文章主要介紹了VB實(shí)現(xiàn)按行讀取文本文件的方法,涉及使用VB操作文件讀取的相關(guān)技巧,需要的朋友可以參考下2015-06-06
本文給大家匯總了一些使用VB實(shí)現(xiàn)的關(guān)機(jī)惡搞小程序，大家娛樂一下就行了，千萬別做壞事哦2015-09-09
這篇文章主要介紹了VB打開與保存txt文件的方法,涉及使用VB操作文本文件的相關(guān)技巧,需要的朋友可以參考下2015-06-06