以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (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=73115)
--  作者：weileze
--  发布时间：2014/12/16 10:44:51
--  关于发送消息到QQ群
 请问下
Sub APPLICATION_VBAStart()

End Sub

Sub TestQQ_CommandButton1_Click()  
call Application.SetTimer(0,300)
End Sub

Sub TestQQ_CommandButton2_Click()
Application.ClearMsg
End Sub

Sub APPLICATION_Timer(ID)
Application.MsgOut("你好")
Set obj = CreateObject("WWSCommon.TCGroup")
call obj.TransMessage("测试金字塔", "测试，hello, world! ")
Set obj = Nothing
End Sub

Sub TestQQ_CommandButton3_Click()
Application.KillTimer(ID)
End Sub

为何还是无法发送消息到QQ群，群名称没问题。 
--  作者：weileze
--  发布时间：2014/12/16 10:45:24
--  
mesout 没问题。
--  作者：王锋
--  发布时间：2014/12/16 11:12:39
--  

你的QQ需要设置成Enter键直接发消息的模式