我看过“金字塔自动向QQ发消息实例”

然后把例子里面需要改动的地方做了变化，

但为什么修改后，单步调试里最后输出的不是空值就是0？

而且，不能在qq中自动发消息呢？

请高人指导。

付VBS：模块function最后添加

。。。。。。

End Function

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

  
   Set obj = CreateObject("WWSCommon.TCGroup")
   bq = " 交易系统信号发布 "
   mxmsg = bq &" " & Date &" " & Time & " 信号" & " " & QQMSG
   call obj.TransMessage("群的名字", mxmsg)
   Set obj = Nothing 
  
   Set obj = CreateObject("WWSCommon.TCGroup")  
   call obj.TransMessage("单个QQ名字", mxmsg)
   Set obj = Nothing 

End Function

付，交易系统程序发信号部分

原理：两个品种对比，然后做出买卖那个品种的决定

BK_AG:X1=XMAX0 AND X1>0;
BK_AU:X2=XMAX0 AND X2>0;

SK_AG:X101=XMAX100 AND X101>0;
SK_AU:X102=XMAX100 AND X102>0;

GLOBALVARIABLE: BB=0;

IF SK_AG THEN
BEGIN
 IF ISLASTBAR AND BB<>BARPOS THEN
 BEGIN
  extgbstringSet(\'QQSTR\',\'卖出，白银\');
  AG_SK:QQMSGX(1,C);
 END
END
IF SK_AU THEN
BEGIN
 IF ISLASTBAR AND BB<>BARPOS THEN
 BEGIN
  extgbstringSet(\'QQSTR\',\'卖出，黄金\');
  AU_SK:QQMSGX(1,C);
 END
END

公式里用 DEBUGFILE, VBA里用 Application.Msgout，调试代码看看

debugfile没有导出来任何东西，

后面的Application.Msgout  导入后vb不识别啊

这些都是些基本的调试技巧，说明你现在的能力水平还很有限，建议你先从金字塔的最基本的编程知识开始学起

管理员，谢谢你的提示。

我这里还有几个问题：

1、我这个模型最终只给出买卖黄金或者白银，没有给具体值，用Debugfile，查不出来数值。

但是把这个模型双击应用到Ag12的15分钟k线上，下面的条件值都能显示出来，3个0一个1。因此到这一步应该是没问题的。

BK_AG:X1=XMAX0 AND X1>0;
BK_AU:X2=XMAX0 AND X2>0;

SK_AG:X101=XMAX100 AND X101>0;
SK_AU:X102=XMAX100 AND X102>0;

2、单步调试后的结果如下（截至9/25-am 9 ：24）。

BK_AG:0;
BK_AU:1;

SK_AG:0;
SK_AU:0;

AG_BK: 

AU_BK:0.000

AG_SK:

AU_SK:

调试结束。

3、vba我确实不熟练，谢谢指出。不过昨天早上开盘前，跟晚上闭盘后，不知我如何操作，但金字塔系统，自动发送消息给我同事QQ，但没有发到指定的群里。

还有，昨天日内，我一直开着系统，应用于AG12--15分钟线，但实时没有自动发送消息。

请帮忙再找找原因，谢谢。

明月 8:17:15
 交易系统信号发布  2012/9/24 8:17:11 信号 买入,白银
 该消息由金字塔交易决策系统提供

明月 15:36:31
 交易系统信号发布  2012/9/24 15:36:31 信号 卖出,黄金
 该消息由金字塔交易决策系统提供。
明月 15:36:48
 交易系统信号发布  2012/9/24 15:36:47 信号 卖出,黄金
 该消息由金字塔交易决策系统提供。