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