各位大侠，终于对往QQ或群里发消息的问题有弄通了，其实只用两句语句就可以了，在这里还是要感谢发布原帖的“宽客哥”，没有它的思路也不会往这方面想，还要感谢管理员的帮忙和各位热心的大牛的帮助。

这里将我精简后的代码与大家分享

set mail= CreateObject("WWSCommon.TCGroup") 
     call mail.TransMessage("5折", "hello, this is test message! ")

只要这两句其实就够了，将这两句将入到别的功能里面就能一起执行了。

但是还是发现有一个问题就是，我是将这个功能和数据中断发送邮件一起使用的。在发生数据异常后会发送邮件和QQ报警，我发现这个会一直发弄邮件和QQ消息只要数据不恢复正常就每隔1秒一次，我想问一下有没有什么方法可以来解决这个问题，当数据中断的时间比设定的时间差大时，只让他报一次警就可以了，或者在数据恢复之间每隔多少秒才报一次警，而不是那么频繁呢。

这个一般你要用一个全局变量来记录发送时间了，然后进行对比，发现小于指定时间的重复发送，就不要发送了。

以上方法在图表上的。

建议你在后台预警中使用，这样就可以通过设定一个固定轮询时间，来简单处理了