用 这个代码 发QQ消息 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
公式的代码是:IF HOLDING>=0 AND T2 AND SHORT AND DTB=0 AND DTB=0 AND NUM=0 THEN BEGIN
BUYSHORT(1,CW,MARKET),TFILTER;
if islastbar and bb<>barpos then
begin
bb:= barpos;
extgbstringSet('QQSTR','空头趋势确认,尝试开空,价格为:'+numtostr(close,5));
VQQM:=QQMSGX(1,close);
end
NUM:=NUM-1;
END 这样一跟K线会发很多消息 一直在发 搞得我手忙脚乱
表明这根k线上条件一直满足,所以会发消息,这个不是问题,
这个问题和最上面的extgbdataset问题有什么直接关系?
[此贴子已经被作者于2014/6/5 13:59:07编辑过]