工作原理： 此功能充分展示了金字塔強大的擴展能力，金字塔的確是一個無比強大的好工具。先說功能調(diào)用的邏輯。
金字塔公式系統(tǒng)可以調(diào)用VB，VB可以調(diào)用DLL，DLL可以擴展實現(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、注冊dll，打開win的運行，regsvr32 C:\WWSCommon.dll  我運行了下，彈出模塊已加載，但對DLLregisterServer的調(diào)用失敗，錯誤代碼為0x80020009 以上兩步可能2.8以上版本自動做了，但我是手工注冊了一下dll。
代碼的編寫 1、先寫VB代碼，打開金字塔的管理面板-高級，模塊，function；先讓VB停止運行，菜單，運行，重新設(shè)置； 2、菜單，插入，過程，輸入函數(shù)名和參數(shù)名：QQMSGX，（QQNum,QQMSG），系統(tǒng)會生成一段代碼，手工改一下如下： Function QQMSGX(Formula,QQNum,QQMSG) QQMSG=document.GetExtString("QQSTR") Set obj = CreateObject("WWSCommon.TCGroup")       系統(tǒng)顯示這里開始出錯 bq = " 交易系統(tǒng)信號發(fā)布 " 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可以運行，公式也可以編譯。但過一會兒就跳出來下面這個框 系統(tǒng)顯示 編譯器錯誤 '429' ActiveX部件不能創(chuàng)建對象：‘WWSCommon.TCGROUP'   我運行的系統(tǒng)是WIN 7 會不會和系統(tǒng)有關(guān)系。金字塔的版本是2.88 請哪位大俠幫我解決下。謝謝！  

• 咨詢內(nèi)容： 金字塔自動向QQ發(fā)送消息實例 Post By：2012-4-26 21:50:10 [只看該作者]

   

• 金字塔客服：

  注冊dll，打開win的運行，regsvr32 C:\WWSCommon.dll  我運行了下，彈出模塊已加載，但對DLLregisterServer的調(diào)用失敗，錯誤代碼為0x80020009

   

  說明注冊是失敗的，原因可能是C:\WWSCommon.dll沒有這個文件，或者被殺毒軟件所攔截

   

• 用戶回復(fù)：

  "注冊dll，打開win的運行，regsvr32 C:\WWSCommon.dll 我運行了下，彈出模塊已加載，但對DLLregisterServer的調(diào)用失敗，錯誤代碼為0x80020009"

   

  說明注冊是失敗的，原因可能是C:\WWSCommon.dll沒有這個文件，或者被殺毒軟件所攔截

  我的就是這樣。文件的路徑是對的。我把文件刪了，運行會顯示，找不大這個文件。

  我把殺毒軟件全關(guān)了，在運行，還是這樣。

  不知哪位大俠知道問題出在哪？

   

• 網(wǎng)友回復(fù)： 有可能是WIN7的UAC再搞鬼

   

• 網(wǎng)友回復(fù)： 我也是Win7，我的可以！