博客
关于我
VC++实现QQ消息群发
阅读量:508 次
发布时间:2019-03-07

本文共 3254 字,大约阅读时间需要 10 分钟。

void QQSendMsg(CString strMsg,BOOL bCloseWindow)

{
AFX_MANAGE_STATE(AfxGetStaticModuleState( ));//切换回调用程序
CString str;
CWnd* pMainWnd = AfxGetMainWnd()->GetWindow(GW_HWNDFIRST);
while (pMainWnd)
{
   HWND hWnd,hNext;
   CWnd* pChildWnd = NULL;

   CWnd *pDlgWnd = NULL;

   hWnd = pMainWnd->m_hWnd;
   pMainWnd->GetWindowText(str);
   if(str.Find (L"交谈")>-1 || str.Find (L"群")>-1)//找到聊天主窗口Begin
   {
    hWnd=::FindWindowEx(pMainWnd->m_hWnd,NULL,L"#32770",NULL);
    pDlgWnd = CWnd::FromHandle(hWnd);
    hWnd=::FindWindowEx(pDlgWnd->m_hWnd,NULL,L"AfxWnd42",NULL);
    while(hWnd)//找消息填写控件
    {

     pChildWnd=CWnd::FromHandle(hWnd);

     hNext = ::FindWindowEx(pChildWnd->m_hWnd,NULL,L"RICHEDIT20A",NULL);
     if(hNext)
     {
      break;
     }
     else
     {
      hWnd=::FindWindowEx(pDlgWnd->m_hWnd,hWnd,L"AfxWnd42",NULL);
     }
    }
    if(hNext){//找到消息填写控件
     CRichEditCtrl* pRich=(CRichEditCtrl*)(CWnd::FromHandle(hNext));
    
     pRich->ReplaceSel (strMsg);//填上将要发送的内容
    }else return;
    //找消息发送按钮
    hWnd=::FindWindowEx(pDlgWnd->m_hWnd,NULL,NULL,NULL);
    while (hWnd)
    {
     pChildWnd=CWnd::FromHandle(hWnd);
     //CWnd *pChildWnd=CWnd::FromHandle(hWnd);
     pChildWnd->GetWindowText(str);
     if(str.Find (L"发送")>-1)
     {
      pChildWnd->SendMessage (BM_CLICK);//发送
      //return;//退出
      break;
     }
     hWnd=::FindWindowEx(pDlgWnd->m_hWnd,hWnd,NULL,NULL);
    }

    if(TRUE == bCloseWindow)

    {
     hWnd=::FindWindowEx(pDlgWnd->m_hWnd,NULL,NULL,NULL);
     while (hWnd)
     {
      pChildWnd=CWnd::FromHandle(hWnd);
      //CWnd *pChildWnd=CWnd::FromHandle(hWnd);
      pChildWnd->GetWindowText(str);
      if(str.Find (L"关闭")>-1)
      {
       pChildWnd->SendMessage (BM_CLICK);//关闭
       //return;//退出
       break;
      }
      hWnd=::FindWindowEx(pDlgWnd->m_hWnd,hWnd,NULL,NULL);
     }
    }
    //return;
   }//找到聊天主窗口End
   pMainWnd = pMainWnd->GetWindow(GW_HWNDNEXT); //继续找
}//While

}

void QQSendMessage(CWnd * pDlgMainWnd ,CString strMsg,BOOL bCloseWindow)
{
CString str;
CWnd* pMainWnd = pDlgMainWnd->GetWindow(GW_HWNDFIRST);
while (pMainWnd)
{
   HWND hWnd,hNext;
   CWnd* pChildWnd = NULL;

   CWnd *pDlgWnd = NULL;

   hWnd = pMainWnd->m_hWnd;
   pMainWnd->GetWindowText(str);
   if(str.Find (L"交谈")>-1 || str.Find (L"群")>-1)//找到聊天主窗口Begin
   {
    hWnd=::FindWindowEx(pMainWnd->m_hWnd,NULL,L"#32770",NULL);
    pDlgWnd = CWnd::FromHandle(hWnd);
    hWnd=::FindWindowEx(pDlgWnd->m_hWnd,NULL,L"AfxWnd42",NULL);
    while(hWnd)//找消息填写控件
    {

     pChildWnd=CWnd::FromHandle(hWnd);

     hNext = ::FindWindowEx(pChildWnd->m_hWnd,NULL,L"RICHEDIT20A",NULL);
     if(hNext)
     {
      break;
     }
     else
     {
      hWnd=::FindWindowEx(pDlgWnd->m_hWnd,hWnd,L"AfxWnd42",NULL);
     }
    }
    if(hNext){//找到消息填写控件
     CRichEditCtrl* pRich=(CRichEditCtrl*)(CWnd::FromHandle(hNext));
    
     pRich->ReplaceSel (strMsg);//填上将要发送的内容
    }else return;
    //找消息发送按钮
    hWnd=::FindWindowEx(pDlgWnd->m_hWnd,NULL,NULL,NULL);
    while (hWnd)
    {
     pChildWnd=CWnd::FromHandle(hWnd);
     //CWnd *pChildWnd=CWnd::FromHandle(hWnd);
     pChildWnd->GetWindowText(str);
     if(str.Find (L"发送")>-1)
     {
      pChildWnd->SendMessage (BM_CLICK);//发送
      //return;//退出
      break;
     }
     hWnd=::FindWindowEx(pDlgWnd->m_hWnd,hWnd,NULL,NULL);
    }

    if(TRUE == bCloseWindow)

    {
     hWnd=::FindWindowEx(pDlgWnd->m_hWnd,NULL,NULL,NULL);
     while (hWnd)
     {
      pChildWnd=CWnd::FromHandle(hWnd);
      //CWnd *pChildWnd=CWnd::FromHandle(hWnd);
      pChildWnd->GetWindowText(str);
      if(str.Find (L"关闭")>-1)
      {
       pChildWnd->SendMessage (BM_CLICK);//关闭
       //return;//退出
       break;
      }
      hWnd=::FindWindowEx(pDlgWnd->m_hWnd,hWnd,NULL,NULL);
     }
    }
    //return;
   }//找到聊天主窗口End
   pMainWnd = pMainWnd->GetWindow(GW_HWNDNEXT); //继续找
}//While

转载地址:http://ovsjz.baihongyu.com/

你可能感兴趣的文章
nestJS学习
查看>>
net core 环境部署的坑
查看>>
NET Framework安装失败的麻烦
查看>>
Net 应用程序如何在32位操作系统下申请超过2G的内存
查看>>
Net.Framework概述
查看>>
NET3.0+中使软件发出声音[整理篇]<转>
查看>>
net::err_aborted 错误码 404
查看>>
NetApp凭借领先的混合云数据与服务把握数字化转型机遇
查看>>
NetAssist网络调试工具使用指南 (附NetAssist工具包)
查看>>
Netbeans 8.1启动参数配置
查看>>
NetBeans IDE8.0需要JDK1.7及以上版本
查看>>
NetBeans之JSP开发环境的搭建...
查看>>
NetBeans之改变难看的JSP脚本标签的背景色...
查看>>
netbeans生成的maven工程没有web.xml文件 如何新建
查看>>
netcat的端口转发功能的实现
查看>>
NetCore 上传,断点续传,可支持流上传
查看>>
Netcraft报告: let's encrypt和Comodo发布成千上万的网络钓鱼证书
查看>>
Netem功能
查看>>
netfilter应用场景
查看>>
Netflix:当你按下“播放”的时候发生了什么?
查看>>