高级功能研发区-VBS执行模块的问题金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  VBS执行模块的问题  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=29949)

--  作者：Marcus
--  发布时间：2012/10/19 9:27:01
--  VBS执行模块的问题
高手请帮忙看一下以下VBS代码会有什么问题，我把这个代码放在一个模块mdMonitor.bas中。昨天晚上编写好测试正常，今天开盘了发现根本没有被执行，连APPLICATION_VBAStart都没有执行。太奇怪了，难道这种宏的运行时间也会跟开盘时间冲突？

Const cnTimerMonitor = 1
Const cnTimerMonitorInterval = 30000       \'30 seconds

Sub APPLICATION_VBAStart()
    Call Application.SetTimer(cnTimerMonitor,cnTimerMonitorInterval)
End Sub

Sub APPLICATION_Start()
End Sub

Sub APPLICATION_VBAEnd()
   Call Application.KillTimer(cnTimerMonitor)
End Sub

Sub APPLICATION_Timer(nID)
   IF nID=cnTimerMonitor then
       MonitorSystem
   End If
End Sub

Sub MonitorSystem()
\'\'\'
End Sub

--  作者：王锋
--  发布时间：2012/10/19 9:32:46
--

参考 http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=582

金字塔的VBA中，不能有重复的函数定义，估计你是有了多个APPLICATION_VBAStart定义了，导致一个都不执行

--  作者：Marcus
--  发布时间：2012/10/19 9:47:30
--

以下是引用王锋在2012-10-19 9:32:46的发言：

参考 http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=582

金字塔的VBA中，不能有重复的函数定义，估计你是有了多个APPLICATION_VBAStart定义了，导致一个都不执行

果真如此，问题已解决，谢谢！