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