以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://www.weistock.com/bbs/list.asp?boardid=4)
----  关于金字塔自动向QQ发送消息实例无法正常使用  (http://www.weistock.com/bbs/dispbbs.asp?boardid=4&id=12758)
--  作者：meteor528528
--  发布时间：2012/7/3 10:46:10
--  关于金字塔自动向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
请哪位大侠帮我解决下。谢谢！
 
--  作者：王锋
--  发布时间：2012/7/3 10:52:10
--  

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

 

说明注册是失败的，原因可能是C:\\WWSCommon.dll没有这个文件，或者被杀毒软件所拦截
--  作者：meteor528528
--  发布时间：2012/7/3 11:15:27
--  

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

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

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

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

不知哪位大侠知道问题出在哪？
--  作者：王锋
--  发布时间：2012/7/3 11:23:08
--  大哥，求编一个“与开仓相比利润率10%后回吐50%止盈”》 这个题目，已经发好多天没人回复，我只好发在其他版里，不是故意重复发，而且还被两次50点，不公平
有可能是WIN7的UAC再搞鬼
--  作者：allanhoo
--  发布时间：2012/9/16 15:59:33
--  
我也是Win7，我的可以！
--  作者：星星点点
--  发布时间：2012/10/2 11:40:21
--  
以下是引用allanhoo在2012-9-16 15:59:33的发言：
我也是Win7，我的可以！

可以发送的指标里的内容吗？加我QQ  1249761617 指教一下可以吗？
--  作者：星星点点
--  发布时间：2012/10/2 11:46:33
--  

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

无法发送指标的内容,因为自定义函数无法传递字符串参数,你只能在自定义函数里,通过自己的算法来直接发送字符串
--  作者：星星点点
--  发布时间：2012/10/2 12:03:19
--  
以下是引用王锋在2012-10-2 11:58:10的发言：

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

谢谢老大
--  作者：星星点点
--  发布时间：2012/10/2 13:02:01
--  

王锋老大，

 

mxmsg = bq &" " & Date &" " & Time & vbCrLf & " 信号" & " " & QQMSG
 
这里的‘信号’要替换内容发送，就只能发一种信息
 
如何才  ‘ 在自定义函数里,通过自己的算法来直接发送字符串’？
 
要自己再写个自定义函数？还是如何呢？