可参考以下：
成都创新互联公司从2013年开始，是专业互联网技术服务公司，拥有项目网站设计制作、成都网站制作网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元云龙做网站,已为上家服务,为云龙各地企业和个人服务,联系电话:13518219792
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Const WM_GETTEXT = HD
Private Const EM_REPLACESEL = HC2
Private Const BM_CLICK = HF5
Private Function GetWinText(ByVal WinHwnd As Long) As String
Dim lLen As Long
GetWinText = String(255, Chr(0))
lLen = SendMessage(WinHwnd, WM_GETTEXT, Len(GetWinText), ByVal GetWinText)
GetWinText = Left(GetWinText, lLen)
End Function
Private Sub Command1_Click()
On Error GoTo ErrorHandler
Dim HFindWnd As Long
Dim QQHwnd As Long, AHwnd As Long, THwnd As Long, RHwnd As Long
List1.Clear
Me.Caption = "正在获取发送列表，请稍候..."
HFindWnd = FindWindowEx(0, 0, "#32770", vbNullString)
Do While HFindWnd 0
If InStr(GetWinText(HFindWnd), "聊天中") 0 Or InStr(GetWinText(HFindWnd), " － ") 0 Or InStr(GetWinText(HFindWnd), "群") 0 Or InStr(GetWinText(HFindWnd), "交谈中") 0 Or InStr(GetWinText(HFindWnd), "正在输入") 0 Or InStr(GetWinText(HFindWnd), " － ") 0 Then
List1.AddItem GetWinText(HFindWnd)
End If
HFindWnd = FindWindowEx(0, HFindWnd, "#32770", vbNullString)
DoEvents
Loop
If List1.ListCount = 0 Then
Me.Caption = "无法获取QQ消息窗口列表"
Exit Sub
End If
Me.Caption = "获取发送列表完成"
Sleep (500)
Me.Caption = "正在发送QQ消息，请稍候..."
For i = 0 To List1.ListCount - 1
List1.Selected(i) = True
QQHwnd = FindWindow("#32770", List1.Text)
Do
If QQHwnd = 0 Then
QQHwnd = FindWindow("#32770", List1.Text)
End If
AHwnd = FindWindowEx(QQHwnd, AHwnd, "AfxWnd42", vbNullString)
If AHwnd = 0 Then
QQHwnd = FindWindowEx(QQHwnd, 0, "#32770", vbNullString)
End If
THwnd = FindWindowEx(AHwnd, 0, "RichEdit20A", vbNullString)
DoEvents
Loop While THwnd = 0
Me.Caption = "正在发送第" i + 1 "个QQ消息窗口"
SendMessage THwnd, EM_REPLACESEL, 0, ByVal Text1.Text
RHwnd = FindWindowEx(QQHwnd, 0, "Button", "发送(S)")
SendMessage RHwnd, BM_CLICK, 0, 0
DoEvents
Sleep (500)
Next i
Me.Caption = "一共发送了" i "个QQ消息窗口"
List1.Clear
List1.AddItem ("已完成所有消息发送")
ErrorHandler:
End Sub
点击好友列表，找到需要发送消息的好友，右击（或者连续点击两下），会有个对话框弹出来。在里面输入你需要发送的话，点击下面的发送。即可。谢谢
那是因为你发消息的模式设置问题，解决方法：
在发送消息前，先点击“发送”旁边的下拉箭头，把“消息模式”取消了就ok了
不要协议利用现有PC端的QQ，采用模拟方式进行发送，感觉很靠谱是吧，那就赶紧行动起来，模拟咱不会呀，先搜搜：
1、按键精灵，好像逼格很高，很强大呀，下载下来，搞起，我勒个去完全摆不平呀，不会写这货的脚本，我不能一直对着一个人发吧，基本放弃
2、易语言，好像不错，啥都可以操作，决定就他了，准备开始搞了。。。突然还想试试是不是有跟更简单点的，好吧，暂时先缓缓，实在找不到了，就这货
3、各种找：蝴蝶键盘鼠标录制精灵，键盘鼠标录制精灵，Auto Key Press。。。全部放弃
4、回光返照：VBS，终于发现简单的了，我会呀，这货半小时基本就捡起来了，终于可以模拟了，说说模拟步骤，先使用快捷键方式：
先打开qq，把qq登录上去，自己设置qq窗口打开的快捷键，默认为：ctrl+alt+z，设置qq发 送消息默认为按enter键，消息窗口设置为不合并，主面板在桌面边缘不自动隐藏，差不多 设置这些就行了
编写VBS脚本，实现发送，具体细节如下：
a）发送快捷键ctrl+alt+z，打开qq主面板
b）发送快捷键，2次esc，进入qq主面板的搜索栏，此步操作很重要
c）发送内容：想发给谁（QQ号码，或者QQ昵称，备注姓名都可以），确保搜索出来在 第一 位
d）发送快捷键，enter（回车键），打开消息框
e）发送内容：具体需要发送的内容
f）发送快捷键，enter（回车键），发送消息完成
g）发送快捷键，alt+f4，关闭消息窗口
h）发送快捷键，ctrl+alt+z，关闭qq窗口主面板
注意：每次发送快捷期间需要有短暂休眠，防止界面响应不及时导致出现意外
5、锦上添花：autoit，此货跟vbs差不多，但是功能却强大很多，细节不多说，参考api即可，处理图片都不在话下，我发送图片的功能也是由此货实现，确实很好，推荐大家使用，具体发送细节可参考VBS的发送步骤
至此发送qq消息流程结束，消息如愿收到，没有问题，写个测试代码，一直发送，稳定跑完一个星期，靠谱了！！！
部署方式：
云主机，windows系统，QQ先下载并登录，采用远程桌面登录云主机启动程序，正常发送后，断开远程主机，发现不发送了，因为快捷键处理当前用户被断开后就没办法干活了，不过没关系，可以采用软件解决：向日葵，非哈远程桌面（强烈推荐），通过windows登录云服务器，新建1个用户，打开非哈远程桌面，连接自己的云服务器，通过新建用户登录，在新用户下登录QQ，运行程序即可，断开时只断开通过windows远程的主机，非哈远程桌面不要断开即可
优势：
稳定，基本不漏消息，腾讯中招策略被封很少，适用于消息量不大，没有并发的场景
劣势：
发送单条消息较慢（5-6S，实际上此种方式发送，更能模拟人工发送的时间间隔，不易中策略），不能并发（键盘操作，可以利用非哈远程开多个窗口实现少量并发），必须为windows主机
总结：
利用模拟操作可以绕过接口的限制，且不易中招腾讯策略，适用于少消息量的发送，并可以通过此方式举一反三，微信发送，发送微博，都可以实现，不管接口如何变动，此种方式可以不变应万变，哈哈！！！
=====================================================================
看我写了这么多，打个广告，正在利用此种方式发送信息的群，群内还是有很多小商品值得购买的，自动采集，自动发送。。。群号：468199592，加群链接：二维码页面，可以进群看看实际发送效果
1、电脑登录QQ。
2、登录QQ之后，打开聊天界面，打开聊天界面后，点击发送中的下拉图标。
3、点击发送下拉图标后，可以选择Enter键或者Ctrl+Enter键发送信息。
4、设置好之后，输入聊天信息。
5、输入聊天信息后，按Enter键就可以发送信息了。
