以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  QQ发送消息问题, 消息窗闪现，消息未发送  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=95138)
--  作者：jinn
--  发布时间：2016/3/25 15:12:50
--  QQ发送消息问题, 消息窗闪现，消息未发送
Sub APPLICATION_VBAStart()

    QQMSGX
End Sub

Sub QQMSGX
   
   Set obj = CreateObject("WWSCommon.TCGroup")
   mxmsg = " 信号 "& Date &" " & Time & vbCr & " 信号" 
  
   call obj.TransMessage("EEB", mxmsg)
  
   
End Sub

EEB为窗口名称
qq7.1(14522)
--  作者：王锋
--  发布时间：2016/3/25 15:22:22
--  
QQ的消息发送设置是否设置了 Enter健 直接发送
--  作者：jinn
--  发布时间：2016/3/25 15:55:46
--  
已经设置了
--  作者：王锋
--  发布时间：2016/3/25 16:00:17
--  
多试几次了，看你的代码是在VBA启动的时候做的动作，QQ发送消息时会劫持你的鼠标做模拟点击动作，你是否跟系统抢鼠标，导致鼠标被你强制移动到窗口外导致的消息发送失败
--  作者：jinn
--  发布时间：2016/3/25 16:07:15
--  
我试了有些日子了，窗口在前面保持激活状态，但是消息未写入消息框还是，但是消息框会自动跳没
--  作者：王锋
--  发布时间：2016/3/25 16:13:38
--  
那你试试QQ的其他版本了，或者关闭杀毒软件什么的，排除一些其他干扰等等
--  作者：jinn
--  发布时间：2016/3/25 16:40:07
--  
明白，我已升级了8.0问题还存在，确实得试试是不是杀毒软件的问题
--  作者：qucheng686
--  发布时间：2019/7/1 22:03:18
--  
楼主, 你的问题解决了吗?  我也有这种问题, 消息窗闪现，消息未发送出去.   10次里有2次发不出去