|
|
本帖最后由 liulang0808 于 2016-1-14 09:11 编辑
昨天由于时间仓促简单描述了下，今天补充下。
1、当前代码需要的环境
cmd里使用ping命令，返回英文的ping测结果可以直接使用（timed out，unreachable 作为异常关键字，可以根据需求自行增加）
如果ping测结果是中文，直接修改异常关键字即可
2、其他说明（1）arr = Array("1.1.10.90", "1.1.8.88", "1.1.8.85") 用于存放IP地址，可以根据需求增加ip地址数量
当然也可以把ip地址放到表格内，每次进行读取。
（2）OnTime
Runtime = Now() + TimeValue("00:05:00") ‘时间设置是间隔5分钟，大家可以根据需求调整下间隔
Application.OnTime Runtime, Procedure:="my_Procedure"
（3）Application.Speech.Speak
异常会有alarm声音提醒15次，具体播报什么单词，可以自行设定，这个方式只能发英文读音的，中文不具备。
（4）发送邮件部分是从论坛里直接获取的，注意qq邮箱不能满足需求，其他邮箱大家测试（群里的针对qq邮箱解释是，有登陆密码和登记密码，貌似是这样，所有不能满足需求）
不过可以设置成表格内输入邮箱，增加交互性，而不是将邮箱直接写进代码。
3、功能描述
ping测异常，会在A,B两列红色字体显示异常时的ping测时间及对应ip，滚动刷新，最新的记录一直在上面。通过“清除”按钮可以清除这些信息。
如果需要查看ping测明细，可以点击“查看明细”按钮获取，ping测信息保存在另外一张表内，超过3000行，会自行删除前999行。
4、美工方面，真的不擅长，所以界面粗糙，也会存在bug，欢迎大家交流解决。
另外就是ping测ip时候会闪烁cdm的窗口，这个问题哪位能帮忙解决下。
|
评分
-
1
查看全部评分
-
|
/1 
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2016-1-13 16:57
发表于 2016-1-13 20:39
楼主
