金字塔自動(dòng)向QQ發(fā)送消息實(shí)例源碼 [金字塔]
- 咨詢(xún)內(nèi)容： 工作原理：此功能充分展示了金字塔強(qiáng)大的擴(kuò)展能力，金字塔的確是一個(gè)無(wú)比強(qiáng)大的好工具。先說(shuō)功能調(diào)用的邏輯。
金字塔公式系統(tǒng)可以調(diào)用VB，VB可以調(diào)用DLL，DLL可以擴(kuò)展實(shí)現(xiàn)捕捉QQ窗口發(fā)送消息的功能。再說(shuō)數(shù)據(jù)傳遞。金字塔公式系統(tǒng)可以直接向VB傳遞參數(shù)，也可以用全局?jǐn)?shù)據(jù)向VB傳遞數(shù)據(jù)，全局?jǐn)?shù)據(jù)支持字符串，比較靈活。
下面開(kāi)始講如何配置：1、下載dll，http://www.weistock.com/download/WWSCommon.dll2、注冊(cè)dll，打開(kāi)win的運(yùn)行，regsvr32 C:\WWSCommon.dll以上兩步可能2.8以上版本自動(dòng)做了，但我是手工注冊(cè)了一下dll。
代碼的編寫(xiě)1、先寫(xiě)VB代碼，打開(kāi)金字塔的管理面板-高級(jí)，模塊，function；先讓VB停止運(yùn)行，菜單，運(yùn)行，重新設(shè)置；2、菜單，插入，過(guò)程，輸入函數(shù)名和參數(shù)名：QQMSGX，（QQNum,QQMSG），系統(tǒng)會(huì)生成一段代碼，手工改一下如下：
Function QQMSGX(Formula,QQNum,QQMSG) QQMSG=document.GetExtString("QQSTR") Set obj = CreateObject("WWSCommon.TCGroup") bq = " 交易系統(tǒng)信號(hào)發(fā)布 " mxmsg = bq &" " & Date &" " & Time & vbCrLf & " 信號(hào)" & " " & QQMSG call obj.TransMessage("你自己的群顯示名字", mxmsg) Set obj = Nothing Set obj = CreateObject("WWSCommon.TCGroup") call obj.TransMessage("某個(gè)人的qq顯示名字", mxmsg) Set obj = Nothing End Function
改完以后讓VB開(kāi)始跑，菜單有運(yùn)行，或者管理面板上有個(gè)黑三角，總之要跑起來(lái)！
3、下面搞公式代碼代碼是個(gè)測(cè)試的東東，一個(gè)在每根K線(xiàn)走完發(fā)消息，兩個(gè)在出現(xiàn)買(mǎi)賣(mài)信號(hào)發(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); {開(kāi)多} if islastbar and bb<>barpos then begin bb:= barpos; extgbstringSet('QQSTR','1分鐘超賣(mài)，嘗試開(kāi)多:'+numtostr(close,5)); VQQM:=QQMSGX(1,close); endend; if VSell thenbegin //sell(1,1,limitr,c); {開(kāi)多} if islastbar and bb<>barpos then begin bb:= barpos; extgbstringSet('QQSTR','1分鐘超買(mǎi)，嘗試開(kāi)空:'+numtostr(close,5)); VQQM:=QQMSGX(1,close); endend;
上面代碼有兩個(gè)地方比較關(guān)鍵：1、extgbstringSet，這個(gè)是搞全局?jǐn)?shù)據(jù)，為VB提供的，string是字符串，也可以搞其他的，參考一下開(kāi)發(fā)手冊(cè)；2、QQMSGX，這個(gè)是調(diào)用VB函數(shù)，就是前面在VB里面寫(xiě)的那個(gè)同名函數(shù)，本身可以傳遞數(shù)值參數(shù)，但有時(shí)候不夠用??；
這樣就搞完了。在圖表上加載一下公式，打開(kāi)你要發(fā)送消息的窗口，可以是群或者個(gè)人qq都可以。
可能遇到的問(wèn)題：1、VB函數(shù)沒(méi)寫(xiě)就寫(xiě)公式，會(huì)報(bào)錯(cuò)，先寫(xiě)VB；2、公式加載之后沒(méi)有發(fā)消息，看一下qq窗口名字對(duì)不對(duì)，最好從qq群的設(shè)置里面直接拷貝出來(lái)，好像帶特殊字符和空格群不行。
以上內(nèi)容有部分來(lái)自論壇其他帖子，感謝。
我在群里面的名字是太極寬客，有問(wèn)題可以群里面找我。
目前我的系統(tǒng)正在不停騷擾別人，哈哈。
[此貼子已經(jīng)被作者于2012-4-26 22:12:43編輯過(guò)] - 金字塔客服：
不錯(cuò)，你把他跟策略信號(hào)結(jié)合起來(lái)，就可以向群里朋友喊單了，如果信號(hào)很好，就可以向群的同志收費(fèi)了。
- 用戶(hù)回復(fù)： 金字塔擴(kuò)展能力通過(guò)VB和dll充分體現(xiàn)出來(lái)了，這才是牛逼的地方。
- 網(wǎng)友回復(fù)： 確實(shí)不等不說(shuō)的是 ， 金字塔的擴(kuò)展功能做的很強(qiáng)大
- 網(wǎng)友回復(fù)： 這么牛啊，那樓主能不能提供個(gè)“每半小時(shí)向QQ發(fā)送當(dāng)前公網(wǎng)IP地址的”
有思路，想編寫(xiě)各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 262069696 進(jìn)行 有償 編寫(xiě)！（不貴！點(diǎn)擊查看價(jià)格！）
相關(guān)文章
-
沒(méi)有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)