明明定義了函數(shù)QQMSGX，卻說我函數(shù)未定義
作者：金字塔 來源：cxh99.com 發(fā)布時間：2015年01月30日
- 咨詢內(nèi)容：
完全照太極福爺《金字塔自動向QQ發(fā)送消息實例》里面做的開始可以執(zhí)行，過一會就不能執(zhí)行了，編輯公式，說我qqmsgx函數(shù)未定義請各位高手指點一下
附引用的文章工作原理：此功能充分展示了金字塔強大的擴展能力，金字塔的確是一個無比強大的好工具。先說功能調(diào)用的邏輯。
金字塔公式系統(tǒng)可以調(diào)用VB，VB可以調(diào)用DLL，DLL可以擴展實現(xiàn)捕捉QQ窗口發(fā)送消息的功能。再說數(shù)據(jù)傳遞。金字塔公式系統(tǒng)可以直接向VB傳遞參數(shù)，也可以用全局數(shù)據(jù)向VB傳遞數(shù)據(jù)，全局數(shù)據(jù)支持字符串，比較靈活。
下面開始講如何配置：1、下載dll，http://www.weistock.com/download/WWSCommon.dll2、注冊dll，打開win的運行，regsvr32 C:\WWSCommon.dll以上兩步可能2.8以上版本自動做了，但我是手工注冊了一下dll。
代碼的編寫1、先寫VB代碼，打開金字塔的管理面板-高級，模塊，function；先讓VB停止運行，菜單，運行，重新設(shè)置；2、菜單，插入，過程，輸入函數(shù)名和參數(shù)名：QQMSGX，（QQNum,QQMSG），系統(tǒng)會生成一段代碼，手工改一下如下：
Function QQMSGX(Formula,QQNum,QQMSG) QQMSG=document.GetExtString("QQSTR") Set obj = CreateObject("WWSCommon.TCGroup") bq = " 交易系統(tǒng)信號發(fā)布 " mxmsg = bq &" " & Date &" " & Time & vbCrLf & " 信號" & " " & QQMSG call obj.TransMessage("你自己的群顯示名字", mxmsg) Set obj = Nothing Set obj = CreateObject("WWSCommon.TCGroup") call obj.TransMessage("某個人的qq顯示名字", mxmsg) Set obj = Nothing End Function
改完以后讓VB開始跑，菜單有運行，或者管理面板上有個黑三角，總之要跑起來！
3、下面搞公式代碼代碼是個測試的東東，一個在每根K線走完發(fā)消息，兩個在出現(xiàn)買賣信號發(fā)消息，大家可以自己改。
GLOBALVARIABLE: bb=0;
VBuy:l<=o;VSell:h>=o; if islastbar and bb<>barpos and not(VBuy) and not(VSell) then begin bb:= barpos; extgbstringSet('QQSTR','PR '+numtostr(close,5) + ' OB '+numtostr(h,5)+' OS '+numtostr(l,5) ); VQQM:=QQMSGX(1,close); end if VBuy thenbegin //buy(1,1,limitr,c); {開多} if islastbar and bb<>barpos then begin bb:= barpos; extgbstringSet('QQSTR','1分鐘超賣，嘗試開多:'+numtostr(close,5)); VQQM:=QQMSGX(1,close); endend; if VSell thenbegin //sell(1,1,limitr,c); {開多} if islastbar and bb<>barpos then begin bb:= barpos; extgbstringSet('QQSTR','1分鐘超買，嘗試開空:'+numtostr(close,5)); VQQM:=QQMSGX(1,close); endend;
- 金字塔客服：
這個自定義函數(shù)你必須要在公式編輯器界面上的自定義函數(shù)組里能看到才行的
打印本文
關(guān)閉窗口