利用inet控件来监控网站是否能正常访问-4436x12威尼斯

利用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.open      '用inet连接网页
  if instr(1,szhtml,"卡卡测速网") > 0 then      '判断网页是否包含某特定字符串
    msgbox "网页可以打开！"   
  else                        
    msgbox "网页不能打开！"   
  end if

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

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

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

有问题联系火兔4436x12威尼斯-威尼斯144777cm。