TCGroup,发不了消息,没反应,什么原因,下面是vbs过程的一部分

weishao · 发表于 2023-8-30 18:34

Set QQobj = CreateObject("WWSCommon.TCGroup")
QQgroup="jzt"
qq="共煌"
if exaspect=0 and exkaiping=0 then '买开
neirong= exStkName&": "&exsign&", " &"买开价="&exPrice&","&"买开量:="&exfilled
end if
if exaspect=1 and exkaiping=0 then '卖开
neirong= exStkName&": "&exsign&", " &"卖开价="&exPrice&","&"卖开量:="&exfilled
end if
if exaspect=1 and exkaiping>0 then '卖平
neirong= exStkName&": "&exsign&", " &"卖平价="&exPrice&","&"卖平量:="&exfilled
end if
if exaspect=0 and exkaiping>0 then '买平
neirong= exStkName&": "&exsign&", " &"买平价="&exPrice&","&"买平量:="&exfilled
end if
call QQobj.TransMessage(QQgroup, neirong)
call QQobj.TransMessage(qq, neirong)
Set QQobj = Nothing

技术008 · 发表于 2023-8-31 09:00

这个案例试过没，本地测试可以发送消息的这段话

技术008 · 发表于 2023-8-31 09:19

只开一个窗口呢，多窗口好像不行

weishao · 发表于 2023-8-31 09:33

'=======  test area: ===============
call tcgtest()
application.PostMessage(32797)
'=========================== =======
kcount=185 '引用的K线数量
   下面还有很多语句:
end sub
问题:1. 好像application.PostMessage(32797) 不起作用了,还继续执行它后面的语句,
      2. 我把
      call tcgtest()
application.PostMessage(32797)
   都注释掉,程序可以正常运行的
   3.