利用inet控件来监控网站是否能正常访问-龙8国际

  |  

qq:954886777
好文分享

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

时间:2019年05月14日 信息来源:本站原创 点击:次加入收藏 】【 字体: 】

网站管理的比较多,时常有些网站因各种问题长期处于打不开状态又没能即时发现,给网站主或自已造成很大损失,如果做一款软件实现自动监控网站状态,发现哪个网站不正常了就给出提示或远程自动重启服务器,采用软件监控 强行重启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文件夹下,否则运行会出错。

有问题联系火兔龙8国际-龙8国际官网-龙8游戏


上一篇:css中@media和@media screen和@media only screen用法做用区别
下一篇:2019年做什么网站比较有前景
(作者:佚名 编辑:admin)

新文章

门文章

网站地图