鼠标连点器

Posted barrysgy

tags:

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

//快捷键开启关闭连点器
void
CmouseClickDlg::OnHotKey( UINT uMsg, UINT wParam, UINT lParam ) { if(!m_canClick) { CString str; m_txtTime.GetWindowText(str); m_interval = atoi(str); m_pWindowTimer = SetTimer(0, m_interval, NULL); m_canClick = true; } else { m_canClick = false; KillTimer(m_pWindowTimer); } }
//timer回调模拟点击
void
CmouseClickDlg::OnTimer( UINT nIDEvent ) { if(!m_canClick) return; static int lasttick = 0; if (lasttick == 0) { lasttick = GetTickCount(); } TRACE("TIME: %d ", GetTickCount()-lasttick); lasttick = GetTickCount(); CPoint pt; GetCursorPos(&pt); CWnd* pWnd = WindowFromPoint(pt); HWND hWnd = pWnd->GetSafeHwnd(); if(!hWnd) { MessageBox(_T("获取句柄失败")); return; } DWORD dwPId = 0; ::GetWindowThreadProcessId(hWnd, &dwPId); if(!dwPId) { MessageBox(_T("获取PID失败")); return; } ::ScreenToClient(hWnd, &pt); DWORD para = pt.y << 16 | pt.x; ::PostMessage(hWnd, WM_LBUTTONDOWN, MK_LBUTTON, para); ::PostMessage(hWnd, WM_LBUTTONUP, MK_LBUTTON, para); }

 

下载源码

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

鼠标连点器

Quicker 快速开发,控制脚本关闭(示例,鼠标连点器)

Re:连点器

Autojs.pro 7.0 - 免root 连点器

被刷百万点赞背后的故事,是颜值的支撑还是技术的提升?

按键精灵依次点击三个位置,怎么设置?