仿QQ尾巴，让程序给记事本输入文字!:)

来源：互联网发布：excel对比两列重复数据编辑：程序博客网时间：2024/04/30 19:26

效果截图如下：

程序主要代码如下:

void CSendMessageNotepadDlg::OnBnClickedBtnsend() //发送按钮单击处理函数
{

HWND hParent=NULL,hChild=NULL;

hParent=::FindWindow(TEXT("Notepad"),TEXT("PostMessage - 记事本"));

if(hParent!=NULL){
hChild=::FindWindowEx(hParent,NULL,TEXT("Edit"),NULL);
if(hChild!=NULL){

   //调用发送文字信息函数
   SendMessageToNotepad(hChild);
  }
  else{
   AfxMessageBox(TEXT("no!没有找到记事本中的编辑框 !"));
   return;
  }

}
else{
AfxMessageBox(TEXT("no!没有发现文本文件PostMessage.txt!"));
return;
}
}

void CSendMessageNotepadDlg::SendMessageToNotepad(HWND hWnd)
{

UpdateData(true); //更新与控件关联的变量m_EditText的值

LPTSTR x =m_EditText.GetBuffer(m_EditText.GetLength());;

::SendMessage(hWnd,WM_SETTEXT,0,(LPARAM)(LPCTSTR)x);

//用下面的代码发送也可以哦

/**************************************************************

  TCHAR x[]=TEXT("测试OK!");
  TCHAR *pStr=NULL;
  pStr=x;
  while(*pStr){
   ::PostMessage(hWnd,WM_CHAR,(WPARAM)*pStr++,0);
  }

*************************************************************/

}