-- 作者：野蛮的大哥哥
-- 发布时间：2013/5/31 12:57:57
-- 请老师帮帮忙
我在网上看到这个给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
如果下面这个 是我的模型
我给他起一个名字 叫海龟
HH:=REF(HHV(H,20));
LL:=REF(LLV(L,20));
CROSS(H,REF(HH,1))),SPK;
CROSS(REF(LL,1),L)),BPK;
那么 我怎么把这些 添加到上面那个 发QQ的vb的系统里 求老师帮忙一下
|