欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → QQ及时信号发送事例

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有13925人关注过本帖树形打印复制链接

主题：QQ及时信号发送事例
帅哥哟，离线，有人找我吗？
明心
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：274 积分：841 威望：0 精华：10 注册：2010/7/12 15:25:05 		QQ及时信号发送事例  发帖心情 Post By：2012/1/19 9:42:12 [只看该作者]

Sub APPLICATION_VBAStart()
 call Application.SetTimer(0,300) '创建一个0号定时器，间隔时间3秒
End Sub

Sub APPLICATION_Timer(ID)
Set Formula = marketdata.STKINDI("if00","zj","短线1号",0,17)'品种、周期、指标修改为自己需要的。
    cc =  Formula.GetBufData("mxcc",Formula.DataSize-1) '显示最后周期指标线数值
    refcc = Formula.GetBufData("mxcc",Formula.DataSize-2) '显示倒数第二周期指标线数值
       
set Report1 = marketdata.GetReportData("if00","zj")
    ifjg = Report1.NewPrice
   
Set obj = CreateObject("WWSCommon.TCGroup")
    bq = "明心股指日内3分钟"'这里是信号之前的版权（广告）
    IF refcc=0 and cc>0 then
       mxmsg = bq &" " & Date &" " &Time&vbCrLf&"股指期货"&" " &ifjg&" " &"开多"&cc&"手。"
       'application.MsgOut mxmsg
       call obj.TransMessage("程序化初级群", mxmsg)
       Set obj = Nothing
    elseIF refcc>0 and cc=0 then
       mxmsg = bq &" " &  Date &" " &Time&vbCrLf&"股指期货"&" " &ifjg&" " &"平多"&refcc&"手。"
       'application.MsgOut mxmsg
       call obj.TransMessage("程序化初级群", mxmsg)
       Set obj = Nothing
    elseIF refcc=0 and cc<0 then
       ss = 0-cc
       mxmsg = bq &" " &  Date &" " &Time&vbCrLf&"股指期货"&" " &ifjg&" " &"开空"&ss&"手。"
       'application.MsgOut mxmsg
       call obj.TransMessage("程序化初级群", mxmsg)
       Set obj = Nothing
    elseIF refcc<0 and cc=0 then
       ss = 0-refcc
       mxmsg = bq &" " &  Date &" " &Time&vbCrLf&"股指期货"&" " &ifjg&" " &"平空"&ss&"手。"
       'application.MsgOut mxmsg
       call obj.TransMessage("程序化初级群", mxmsg)
       Set obj = Nothing
    else
     'mxmsg =bq &" " &  Date &" " &Time&vbCrLf&"暂无变化，保持之前状态。"
     'application.MsgOut mxmsg
     'call obj.TransMessage("程序化初级群", mxmsg)
     'Set obj = Nothing
    end if
      
end sub

Sub qq()
    call APPLICATION_Timer(ID)
End Sub
[本帖被加为精华]
 回到顶部
帅哥哟，离线，有人找我吗？
admin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：7302 积分：32559 威望：1000 精华：45 注册：2003/12/30 16:34:32 		  发帖心情 Post By：2012/1/19 15:38:01 [只看该作者]

不错
 回到顶部
帅哥哟，离线，有人找我吗？
meteor528528
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：66 积分：209 威望：0 精华：0 注册：2010/8/3 11:46:45 		  发帖心情 Post By：2012/2/2 11:32:24 [只看该作者]

能具体介绍下怎么用吗？没用过VBA哦。谢谢！

 回到顶部
帅哥哟，离线，有人找我吗？
人生如棋
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：121 积分：390 威望：0 精华：0 注册：2011/12/9 19:52:04 		  发帖心情 Post By：2012/2/2 20:48:21 [只看该作者]

我也想知道啊，我自己试了下，不成功
 回到顶部
帅哥哟，离线，有人找我吗？
jinze
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：104 积分：447 威望：0 精华：0 注册：2010/4/25 18:39:52 		  发帖心情 Post By：2012/2/28 11:02:43 [只看该作者]

真是好东西啊。看来闭门造车是不行的，还是要经常上来看看，向大家学习学习！
 回到顶部
帅哥哟，离线，有人找我吗？
h13978515795
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：6 积分：25 威望：0 精华：0 注册：2011/6/21 8:15:32 		  发帖心情 Post By：2012/6/1 8:44:34 [只看该作者]

只能实现将信息输出到QQ文本框，还要手工发送！

请工程师公布在代码内实现QQ自动发送的方法？

（在DLL内封装好方法）
 回到顶部
帅哥哟，离线，有人找我吗？
h13978515795
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：6 积分：25 威望：0 精华：0 注册：2011/6/21 8:15:32 		  发帖心情 Post By：2012/6/1 8:45:31 [只看该作者]

只能实现将信息输出到QQ文本框，还要手工发送！

请工程师公布在代码内实现QQ自动发送的方法？

（在DLL内封装好方法）
 回到顶部
帅哥哟，离线，有人找我吗？
h13978515795
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：6 积分：25 威望：0 精华：0 注册：2011/6/21 8:15:32 		  发帖心情 Post By：2012/6/1 8:45:43 [只看该作者]

只能实现将信息输出到QQ文本框，还要手工发送！

请工程师公布在代码内实现QQ自动发送的方法？

（在DLL内封装好方法）
 回到顶部
帅哥哟，离线，有人找我吗？
王锋
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13 		  发帖心情 Post By：2012/6/1 10:10:38 [只看该作者]

应该是你的QQ版本问题吧,此外检查你的QQ消息发送设置，是不是被你改成了Alt+Enter键发送消息了，这种情况下你要改成直接用Enter键消息发送才行
[此贴子已经被作者于2012-6-1 10:32:35编辑过]

金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30   周末及法定节假日休息

Email:service@weistock.com
 回到顶部
帅哥哟，离线，有人找我吗？
jiaoyizhe
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：414 积分：790 威望：0 精华：0 注册：2011/8/4 14:50:40 		  发帖心情 Post By：2013/1/17 10:18:24 [只看该作者]

有具体使用说明吗 最好是视频版的

听说软件里自带了这个程序 找不到啊
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.08984 秒, 5 次数据查询