金字塔自動(dòng)向QQ發(fā)送消息實(shí)例無法正常使用 [金字塔]
工作原理: 此功能充分展示了金字塔強(qiáng)大的擴(kuò)展能力,金字塔的確是一個(gè)無比強(qiáng)大的好工具。先說功能調(diào)用的邏輯。
金字塔公式系統(tǒng)可以調(diào)用VB,VB可以調(diào)用DLL,DLL可以擴(kuò)展實(shí)現(xiàn)捕捉QQ窗口發(fā)送消息的功能。再說數(shù)據(jù)傳遞。金字塔公式系統(tǒng)可以直接向VB傳遞參數(shù),也可以用全局?jǐn)?shù)據(jù)向VB傳遞數(shù)據(jù),全局?jǐn)?shù)據(jù)支持字符串,比較靈活。
下面開始講如何配置: 1、下載dll,http://www.weistock.com/download/WWSCommon.dll 2、注冊(cè)dll,打開win的運(yùn)行,regsvr32 C:\WWSCommon.dll 我運(yùn)行了下,彈出模塊已加載,但對(duì)DLLregisterServer的調(diào)用失敗,錯(cuò)誤代碼為0x80020009 以上兩步可能2.8以上版本自動(dòng)做了,但我是手工注冊(cè)了一下dll。
代碼的編寫 1、先寫VB代碼,打開金字塔的管理面板-高級(jí),模塊,function;先讓VB停止運(yùn)行,菜單,運(yùn)行,重新設(shè)置; 2、菜單,插入,過程,輸入函數(shù)名和參數(shù)名:QQMSGX,(QQNum,QQMSG),系統(tǒng)會(huì)生成一段代碼,手工改一下如下: Function QQMSGX(Formula,QQNum,QQMSG) QQMSG=document.GetExtString("QQSTR") Set obj = CreateObject("WWSCommon.TCGroup") 系統(tǒng)顯示這里開始出錯(cuò) 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可以運(yùn)行,公式也可以編譯。但過一會(huì)兒就跳出來下面這個(gè)框 系統(tǒng)顯示 編譯器錯(cuò)誤 '429' ActiveX部件不能創(chuàng)建對(duì)象:‘WWSCommon.TCGROUP' 我運(yùn)行的系統(tǒng)是WIN 7 會(huì)不會(huì)和系統(tǒng)有關(guān)系。金字塔的版本是2.88 請(qǐng)哪位大俠幫我解決下。謝謝!
- 咨詢內(nèi)容: 金字塔自動(dòng)向QQ發(fā)送消息實(shí)例 Post By:2012-4-26 21:50:10 [只看該作者]
- 金字塔客服:
注冊(cè)dll,打開win的運(yùn)行,regsvr32 C:\WWSCommon.dll 我運(yùn)行了下,彈出模塊已加載,但對(duì)DLLregisterServer的調(diào)用失敗,錯(cuò)誤代碼為0x80020009
說明注冊(cè)是失敗的,原因可能是C:\WWSCommon.dll沒有這個(gè)文件,或者被殺毒軟件所攔截
- 用戶回復(fù):
"注冊(cè)dll,打開win的運(yùn)行,regsvr32 C:\WWSCommon.dll 我運(yùn)行了下,彈出模塊已加載,但對(duì)DLLregisterServer的調(diào)用失敗,錯(cuò)誤代碼為0x80020009"
說明注冊(cè)是失敗的,原因可能是C:\WWSCommon.dll沒有這個(gè)文件,或者被殺毒軟件所攔截
我的就是這樣。文件的路徑是對(duì)的。我把文件刪了,運(yùn)行會(huì)顯示,找不大這個(gè)文件。
我把殺毒軟件全關(guān)了,在運(yùn)行,還是這樣。
不知哪位大俠知道問題出在哪?
- 網(wǎng)友回復(fù): 有可能是WIN7的UAC再搞鬼
- 網(wǎng)友回復(fù): 我也是Win7,我的可以!
有思路,想編寫各種指標(biāo)公式,程序化交易模型,選股公式,預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 262069696 進(jìn)行 有償 編寫!(不貴!點(diǎn)擊查看價(jià)格!)
相關(guān)文章
-
沒有相關(guān)內(nèi)容