模拟鼠标点击

Posted Jimmy1224

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了模拟鼠标点击相关的知识,希望对你有一定的参考价值。

原理

当用户在对话框上进行一系列动作时,背后的行为就是一个动作产生一个消息,从而引发一系列消息响应,我们可以利用PostMessage或SendMessage函数去发送相对应的消息,就可以完成模拟操作了。

PostMessage

PostMessage消息原型:

BOOL PostMessage(HWND hWnd,UINT Msg, WPARAM wParam, LPARAM lParam); 

参数:
hWnd 对话框窗口的句柄。
Msg 被发送的消息ID,可以是命令消息,通告消息,标准消息。
wParam 附加的参数,根据需要发送不同的数据。
lParam 附加的参数,根据需要发送不同的数据。

现在我们通过代码模拟用户操作控件的行为,操作控件的背后是产生通告消息,比如BN_CLICKED,CBN_SELCHANGE等消息。

BN_CLICKED

通过MSDN可以发现父窗口获取BN_CLICKED消息是通过WM_COMMAND 消息形式发送的,其要求的传递的参数如下:
idButton = (int)LOWORD(wParam);
notification code = (int)HIGHWORD(wParam)
低字节是控件ID,高字节的通告码(BN_CLIKED)。
hwndButton = (HWND)lParam;
控件句柄

形如:

PostMessage(WM_COMMAND,MAKELPARAM(IDC_BTN_RESULT,BN_CLICKED),(LPARAM)m_btnResult.m_hWnd);

在实际模拟过程中发现Button控件LPARAM可以是NULL,也可以是句柄;而combobox控件,编辑框控件的LPARAM必须是控件句柄,否则消息传递不成功。

代码

下面我们模拟用户鼠标点击的过程,初始对话框状态如下图,当用户鼠标单击Begin按钮,combobox控件显示编号3网址,同时编辑框控件显示编号3的网址,通知用户更新成功,显示success。
初始状态

其主要代码如下:

BEGIN_MESSAGE_MAP(CWebListSelectDlg, CDialog)
    ON_CBN_SELCHANGE(IDC_COMBO_WEBLIST, &CWebListSelectDlg::OnSelchange)
    ON_BN_CLICKED(IDC_BEGIN_POST_MSG, &CWebListSelectDlg::OnBeginPostMsg)
    ON_BN_CLICKED(IDC_BTN_RESULT, &CWebListSelectDlg::OnShowResult)
END_MESSAGE_MAP()


// CWebListSelect 消息处理程序

/****************************************************************
*函数名称:
*功    能:设置对话框初始状态
*作    者:Jin
*日    期:2017年3月17日
****************************************************************/
BOOL CWebListSelectDlg::OnInitDialog()
{
    CDialog::OnInitDialog();
    m_cbWebList.AddString("1:http://blog.csdn.net/c_base_jin");
    m_cbWebList.AddString("2:http://blog.csdn.net/");
    m_cbWebList.AddString("3:https://www.baidu.com/");
    //初始combobox控件显示状态
    m_cbWebList.SetCurSel(1);

    // TODO:  在此添加额外的初始化

    return TRUE;  // return TRUE unless you set the focus to a control
    // 异常: OCX 属性页应返回 FALSE
}                                                                                                

/****************************************************************
*函数名称:
*功    能: 用户选择发生变化时, 刷新编辑控件显示和btn控件显示
*作    者:Jin
*日    期:2017年3月17日
****************************************************************/
void CWebListSelectDlg::OnSelchange()
{
    // TODO: 在此添加控件通知处理程序代码
    int nTotal = m_cbWebList.GetCount();
    if (nTotal > 0)
    {
        int nSelect = m_cbWebList.SetCurSel(nTotal - 1);
        if (CB_ERR != nSelect)
        {
            CString strLBText;
            m_cbWebList.GetLBText(nSelect, strLBText);
            m_edtSelect.SetWindowText(strLBText);
            //模拟用户用户点击btn
            PostMessage(WM_COMMAND,MAKELPARAM(IDC_BTN_RESULT,BN_CLICKED),
                       (LPARAM)m_btnResult.m_hWnd);
        }
    }
}

/****************************************************************
*函数名称:
*功    能: 开始模拟用户鼠标点击过程
*作    者:Jin
*日    期:2017年3月17日
****************************************************************/
void CWebListSelectDlg::OnBeginPostMsg()                                                         
{
    // TODO: 在此添加控件通知处理程序代码
    m_btnResult.SetWindowText("result");
    //模拟用户选择下拉列表中的内容
    PostMessage(WM_COMMAND,MAKELPARAM(IDC_COMBO_WEBLIST,CBN_SELCHANGE),(LPARAM)m_cbWebList.m_hWnd);
}

/****************************************************************
*函数名称:
*功    能:显示模拟鼠标点击应该与否
*作    者:Jin
*日    期:2017年3月17日
****************************************************************/
void CWebListSelectDlg::OnShowResult()
{
    //button控件收到点击消息,则显示结果
    m_btnResult.SetWindowText("success");
}

执行效果

点击完Begin按钮后的,前后效果对比如下:

这里写图片描述

以上是关于模拟鼠标点击的主要内容,如果未能解决你的问题,请参考以下文章

C#怎么模拟鼠标点击

易语言中!模拟鼠标点击无效

vb后台模拟鼠标点击网页

请问如何用delphi 模拟移动点击鼠标,

js如何实现鼠标模拟点击

jquery模拟鼠标点击动作