金字塔自動向QQ發送消息實例無法正常使用　[金字塔]

工作原理： 此功能充分展示了金字塔強大的擴展能力，金字塔的確是一個無比強大的好工具。先說功能調用的邏輯。
金字塔公式系統可以調用VB，VB可以調用DLL，DLL可以擴展實現捕捉QQ窗口發送消息的功能。再說數據傳遞。金字塔公式系統可以直接向VB傳遞參數，也可以用全局數據向VB傳遞數據，全局數據支持字符串，比較靈活。
下面開始講如何配置： 1、下載dll，http://www.weistock.com/download/WWSCommon.dll 2、注冊dll，打開win的運行，regsvr32 C:\WWSCommon.dll  我運行了下，彈出模塊已加載，但對DLLregisterServer的調用失敗，錯誤代碼為0x80020009 以上兩步可能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可以運行，公式也可以編譯。但過一會兒就跳出來下面這個框 系統顯示 編譯器錯誤 '429' ActiveX部件不能創建對象：‘WWSCommon.TCGROUP'   我運行的系統是WIN 7 會不會和系統有關系。金字塔的版本是2.88 請哪位大俠幫我解決下。謝謝！  

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

   

• 金字塔客服：

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

   

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

   

• 用戶回復：

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

   

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

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

  我把殺毒軟件全關了，在運行，還是這樣。

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

   

• 網友回復： 有可能是WIN7的UAC再搞鬼

   

• 網友回復： 我也是Win7，我的可以！