主题：为了防止数据中断,为大家编写了一个监听数据是否正常传输的VBA 程序

程序的主要判断条件是  

   获取指定品种的最后一笔数据的时间与当前的本地时间的时间差，然后与自己设置的时间差相对比（此时间差的设置是通过右上侧的

   文本框填入设置的），   当前者时间差大于后者时间差时，发出警报，有声音和消息提示。这样我们就可以及时知道数据中断,及时的切换到其他的服务器,保证我们的程序化正常稳定的运行

 

 

 

添加品种操作：

      1.将 时间差、品种代码、品种市场代码和备注（必须为正确的信息，否者提示错误，备注可以不填）填写完整。

      2.单击 添加品种 按钮 即可出现在 左侧信息框中，开始监听。

删除品种操作：

      1.找到欲删除的品种序号，填入品种序号右侧的文本框。

      2.单击 删除品种 按钮 即可删除。

导入历史品种品种操作：

      在程序非正常关闭后，再次打开此程序，上次监听品种将丢失。

      1.单击窗口右下侧 导入历史品种 按钮 即可将还原上次监听品种。

停止监听品种操作：

      此功能有两种操作方式，

      第一种是停止监听一个指定的品种。1.找到欲停止监听的品种序号，填入品种序号右侧的文本框。

                                                   2.单击  按钮 即可停止监听。

      第二种是停止监听所有的品种。      1.单击 停止监听 按钮，即可停止监听所有品种。

    此功能说明：当有品种出现报警后，当数据传输回复正常后，报警停止。

                    而数据始终不回复正常，想要停止报警，可以使用此功能。

                    使用此功能后，当数据继续回复正常后，自动开始监听。

 

 

此程序自动在交易时间内监听信息框中的品种，窗口下方的两个 开始监听 按钮和 停止监听 按钮，作用不大。

此程序将保存的历史品种放在，金字塔根目录下\Document\import.ini 文件中。

此程序将保存的历史报警的所有错误信息，文件放在，金字塔根目录下\Document\record.ini 文件中。

报警声音文件应放在d盘根目录下，文件名为 a.wav.

 

 注意:请合理设定所监控品种的时间差,对于国内期货至少要设定20秒,股票40秒.因为所监控品种的交易活跃度不同以及用户的网络传输延迟时间问题,如果此值设定太小会导致频繁的报警.

 

下载地址: http://www.weistock.com/download/alam.rar
导入方法:解压缩后,运行金字塔，点击“文件”菜单->导入 ，文件类型选窗体文件

导入UserForm2.frm窗体

将a.wav文件放到 D:\

 

关闭金字塔，重新启动

按Alt+F8弹出 执行宏 窗口，下拉菜单选择刚才我们导入的窗体即可运行了。

谢谢楼主，做法很有必要。

能不能出现此问题后自动转换服务器？

这个我不会。

我导入后，其中一台电脑一切正常，另一电脑则在本地时间处显示的是"label2"，而不是本地时间，是什么原因？哪里有冲突吗？正常工作的是XP系统，不工作的是win7系统,和这应该没关系吧。

连接可以下载，请使用IE浏览器