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

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  QQ及时信号发送事例  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=9703)

--  作者：明心
--  发布时间：2012/1/19 9:42:12
--  QQ及时信号发送事例

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
--  发布时间：2012/1/19 15:38:01
--

不错

--  作者：meteor528528
--  发布时间：2012/2/2 11:32:24
--
能具体介绍下怎么用吗？没用过VBA哦。谢谢！

--  作者：人生如棋
--  发布时间：2012/2/2 20:48:21
--

我也想知道啊，我自己试了下，不成功

--  作者：jinze
--  发布时间：2012/2/28 11:02:43
--

真是好东西啊。看来闭门造车是不行的，还是要经常上来看看，向大家学习学习！

--  作者：h13978515795
--  发布时间：2012/6/1 8:44:34
--

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

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

（在DLL内封装好方法）

--  作者：h13978515795
--  发布时间：2012/6/1 8:45:31
--

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

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

（在DLL内封装好方法）

--  作者：h13978515795
--  发布时间：2012/6/1 8:45:43
--

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

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

（在DLL内封装好方法）

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

--  作者：jiaoyizhe
--  发布时间：2013/1/17 10:18:24
--

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

听说软件里自带了这个程序找不到啊