vb 验证网络

引用:http://school.cfan.com.cn/soft/sys/2006-08-18/1155878337d13185.shtml

  

前言
常言道,攘外必先安内,服务器的正常运作,是开展一切工作的基础。而在网络安全问题日益凸现的今天,监控服务器的健康状况成了管理人员的必修课。然而,通过手工操作效率过于低下。想到骇客帝国中帅呆了的Agent史密斯,其本质就是一个高级的软件机器人,那么我们能不能编写一套程序,让程序就像Agent史密斯一样自动去监视服务器的健康状况,一旦发现问题就自动通知我们呢?
要编写这么一个软件机器人,我们只要通过程序定时测试网站是否正常运行即可。其实原理并不复杂,因为用Inet控件去抓取一个Url地址时,如果地址是无法访问的,Inet控件所返回的值的长度是0。如果用循环和数组,程序还能同时监测多个网址。此外,还可以用Dir函数、Windows Script Host对象等实现从收藏夹中导入链接,使软件操作更加友善。
程序设计
以下便是笔者用Visual Basic 6编写的网站监视软件。程序需要5个按钮,作用分别是:开始监视、结束监视、添加Text1中的网址至监视列表、从监视列表中移除网址和从收藏夹列表中添加网址到监视列表;一个Inet控件(需要从工程-部件中选择),RequestTimeout设置为15(请依据个人网速设置,建议大于15);三个Listbox分别为:记录监视记录、待监视网址列表、显示收藏夹中的链接列表;两个Text框分别为:用户输入网址、显示List2中选中网址的监视信息;一个Timer控件,Enabled设置为False,Interval设置为1000。
篇幅限制,下面只列出核心代码:
Private Sub Form_Load()  'Form加载时读取收藏夹中的链接
Dim sA As String * 65400
Dim sfile As String
Dim fpath As New IWshRuntimeLibrary.WshShell
sfile = Dir(fpath.SpecialFolders("FAVORITES") & "\") '用Windows Script Host对象获得当前收藏夹位置
Do While Not Len(sfile) = 0
If UCase(Right(sfile, 4)) = ".URL" Then
Open fpath.SpecialFolders("FAVORITES") & "\" & sfile For Binary As #1 '注释:用二进制打开文件
Get #1, , sA '注释:用Get语句从文件中获取字节
xz = Split(sA, Chr(10))  '以回车作为标志分割URL中文本
For i = 0 To UBound(xz)
If UCase(Left(xz(i), 4)) = "URL=" Then  '符合格式时得到Url
List3.AddItem Right(xz(i), Len(xz(i)) - 4)
End If
Next i
Close #1 '注释:关闭文件
End If
sfile = Dir
Loop
End Sub

Private Sub Timer1_Timer() '启动监视的时候Timer执行
On Error Resume Next  '先忽略一切错误,为了能够让程序执行下去
If Inet1.StillExecuting Then Inet1.Cancel
For i = 0 To List2.ListCount - 1 '循环次数等于列表中待监测链接数
val = 0
val = Len(Inet1.OpenURL(List2.List(i)))   '网址返回的长度
If val = 0 Then     'Inet返回值的长度为零,则记录无法访问
List1.AddItem (Now & Space(6) & List2.List(i) & Space(6) & "×")
c2(i) = c2(i) + 1   '不能访问计数+1
Else
List1.AddItem (Now & Space(6) & List2.List(i) & Space(6) & "√") '反之,记录可以访问
c1(i) = c1(i) + 1   '能访问计数+1
End If
Next i
List1.AddItem Chr(10)
If List2.SelCount > 0 Then    '在Text2中显示监测结果
Text2.Text = "当前统计信息:" & Chr(10) & List2.List(List2.ListIndex) & Space(6) & "正常访问:" & c1(List2.ListIndex) & "次" & Space(6) & "不能访问:" & c2(List2.ListIndex) & "次"
End If
End Sub
注意到本文通过Timer控件与Inet控件的结合非常巧妙地模仿了多线程的机制,程序反应速度非常快,如图所示就是程序运行的界面。

vb 验证网络

需要注意的是,不同网站访问速度不同,按本文方法,只有被测网址在Inet的RequestTimeout时间内刷新完才记录正常访问,如果网速过慢,需加大RequestTimeout的值(只要不要超过Timer的Interval时间),否则软件机器人会出现误报。
后记
本文通过VB自带的Inet控件以及简单的循环便实现了一个非常实用的软件机器人,服务器的任何问题都逃不过它的眼睛。如果对于Inet控件返回的内容加以判断,还可以开发出能够监视网络连载故事是否更新的软件机器人。此外,验证自己购买的虚拟主机是否真的有如广告说的那样不间断服务,对于我们的软件机器人而言,绝对是小菜一碟。
本程序在VB6.0、Windows XP联网状态下调试通过。完整的源代码可以从http://www.cfan.com.cn/11program/200514/agent.zip下载

你可能感兴趣的:(vb)