金字塔自動(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，我的可以！