主题：[求助]关于在PEL语言中调用QQ窗口发送信息的问题

在自定义函数中定义了如下函数:

Function QQMSSG(Formula,QQNum,QQMSG)
    '系统会在逐K线模式解释公式时的每个周期都会调用此函数一遍，因此设计时应该注重程序的执行效率，不要重复的执行一些没必要的代码
    QQMSSG=0
    Set obj = CreateObject("WWSCommon.TCGroup")
    call obj.TransMessage(QQNum, QQMSG)
    Set obj = Nothing

End Function

然后在PEL语言书写的策略中如下调用:

if VBuy then

begin

  buy(1,1,limitr,VOP);       {开多}

  VQQM:=QQMSSG('金字塔自动交易群X','hello-由金字塔程序发出');

end; 

逐K线模式下,运行没有反应.请客服人员帮助解决.谢谢.

按照ADMIN老大的意思写了个测试用的,在逐K线模式下,出了信号后还是不停地发报警声音,直到这个K线走完才停, 怎么样才能只发一次报警声音呢?求再解答一次,监测分笔盘中时的计数器VCountAlert已经与barpos相等,不知为什么还会不停地执行.

///////////////////////////////////////////////////////////////////////////////

//测试用策略:前收盘突破前10周期高点做多,突破前10周期低点做空

//////////////////////////////////////////////////////////////////////////////

GLOBALVARIABLE: VCountAlert=0;//申明一个全局变量,用于控制过滤
VOpenPrice:=open;                     //定义开仓价
VC:=ref(close,1);                       //前收盘
VH:=ref(hhv(high,10),2);            //前2周期的10周期内高点
VL:=ref(llv(low,10),2);                //前2周期的10周期内低点
if VC>VH then
begin
  if holding<0 then sellshort(1,0,limitr,VOpenPrice);{平空}
  if holding=0 then
  begin
    buy(1,1,limitr,VOpenPrice);                      {开多}
    if islastbar and VCountAlert<>barpos then
    begin
      VCountAlert:= barpos;
      playsound(1,'.\Alarm.wav');
    end;
  end;
end;
if VC<VL then
begin
  if holding>0 then sell(1,0,limitr,VOpenPrice);    {平多}
  if holding=0 then
  begin
    buyshort(1,1,limitr,VOpenPrice);                {开空}
    if islastbar and VCountAlert<>barpos then
    begin
      VCountAlert:= barpos;
      playsound(1,'.\Alarm.wav');
    end;
  end;
end;

在程序最后加上ViewVCountAlert:VCountAlert,linethick0,coloryellow;

分笔回放显示,在条件成立时VCountAlert等于barpos,条件结束后下一K线时,VCountAlert=0了,和设计它保存

条件成立时的barpos值不同,为什么呢,它不是全局变量吗?百思不得其解啊.为何新K线时被清零了.