主题：询问VBS应用入门Demo

我们先一步步的教您金字塔VBS的开发工作。

首先你先看一下 http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=23 帖子，对VBS开发有些基础的认识，顺便能够解决你的3#帖子的问题。

然后你需要了解VB中事件概念，即金字塔会在一些特定时候触发一些事件。

你可以在Global模块中相应 APPLICATION_VBAStart 事件，这个事件会在金字塔的VBS系统启动时发生，添加的函数会在事件中被调用。

此主题相关图片如下：qq截图未命名.gif

Sub APPLICATION_VBAStart()
 '设置一个定时器，每隔5分钟触发一次
 call Application.SetTimer(1,5*60*1000)
End Sub

随后你需要相应 Timer 来处理设定的触发

'相应的定时器事件
Sub APPLICATION_Timer(ID)
 '取600000的最新动态行情数据
 set Report1 = marketdata.GetReportData("600000","SH")
    msgbox Report1.NewPrice '显示最新价
 msgbox Report1.Open '显示开盘价
 
 '计算涨跌幅
 ZF = (Report1.NewPrice - Report1.Lastclose) / Report1.Lastclose * 100;
 If Zf >= 5 then
  '将字符串写入粘贴版
  '代码请参考前面帖子
 End if
End Sub

VBS效率肯定与C++没法比的，一个是解析型一个是编译型的。

但是监控几百个是没问题的，这也取决于你的程序复杂程度和计算机的配置