以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  qq  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=96692)
--  作者：orca8
--  发布时间：2016/4/25 12:58:38
--  qq
64位的金字塔还能用qq发信息不，测试创建对象失败
--  作者：yukizzc
--  发布时间：2016/4/25 13:07:57
--  

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

 

单独执行这段呢，事先在工具-数据管理-全局变量这边配好一个QQSTR的字符串，内容随便定义一个

然后执行这段程序看看呢，我这边运行都ok的

[此贴子已经被作者于2016/4/25 19:35:28编辑过]