--
用 这个代码 发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线会发很多消息 一直在发 搞得我手忙脚乱