利用Inet控件来监控网站是否能正常访问

网站管理的比较多，时常有些网站因各种问题长期处于打不开状态又没能即时发现，给网站主或自已造成很大损失，如果做一款软件实现自动监控网站状态，发现哪个网站不正常了就给出提示或远程自动重启服务器，采用软件监控+强行重启IIS的方法。这样可以解放很大的站长时间。

监控网站打开状态

vb监控网站打开状态的方法有几种，常用的是使用XMLHTTP来打开网页，然后判断成功与否。核心代码如下：

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

不过上述代码的局限性比较明显，它不能获得网页的header（标头）信息，为了能更灵活的应用监控软件，我使用了vb的Inet控件，下面是编程过程。

1、添加Inet控件

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

添加部件Inet

2、编写监控程序

使用Inet打开网页的程序比较简单，可以通过获得网页的header信息，然后从状态码来判断网页打开状态，代码如下：

  '通过Inet控件获得网页header信息
  Inet1.OpenURL “/”   '用inet连接网页
  If InStr(1, Inet1.GetHeader, "200") > 0 Then        '获得header信息,判断页头是否包含字符“200”
    MsgBox "网页可以打开！"   
  Else                        
    MsgBox "网页不能打开！"   
  End If

也可以先获得网页的html源文件，然后判断源文件是否包含某特定的字符串，代码如下：

  '获得网页HTML代码
  Dim szHtml As String
  szHtml = Inet1.OpenURL( “/” )      '用inet连接网页
  If InStr(1,szHtml,"卡卡测速网") > 0 Then      '判断网页是否包含某特定字符串
    MsgBox "网页可以打开！"   
  Else                        
    MsgBox "网页不能打开！"   
  End If

使用vb Inet控件编写监控网页打开状态的核心代码就是这样了。

本文旨在介绍vb Inet控件的使用，我们可以在此基础上编写其他的行为，例如可以遇到网页打不开时重启服务器。

需要注意的是，使用vb Inet控件编写的监控软件，在服务器上运行时，要先下载MSINET.OCX这个文件，放到C:\WINDOWS\system32文件夹下，否则运行会出错。

有问题联系火兔网络推广。