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

请告知你具体遇到了什么问题

你的定时器设定有问题 300毫秒＝0.3秒

 

建议你先用1分钟周期来测试你的系统，不要一开始就高难度的用分笔这种高频

此外，插件本身就有限制，3秒之内是无法重复发送的，你这么高的频率，肯定会漏掉许多

代码别人是很难理解你的用意的，好比别人一下子给你一堆代码让你调试一样，建议使用Application.MsgOut 方法，通过关键的变量输出，逐步的找出问题原因，如果遇到具体的问题时再来求救

初级用户建议使用分段调试的方法，就是先将你的代码简化，逐步排除故障，不要一下子把代码搞的像一窝粥一样出问题再来调试

建议你把定时器设为3秒，小于3秒的扫描是没有意义的，目前0.3的不停刷新会导致CPU资源消耗很大，可能是导致你所有问题的关键

最简单的做法就是发送完一次后，保存当前K线数量到全局变量，然后判断当前的K线数量，只有在K线出现新增以后再来启动新的公式预警

参考

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

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

全局变量就是

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

只能给你提供一个范例的思路，我想你应该能看明白，否则你就无法胜任一个这么较为复杂的一个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