金字塔自動向QQ發送消息實例 [金字塔]
- 咨詢內容：
工作原理：此功能充分展示了金字塔強大的擴展能力，金字塔的確是一個無比強大的好工具。先說功能調用的邏輯。
金字塔公式系統可以調用VB，VB可以調用DLL，DLL可以擴展實現捕捉QQ窗口發送消息的功能。再說數據傳遞。金字塔公式系統可以直接向VB傳遞參數，也可以用全局數據向VB傳遞數據，全局數據支持字符串，比較靈活。
下面開始講如何配置：1、下載dll，http://www.weistock.com/download/WWSCommon.dll2、注冊dll，打開win的運行，regsvr32 C:\WWSCommon.dll以上兩步可能2.8以上版本自動做了，但我是手工注冊了一下dll。
代碼的編寫1、先寫VB代碼，打開金字塔的管理面板-高級，模塊，function；先讓VB停止運行，菜單，運行，重新設置；2、菜單，插入，過程，輸入函數名和參數名：QQMSGX，（QQNum,QQMSG），系統會生成一段代碼，手工改一下如下：
Function QQMSGX(Formula,QQNum,QQMSG) QQMSG=document.GetExtString("QQSTR") Set obj = CreateObject("WWSCommon.TCGroup") bq = " 交易系統信號發布 " 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線走完發消息，兩個在出現買賣信號發消息，大家可以自己改。
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;
上面代碼有兩個地方比較關鍵：1、extgbstringSet，這個是搞全局數據，為VB提供的，string是字符串，也可以搞其他的，參考一下開發手冊；2、QQMSGX，這個是調用VB函數，就是前面在VB里面寫的那個同名函數，本身可以傳遞數值參數，但有時候不夠用啊；
這樣就搞完了。在圖表上加載一下公式，打開你要發送消息的窗口，可以是群或者個人qq都可以。
可能遇到的問題：1、VB函數沒寫就寫公式，會報錯，先寫VB；2、公式加載之后沒有發消息，看一下qq窗口名字對不對，最好從qq群的設置里面直接拷貝出來，好像帶特殊字符和空格群不行。
以上內容有部分來自論壇其他帖子，感謝。
我在群里面的名字是太極寬客，有問題可以群里面找我。
目前我的系統正在不停騷擾別人，哈哈。
[此貼子已經被作者于2012-4-26 22:12:43編輯過] - 金字塔客服：
不錯，你把他跟策略信號結合起來，就可以向群里朋友喊單了，如果信號很好，就可以向群的同志收費了。
- 用戶回復：
金字塔擴展能力通過VB和dll充分體現出來了，這才是牛逼的地方。
- 網友回復：
確實不等不說的是 ， 金字塔的擴展功能做的很強大
- 網友回復： 這么牛啊，那樓主能不能提供個“每半小時向QQ發送當前公網IP地址的”
如果以上指標公式不適用于您常用的行情軟件
或者您想改編成選股公式，以便快速選出某種形態個股的話，
可以聯系我們相關技術人員 QQ: 262069696 進行 有償 改編！
- 上一篇：我的ru不能刷新數據
- 下一篇：沒有了！
相關文章
-
沒有相關內容
會員登錄/注冊