您現在的位置:程序化交易>> 期貨公式>> 金字塔等>> 其他期貨軟件知識>>正文內容

金字塔自動向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  點擊在線交流進行 有償 編寫!不貴!點擊查看價格!


【字體: 】【打印文章】【查看評論

相關文章

    沒有相關內容
主站蜘蛛池模板: 男男动漫全程肉无删减彩漫| 欧美色图在线观看| 性欧美vr高清极品| 久久婷婷国产综合精品| 欧美亚洲一区二区三区四| 亚洲综合图片网| 秦老头大战秦丽娟无删节| 国产99视频在线观看| 香蕉视频禁18| 国产成人精品视频播放| 18禁止看的免费污网站| 国精产品wnw2544a| freehdxxx2018| 小东西怎么流这么多水怎么办| 中文字幕视频一区| 日本高清有码视频| 九九热这里都是精品| 欧美久久久久久| 亚洲欧美国产精品第1页| 爱看精品福利视频观看| 免费极品av一视觉盛宴| 精品国内自产拍在线视频 | 国产老妇伦国产熟女老妇视频| 久久人人爽人人爽大片aw| 曰批全过程免费视频播放网站 | 国产精品爽爽va在线观看无码| 99在线视频精品费观看视| 天天操天天干天天| t66y最新地址一地址二地址三| 性做久久久久久免费观看| 中文字幕一区二区区免| 捏揉舔水插按摩师| 中文字幕在线观| 把极品白丝班长啪到腿软| 中文字幕在线最新在线不卡| 新木乃伊电影免费观看完整版| 久久99国产精品成人欧美| 日本欧美一级二级三级不卡| 久久人午夜亚洲精品无码区| 日本牲交大片无遮挡| 久久久噜噜噜久久熟女AA片|