[浏览完整版]
标题：向QQ发送消息可以用于后台吗?
1楼
qucheng686 发表于：2019/6/24 12:55:05http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=11344&authorid=0&page=0&star=1
按照这个帖子去做, 前台没有问题, 但后台无效, 是不能支持吗?
2楼
banzhuan 发表于：2019/6/24 13:17:09后台也是支持的
3楼
qucheng686 发表于：2019/6/24 13:27:03在PL里后台怎么实现每根K线走完的判断?
4楼
banzhuan 发表于：2019/6/24 14:24:34后台也有走完K线的模式可以选择，和图表上是一样的
5楼
qucheng686 发表于：2019/6/24 15:05:58
此主题相关图片如下：3333.png
GLOBALVARIABLE: bb=0;
上次开多:=TTYPEBAR(1,1);
上次平多:=TTYPEBAR(2,1);
上次开空:=TTYPEBAR(3,1);
上次平空:=TTYPEBAR(4,1);
if 上次开多<=3 then begin
if bb=0 then
DEBUGFILE('D:\TESTg.TXT','上次开多:%.0f',上次开多);
bb=1;
begin
extgbstringSet('QQSTR','品种:'+STKLABEL+';开多仓;'+'价格:'+numtostr(close,5));
VQQM:=QQMSGX(1,close);
end
end
if 上次开多>3 then begin
bb=0;
end
================
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("黑尔", mxmsg)
Set obj = Nothing
End Function
[此贴子已经被作者于2019/6/24 15:07:04编辑过]
6楼
yukizzc 发表于：2019/6/24 15:10:52debugfile是否有输出呢
7楼
qucheng686 发表于：2019/6/24 15:12:53这是debugfile
此主题相关图片如下：6666.png
此主题相关图片如下：6666.png8楼
qucheng686 发表于：2019/6/24 15:14:55问题在于, 消息是"每秒"发送一次的, 但程序控制是走完一根k线(1分钟), 从debugfile来看, 也是1分钟一次的.
怎么可以让消息发送也是按照 1分钟 呢?
9楼
qucheng686 发表于：2019/6/24 15:16:29图片是后台的设置
此主题相关图片如下：1111.png
此主题相关图片如下：2222.png
此主题相关图片如下：1111.png此主题相关图片如下：2222.png[此贴子已经被作者于2019/6/24 15:16:49编辑过]
10楼
yukizzc 发表于：2019/6/24 17:09:13后台公式采用逐k模式试试
实在抱歉这个qq发送也不是我们写的，好比别人写的东西我这边也很难帮您调试，你试试看吧