金字塔自動(dòng)向QQ發(fā)消息實(shí)例 不能在qq中自動(dòng)發(fā)消息呢　[金字塔]

我看過“金字塔自動(dòng)向QQ發(fā)消息實(shí)例”

然后把例子里面需要改動(dòng)的地方做了變化，

但為什么修改后，單步調(diào)試?yán)镒詈筝敵龅牟皇强罩稻褪?？

而且，不能在qq中自動(dòng)發(fā)消息呢？

請高人指導(dǎo)。

付VBS：模塊function最后添加

。。。。。。

End Function

Function QQMSGX(Formula,QQNum,QQMSG)
    '系統(tǒng)會(huì)在逐K線模式解釋公式時(shí)的每個(gè)周期都會(huì)調(diào)用此函數(shù)一遍，因此設(shè)計(jì)時(shí)應(yīng)該注重程序的執(zhí)行效率，不要重復(fù)的執(zhí)行一些沒必要的代碼
   QQMSGX=0
   QQMSG=document.GetExtString("QQSTR")

  
   Set obj = CreateObject("WWSCommon.TCGroup")
   bq = " 交易系統(tǒng)信號發(fā)布 "
   mxmsg = bq &" " & Date &" " & Time & " 信號" & " " & QQMSG
   call obj.TransMessage("群的名字", mxmsg)
   Set obj = Nothing 
  
   Set obj = CreateObject("WWSCommon.TCGroup")  
   call obj.TransMessage("單個(gè)QQ名字", mxmsg)
   Set obj = Nothing 

End Function

付，交易系統(tǒng)程序發(fā)信號部分

原理：兩個(gè)品種對比，然后做出買賣那個(gè)品種的決定

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，調(diào)試代碼看看

debugfile沒有導(dǎo)出來任何東西，

后面的Application.Msgout  導(dǎo)入后vb不識(shí)別啊

這些都是些基本的調(diào)試技巧，說明你現(xiàn)在的能力水平還很有限，建議你先從金字塔的最基本的編程知識(shí)開始學(xué)起

管理員，謝謝你的提示。

我這里還有幾個(gè)問題：

1、我這個(gè)模型最終只給出買賣黃金或者白銀，沒有給具體值，用Debugfile，查不出來數(shù)值。

但是把這個(gè)模型雙擊應(yīng)用到Ag12的15分鐘k線上，下面的條件值都能顯示出來，3個(gè)0一個(gè)1。因此到這一步應(yīng)該是沒問題的。

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、單步調(diào)試后的結(jié)果如下（截至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:

調(diào)試結(jié)束。

3、vba我確實(shí)不熟練，謝謝指出。不過昨天早上開盤前，跟晚上閉盤后，不知我如何操作，但金字塔系統(tǒng)，自動(dòng)發(fā)送消息給我同事QQ，但沒有發(fā)到指定的群里。

還有，昨天日內(nèi)，我一直開著系統(tǒng)，應(yīng)用于AG12--15分鐘線，但實(shí)時(shí)沒有自動(dòng)發(fā)送消息。

請幫忙再找找原因，謝謝。

明月 8:17:15
 交易系統(tǒng)信號發(fā)布  2012/9/24 8:17:11 信號 買入,白銀
 該消息由金字塔交易決策系統(tǒng)提供

明月 15:36:31
 交易系統(tǒng)信號發(fā)布  2012/9/24 15:36:31 信號 賣出,黃金
 該消息由金字塔交易決策系統(tǒng)提供。
明月 15:36:48
 交易系統(tǒng)信號發(fā)布  2012/9/24 15:36:47 信號 賣出,黃金
 該消息由金字塔交易決策系統(tǒng)提供。