共12 条记录, 每页显示 10 条, 页签: [1] [2]

[浏览完整版]

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

1楼

meteor528528 发表于：2012/7/3 10:46:10

金字塔自动向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

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

2楼

王锋发表于：2012/7/3 10:52:10

注册dll，打开win的运行，regsvr32 C:\WWSCommon.dll 我运行了下，弹出模块已加载，但对DLLregisterServer的调用失败，错误代码为0x80020009

说明注册是失败的，原因可能是C:\WWSCommon.dll没有这个文件，或者被杀毒软件所拦截

3楼

meteor528528 发表于：2012/7/3 11:15:27

"注册dll，打开win的运行，regsvr32 C:\WWSCommon.dll 我运行了下，弹出模块已加载，但对DLLregisterServer的调用失败，错误代码为0x80020009"

说明注册是失败的，原因可能是C:\WWSCommon.dll没有这个文件，或者被杀毒软件所拦截

我的就是这样。文件的路径是对的。我把文件删了，运行会显示，找不大这个文件。

我把杀毒软件全关了，在运行，还是这样。

不知哪位大侠知道问题出在哪？

4楼

王锋发表于：2012/7/3 11:23:08

有可能是WIN7的UAC再搞鬼

5楼

allanhoo 发表于：2012/9/16 15:59:33

我也是Win7，我的可以！

6楼

星星点点 发表于：2012/10/2 11:40:21

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

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

7楼

星星点点 发表于：2012/10/2 11:46:33

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

8楼

王锋发表于：2012/10/2 11:58:10

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

9楼

星星点点 发表于：2012/10/2 12:03:19

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

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

谢谢老大

10楼

星星点点 发表于：2012/10/2 13:02:01

王锋老大，

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

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

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

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

共12 条记录, 每页显示 10 条, 页签: [1] [2]