主题：[求助]各位大仙，路过请留步，关于vba,qq发送

Set Formula = marketdata.STKINDI("510180","sh","短线1号",0,0)'品种、周期、指标修改为自己需要的。

另外提醒大家注意，一个在vba和pel中表达的差异。STKINDI("510180","sh","短线1号",0,0)在pel中引用的是分笔，在vba中引用的是1分钟，STKINDI("510180","sh","短线1号",0,1)在pel中引用的是1分钟，在vba中引用的是5分钟，所以引用时最好验证一遍。

参考

Set HistroyData = marketdata.GetHistoryData("SRX00","ZQ",5)

HistroyData.count 这里便是K线的数目，你只要记录这个数字增长变化就行了

王总可否给个例子，比方以推送qq为例，比方5秒为定时器，一分钟周期的k线鉴定，如果有新的k线就发送，反之不发送，即1根k线发送1次。可以吗，我想学习一下。怎么才可以记录增长的变化，谢谢。

全局变量怎么设定，不是很懂。。。。。学习一下

全局变量就是

DIM ABC 这样一样变量，将他放在SUB过程函数的上面

放在上面？然后呢？我还是没懂。。。。。。我是想搞这样的效果，每x秒寻访一次，如果发现新k线就是条件成立，之后记录这个数，当新的k线出现，则重复上面的情况，在往这个全局变量里加1.不会写，求助了，能否写个完整的例子，谢谢，我这样一遍遍问也很辛苦，您可否帮忙写一个完整的实例，我会认真学习的。这样不懂再问，相对能够切入主题，谢谢

只能给你提供一个范例的思路，我想你应该能看明白，否则你就无法胜任一个这么较为复杂的一个VBA程序编写了

DIM abc  '这里记录有信号产生的周期BAR
SUB TEST()
 Set HistroyData = marketdata.GetHistoryData("SRX00","ZQ",5)
  if HistroyData.count <> abc then
    '这里你去执行公式的检测，以及信息发送
    abc = HistroyData.count '这句很关键，当有信号产生并发送完毕后，置这个变量
  end if
end sub

呵呵呵呵呵呵，谢谢，我就等这个范例了，呵呵呵呵呵，我去试试谢谢了谢谢了

强大，很强大，非常强大，十分强大，无比强大，学习，学习，学习，基本出来了，明天继续想你求教！！！！！！

DIM abc  '这里记录有信号产生的周期BAR
Sub APPLICATION_VBAStart()
 call Application.SetTimer(0,1000) '创建一个0号定时器，间隔时间3秒
End Sub
Sub APPLICATION_Timer(ID)
Set obj = CreateObject("WWSCommon.TCGroup")
Set HistroyData = marketdata.GetHistoryData("399001","sz",0)
bbc=HistroyData.count <> abc

Set Formula = marketdata.STKINDI("399001","sz","短线1号",0,0)'品种、周期、指标修改为自己需要的。
  
 

    buy1 =  Formula.GetBufData("buy1",Formula.DataSize-2) '显示最后周期指标线数值    
    sell1 =  Formula.GetBufData("sell1",Formula.DataSize-2) '显示最后周期指标线数值
    
   

   
   
set Report1 = marketdata.GetReportData("510180","sh")
    ifjg1 = Report1.NewPrice
   
set Report2 = marketdata.GetReportData("if00","zj")
    ifjg2 = Report2.NewPrice 

    IF bbc and buy1 then  
       mxmsg =vbCrLf&  bq &" " & Date &" " &time&vbCrLf&"上证180etf"&"-----"&"etf买入价格---0"&ifjg1&vbCrLf&"股指期货当月"&"---"&"卖出开仓价格---"&ifjg2
       'application.MsgOut mxmsg
       call obj.TransMessage("邓艾黎源", mxmsg)
      
  abc = HistroyData.count
else    
    end if  
     IF  bbc and sell1  then
       mxmsg =vbCrLf&  bq &" " & Date &" " &time&vbCrLf&"上证180etf"&"-----"&"etf卖出价格---0"&ifjg1&vbCrLf&"股指期货当月"&"---"&"买入平仓价格---"&ifjg2
       'application.MsgOut mxmsg
       call obj.TransMessage("邓艾黎源", mxmsg)
       Set obj = Nothing   
      
abc = HistroyData.count
else
  
    end if
      end sub