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://chabaoo.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://chabaoo.cn/test.exe") Then
MsgBox "ok"
Else
MsgBox "no"
End If
End Sub
您可能感興趣的文章:
- 用VBS可執(zhí)行程序+Xmlhttp下載備份網(wǎng)上文件的代碼
- 用ASP VBS xmlhttp adodbstream下載和保存圖片的代碼
- VB中的RasEnumConnections函數(shù)返回632錯(cuò)誤解決方法
- VB讀取線程、句柄及寫(xiě)入內(nèi)存的API代碼實(shí)例
- VB實(shí)現(xiàn)的倒計(jì)時(shí)類代碼詳解
- VB調(diào)用Word拼寫(xiě)檢查功能實(shí)例
- VB6中的LSet語(yǔ)句和RSet語(yǔ)句詳解
- VB6反編譯軟件VB RezQV2.4a 正式版注冊(cè)碼
- VB使用XMLHTTP實(shí)現(xiàn)Post與Get的方法
相關(guān)文章
VB FileSystemObject對(duì)象實(shí)例詳解
FileSystemObject對(duì)象被用來(lái)訪問(wèn)服務(wù)器上的文件系統(tǒng)。這個(gè)對(duì)象能夠處理文件、文件夾和目錄路徑。用它來(lái)檢索文件系統(tǒng)信息也是可能的,而且vb與vbs、asp都是差不多的語(yǔ)法2018-12-12VBA中連接SQLSERVER數(shù)據(jù)庫(kù)例子
這篇文章主要介紹了VBA中連接SQLSERVER數(shù)據(jù)庫(kù)例子,VBA是指Visual Basic for Applications,是Visual Basic的一種宏語(yǔ)言,需要的朋友可以參考下2014-07-07VB中使用WMI獲取系統(tǒng)硬件和軟件有關(guān)信息
WMI是英文Windows Management Instrumentation的簡(jiǎn)寫(xiě),它的功能主要是:訪問(wèn)本地主機(jī)的一些信息和服務(wù),可以管理遠(yuǎn)程計(jì)算機(jī)(當(dāng)然你必須要擁有足夠的權(quán)限),比如:重啟,關(guān)機(jī),關(guān)閉進(jìn)程,創(chuàng)建進(jìn)程等2019-04-04VB語(yǔ)言使用ADO連接、操作SQLServer數(shù)據(jù)庫(kù)教程
這篇文章主要介紹了VB語(yǔ)言使用ADO連接、操作SQLServer數(shù)據(jù)庫(kù)教程,本文講解詳細(xì)、代碼中有大量注釋,是非常好的一篇教程,需要的朋友可以參考下2014-08-08