关于金字塔自动向QQ发送消息实例无法正常使用 - 公式模型编写问题提交 - 金字塔客服中心 - 专业程序化交易软件提供商

金字塔自动向QQ发送消息实例 发帖心情

Post By：2012-4-26 21:50:10 [只看该作者]

工作原理：

此功能充分展示了金字塔强大的扩展能力，金字塔的确是一个无比强大的好工具。

先说功能调用的逻辑。

金字塔公式系统可以调用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

请哪位大侠帮我解决下。谢谢！

注册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，我的可以！

以下是引用allanhoo在2012-9-16 15:59:33的发言：
我也是Win7，我的可以！

可以发送的指标里的内容吗？加我QQ 1249761617 指教一下可以吗？

交易系统信号发布 2012-10-2 11:18:04
信号 <<<<<-------------------------------如何替换内容？是直接将内容替换vb里‘信号’，还是可以调用指标的字符串内容？
该消息由金字塔交易决策系统提供。

无法发送指标的内容,因为自定义函数无法传递字符串参数,你只能在自定义函数里,通过自己的算法来直接发送字符串

以下是引用王锋在2012-10-2 11:58:10的发言：

无法发送指标的内容,因为自定义函数无法传递字符串参数,你只能在自定义函数里,通过自己的算法来直接发送字符串

谢谢老大

王锋老大，

mxmsg = bq &" " & Date &" " & Time & vbCrLf & " 信号" & " " & QQMSG

这里的‘信号’要替换内容发送，就只能发一种信息

如何才 ‘ 在自定义函数里,通过自己的算法来直接发送字符串’？

要自己再写个自定义函数？还是如何呢？

主题：关于金字塔自动向QQ发送消息实例无法正常使用