VBA通过QQ发送信息

老周

VBA通过QQ发送信息，这是金字塔很好用的功能。前几年用过很长一段时间，近期捡起起重新使用，发现用不了。
不知道是不是QQ升级以后，金字塔已经不能再通过QQ发信息了。

Sub QQxinxi(str)
dim obj
   Set obj = CreateObject("WWSCommon.TCGroup")     
   call obj.TransMessage("TradeSingle", str)
   Set obj = Nothing     
End Sub

技术015

QQ发消息这种不靠谱，建议你还是改用微信发送吧，这个要靠谱得多

老周

VBA能发送微信消息吗？能否提供实例参考