利用Inet控件來(lái)監控網(wǎng)站是否能正常訪(fǎng)問(wèn)
網(wǎng)站管理的比較多,時(shí)常有些網(wǎng)站因各種問(wèn)題長(cháng)期處于打不開(kāi)狀態(tài)又沒(méi)能即時(shí)發(fā)現,給網(wǎng)站主或自已造成很大損失,如果做一款軟件實(shí)現自動(dòng)監控網(wǎng)站狀態(tài),發(fā)現哪個(gè)網(wǎng)站不正常了就給出提示或遠程自動(dòng)重啟服務(wù)器,采用軟件監控+強行重啟IIS的方法。這樣可以解放很大的站長(cháng)時(shí)間。
監控網(wǎng)站打開(kāi)狀態(tài)
vb監控網(wǎng)站打開(kāi)狀態(tài)的方法有幾種,常用的是使用XMLHTTP來(lái)打開(kāi)網(wǎng)頁(yè),然后判斷成功與否。核心代碼如下:
Dim html As String
Dim XMLObject As Object
Set XMLObject = CreateObject("Microsoft.XMLHTTP")
XMLObject.Open "GET", "", False
XMLObject.send
html = XMLObject.responseText
不過(guò)上述代碼的局限性比較明顯,它不能獲得網(wǎng)頁(yè)的header(標頭)信息,為了能更靈活的應用監控軟件,我使用了vb的Inet控件,下面是編程過(guò)程。
1、添加Inet控件
添加部件“Microsoft Internet Transfer Control 6.0”,
添加部件Inet
2、編寫(xiě)監控程序
使用Inet打開(kāi)網(wǎng)頁(yè)的程序比較簡(jiǎn)單,可以通過(guò)獲得網(wǎng)頁(yè)的header信息,然后從狀態(tài)碼來(lái)判斷網(wǎng)頁(yè)打開(kāi)狀態(tài),代碼如下:
'通過(guò)Inet控件獲得網(wǎng)頁(yè)header信息
Inet1.OpenURL “/” '用inet連接網(wǎng)頁(yè)
If InStr(1, Inet1.GetHeader, "200") > 0 Then '獲得header信息,判斷頁(yè)頭是否包含字符“200”
MsgBox "網(wǎng)頁(yè)可以打開(kāi)!"
Else
MsgBox "網(wǎng)頁(yè)不能打開(kāi)!"
End If
也可以先獲得網(wǎng)頁(yè)的html源文件,然后判斷源文件是否包含某特定的字符串,代碼如下:
'獲得網(wǎng)頁(yè)HTML代碼
Dim szHtml As String
szHtml = Inet1.OpenURL( “/” ) '用inet連接網(wǎng)頁(yè)
If InStr(1,szHtml,"卡卡測速網(wǎng)") > 0 Then '判斷網(wǎng)頁(yè)是否包含某特定字符串
MsgBox "網(wǎng)頁(yè)可以打開(kāi)!"
Else
MsgBox "網(wǎng)頁(yè)不能打開(kāi)!"
End If
使用vb Inet控件編寫(xiě)監控網(wǎng)頁(yè)打開(kāi)狀態(tài)的核心代碼就是這樣了。
本文旨在介紹vb Inet控件的使用,我們可以在此基礎上編寫(xiě)其他的行為,例如可以遇到網(wǎng)頁(yè)打不開(kāi)時(shí)重啟服務(wù)器。
需要注意的是,使用vb Inet控件編寫(xiě)的監控軟件,在服務(wù)器上運行時(shí),要先下載MSINET.OCX這個(gè)文件,放到C:\WINDOWS\system32文件夾下,否則運行會(huì )出錯。
有問(wèn)題聯(lián)系火兔網(wǎng)絡(luò )推廣。
下一篇::2019年做什么網(wǎng)站比較有前景
最新文章
- 1微型B2C站點(diǎn)的建立
《微型B2C站點(diǎn)的建立》對于大多數企業(yè)來(lái)說(shuō),......
- 2百度優(yōu)化之判斷關(guān)鍵詞是否犯
??關(guān)鍵詞堆砌(keywordstuffing)在網(wǎng)頁(yè)中大......
- 3百度搜索推廣匹配方式精簡(jiǎn)成
百度搜索推廣匹配方式精簡(jiǎn)成3+1匹配模式了這......
- 4百度付費推廣常見(jiàn)問(wèn)題和解決
一、推廣賬戶(hù)問(wèn)題Q1.排名不錯,但是點(diǎn)擊率極......
- 5百度競價(jià)推廣出現競價(jià)賬戶(hù)有
競價(jià)推廣怎么做?sem競價(jià)推廣成為企業(yè)歡迎的......