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.fzitv.net/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.fzitv.net/test.exe") Then
MsgBox "ok"
Else
MsgBox "no"
End If
End Sub
相關(guān)文章
這篇文章主要介紹了VB實現(xiàn)的倒計時類代碼,非常實用的功能,需要的朋友可以參考下2014-07-07
VB的TextBox文本框?qū)崿F(xiàn)垂直居中顯示的方法
這篇文章主要介紹了VB的TextBox文本框?qū)崿F(xiàn)垂直居中顯示的方法,比較實用的功能,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了VBA中操作Excel常用方法總結(jié),包含關(guān)閉工作簿、打開工作簿、切換工作表等,需要的朋友可以參考下2014-07-07
一般來說,VB和VC共同編程有3種方式：一種是VC生成DLL,在VB中調(diào)用DLL；一種是VC生成ActiveX控件(.ocx),在VB中還有一種是在VC中生成ActiveX Automation服務(wù)器,在VB中調(diào)用2013-04-04
一個數(shù)的所有真因數(shù)加起來正好等于這個自然數(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實現(xiàn)屏蔽文本框右鍵菜單的復(fù)制、粘貼等功能的方法
這篇文章主要介紹了VB實現(xiàn)屏蔽文本框右鍵菜單的復(fù)制、粘貼等功能,是非常實用的一個功能,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了VBA中連接SQLSERVER數(shù)據(jù)庫例子,VBA是指Visual Basic for Applications,是Visual Basic的一種宏語言,需要的朋友可以參考下2014-07-07
Windows 10 x64 安裝 Visual Basic
這篇文章主要介紹了Windows 10 x64 安裝 Visual Basic 6.0 SP6注意事項,需要的朋友可以參考下2023-06-06
VB使用shell函數(shù)打開外部exe程序的實現(xiàn)方法
這篇文章主要介紹了VB使用shell函數(shù)打開外部exe程序的實現(xiàn)方法,是非常實用的一個功能,需要的朋友可以參考下2014-07-07
關(guān)于MSCOMM控件的一些說明...2007-03-03