逆向大漠插件/用VB6.0实现后台鼠标移动和后台鼠标左键点击

自动化设计软件,在一款做门的设计软件CypCut6.3 上实现了自动化勾选了 复选框。一切都是基于后台的。

Private Const GW_CHILD = 5

Private Const GW_HWNDFIRST = 0

Private Const GW_HWNDNEXT = 2

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long '发送消息,用来关闭指定程bai序

Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Private Declare Function IsWindow Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long

Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const WM_GETTEXT = &HD&

Private Const WM_GETTEXTLENGTH = &HE&

Public Const WM_SETTEXT = &HC& '设置窗体的Caption

Private Const WM_LBUTTONDOWN = &H201

Private Const WM_LBUTTONUP = &H202

Private Const VK_CONTROL = &H11

Private Const VK_SHIFT = &H10

Private Const VK_RETURN = &HD

Private Const VK_1 = &H31

Private Const WM_KEYDOWN = &H100

Private Const WM_KEYUP = &H101

Private Const WM_MOUSEMOVE = &H200

Private Const WM_ACTIVATE = 6

Private Const WM_SETFOCUS = 7

Private Const WM_KILLFOCUS = 8

Private Const WM_NCHITTEST = &H84&

Private Const MK_LBUTTON = 1 '鼠标左键KEY

Private Const MK_RBUTTON = 2 ' 鼠标右键KEY

'模拟鼠标后台点击

Private Function SendClick(hwnd As Long, mX As Long, mY As Long)

'发送点击消息

Dim I As Long

PostMessage hwnd, WM_MOUSEMOVE, 0, (mX And &HFFFF) + (mY And &HFFFF) * &H10000 '模拟鼠标消息移动

PostMessage hwnd, WM_LBUTTONDOWN, MK_LBUTTON, (mX And &HFFFF) + (mY And &HFFFF) * &H10000 '模拟鼠标左键点击

PostMessage hwnd, WM_LBUTTONUP, 0, (mX And &HFFFF) + (mY And &HFFFF) * &H10000 '模拟鼠标右键点击

End Function

VB技术研发群 214016721

相关推荐
林恒smileZAZ7 小时前
CSS3 超实用属性:pointer-events (可穿透图层的鼠标事件)
前端·计算机外设·css3
福大大架构师每日一题2 天前
rustdesk 1.4.3 发布:新增虚拟鼠标、Wayland 多显示器支持等功能
计算机外设·rustdesk
梓默2 天前
鼠标偶尔卡顿解决方法
计算机外设
Jwest20212 天前
工业显示器在矿用挖掘机中的应用
计算机外设
lzhdim2 天前
雷蛇(Razer)炼狱蝰蛇V2X极速版无线鼠标开箱
单片机·嵌入式硬件·计算机外设
晋人在秦 老K4 天前
鼠标连点效率低?MouseClickTool 2.0三步配置,自动化操作提速80% 重复点击太耗时?Windows鼠标连点器实操教程,开发测试效率翻倍
windows·自动化·计算机外设·鼠标连点器·gui模拟点击·自动化点击解决方案
jbk33114 天前
监听指定事件然后触发鼠标点击操作等,智能文本识别按键工具的使用教程
计算机外设
安卓开发者5 天前
鸿蒙NEXT鼠标光标开发完全指南
华为·计算机外设·harmonyos
雨中风华5 天前
Windows 平台 HOOK DWM 桌面管理程序,实现输出变形的桌面图像到显示器
windows·计算机外设
Jwest20215 天前
工业显示器在微铣削机床中的应用
计算机外设