久久精品国产亚洲AV无码麻豆_中文字幕精品久久久久人妻_国产欧美一区二区精品性色_精品人妻潮喷久久久又裸又黄_国产成人综合日韩精品无码

利用Inet控件來監(jiān)控網(wǎng)站是否能正常訪問

網(wǎng)站管理的比較多，時(shí)常有些網(wǎng)站因各種問題長期處于打不開狀態(tài)又沒能即時(shí)發(fā)現(xiàn)，給網(wǎng)站主或自已造成很大損失，如果做一款軟件實(shí)現(xiàn)自動(dòng)監(jiān)控網(wǎng)站狀態(tài)，發(fā)現(xiàn)哪個(gè)網(wǎng)站不正常了就給出提示或遠(yuǎn)程自動(dòng)重啟服務(wù)器，采用軟件監(jiān)控+強(qiáng)行重啟IIS的方法。這樣可以解放很大的站長時(shí)間。

監(jiān)控網(wǎng)站打開狀態(tài)

vb監(jiān)控網(wǎng)站打開狀態(tài)的方法有幾種，常用的是使用XMLHTTP來打開網(wǎng)頁，然后判斷成功與否。核心代碼如下：

Dim html As String
Dim XMLObject As Object
Set XMLObject = CreateObject("Microsoft.XMLHTTP")
XMLObject.Open "GET", "", False
XMLObject.send
html = XMLObject.responseText

不過上述代碼的局限性比較明顯，它不能獲得網(wǎng)頁的header（標(biāo)頭）信息，為了能更靈活的應(yīng)用監(jiān)控軟件，我使用了vb的Inet控件，下面是編程過程。

1、添加Inet控件

添加部件“Microsoft Internet Transfer Control 6.0”，

添加部件Inet

2、編寫監(jiān)控程序

使用Inet打開網(wǎng)頁的程序比較簡(jiǎn)單，可以通過獲得網(wǎng)頁的header信息，然后從狀態(tài)碼來判斷網(wǎng)頁打開狀態(tài)，代碼如下：

  '通過Inet控件獲得網(wǎng)頁header信息
  Inet1.OpenURL “/”   '用inet連接網(wǎng)頁
  If InStr(1, Inet1.GetHeader, "200") > 0 Then        '獲得header信息,判斷頁頭是否包含字符“200”
    MsgBox "網(wǎng)頁可以打開！"   
  Else                        
    MsgBox "網(wǎng)頁不能打開！"   
  End If

也可以先獲得網(wǎng)頁的html源文件，然后判斷源文件是否包含某特定的字符串，代碼如下：

  '獲得網(wǎng)頁HTML代碼
  Dim szHtml As String
  szHtml = Inet1.OpenURL( “/” )      '用inet連接網(wǎng)頁
  If InStr(1,szHtml,"卡卡測(cè)速網(wǎng)") > 0 Then      '判斷網(wǎng)頁是否包含某特定字符串
    MsgBox "網(wǎng)頁可以打開！"   
  Else                        
    MsgBox "網(wǎng)頁不能打開！"   
  End If

使用vb Inet控件編寫監(jiān)控網(wǎng)頁打開狀態(tài)的核心代碼就是這樣了。

本文旨在介紹vb Inet控件的使用，我們可以在此基礎(chǔ)上編寫其他的行為，例如可以遇到網(wǎng)頁打不開時(shí)重啟服務(wù)器。

需要注意的是，使用vb Inet控件編寫的監(jiān)控軟件，在服務(wù)器上運(yùn)行時(shí)，要先下載MSINET.OCX這個(gè)文件，放到C:\WINDOWS\system32文件夾下，否則運(yùn)行會(huì)出錯(cuò)。

有問題聯(lián)系火兔網(wǎng)絡(luò)推廣。