金字塔自動向QQ發消息實例 不能在qq中自動發消息呢　[金字塔]

我看過“金字塔自動向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 BK_AG THEN
BEGIN
 IF ISLASTBAR AND BB<>BARPOS THEN
 BEGIN
  extgbstringSet('QQSTR','買入，白銀');
  AG_BK:QQMSGX(1,C);
 END
END
IF BK_AU THEN
BEGIN
 IF ISLASTBAR AND BB<>BARPOS THEN
 BEGIN
  extgbstringSet('QQSTR','買入，黃金');
  AU_BK:QQMSGX(1,C);
 END
END

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 信號 賣出,黃金
 該消息由金字塔交易決策系統提供。