VB声明 |
Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) |
说明 |
模拟一次鼠标事件 |
参数表 |
参数 |
类型及说明 |
dwFlags |
Long,下述标志的一个组合 |
MOUSEEVENTF_ABSOLUTE |
dx和dy指定鼠标坐标系统中的一个绝对位置。在鼠标坐标系统中,屏幕在水平和垂直方向上均匀分割成65535×65535个单元 |
MOUSEEVENTF_MOVE |
移动鼠标 |
MOUSEEVENTF_LEFTDOWN |
模拟鼠标左键按下 |
MOUSEEVENTF_LEFTUP |
模拟鼠标左键抬起 |
MOUSEEVENTF_RIGHTDOWN |
模拟鼠标右键按下 |
MOUSEEVENTF_RIGHTUP |
模拟鼠标右键按下 |
MOUSEEVENTF_MIDDLEDOWN |
模拟鼠标中键按下 |
MOUSEEVENTF_MIDDLEUP |
模拟鼠标中键按下 |
dx |
Long,根据是否指定了MOUSEEVENTF_ABSOLUTE标志,指定水平方向的绝对位置或相对运动 |
dy |
Long,根据是否指定了MOUSEEVENTF_ABSOLUTE标志,指定垂直方向的绝对位置或相对运动 |
cButtons |
Long,未使用 |
dwExtraInfo |
Long,通常未用的一个值。用GetMessageExtraInfo函数可取得这个值。可用的值取决于特定的驱动程序 |
注解 |
进行相对运动的时候,由SystemParametersInfo函数规定的系统鼠标轨迹速度会应用于鼠标运行的速度
|
例子:
连续点击左键 1000次(私服游戏加点)
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_MOVE = &H1 '移动鼠标
Private Const MOUSEEVENTF_LEFTDOWN = &H2 '模拟鼠标左键按下
Private Const MOUSEEVENTF_LEFTUP = &H4 '模拟鼠标左键抬起
Private Const MOUSEEVENTF_RIGHTDOWN = &H8 '模拟鼠标右键按下
Private Const MOUSEEVENTF_RIGHTUP = &H10 '模拟鼠标右键抬起
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20 '模拟鼠标中键按下
Private Const MOUSEEVENTF_MIDDLEUP = &H40 '模拟鼠标中键抬起
Private Const MOUSEEVENTF_ABSOLUTE = &H8000 '标示是否采用绝对坐标
Private Sub Command1_Click()
Dim i As Integer
For i =1 to 1000
mouse_event MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
Next i
End Sub
分享到:
相关推荐
keybd_event()和mouse_event().rar 展示一下两个函数的用法:将字符转换成键盘动作和鼠标动作
使用mouse_event函数实现鼠标点击模拟
使用mouse_event函数驱动鼠标,添加几个控件,点击控件,就可以驱动鼠标,其中包括左键点击、双击;右键点击、双击;移动、拖动;
Labview鼠标自动移动点击。Labview通过调用WINAPI函数mouse_event()完成鼠标自动操作。
1.使用Labview调用API函数mouse-event实现鼠标移动等操作
主要介绍了C#模拟鼠标点击小功能,通过代码向大家做分析,需要的朋友可以参考下
CreateScalableFontResource 为一种TureType字体创建一个资源文件,以便能用API函数AddFontResource将其加入Windows系统 DrawText 将文本描绘到指定的矩形中 DrawTextEx 与DrawText相似,只是加入了更多的功能 ...
一般当前系统的系统调用作为一张表sys_call_table进行定义的,是由指向实现各种系统调用的内核函数的函数指针组成的表。具体参数参见Linux内核源代码arch/i386/kernel/entry.S文件中: ENTRY(sys_call_table) l long...
Qt使用鼠标模拟函数mouse_event和按键模拟函数keybd_even实现网页刷新功能 https://blog.csdn.net/qq_29542611/article/details/83421552
static extern void mouse_event(MouseEventFlag flags, int dx, int dy, uint data, UIntPtr extraInfo); [Flags] enum MouseEventFlag : uint { Move = 0x0001, LeftDown = 0x0002, LeftUp = 0x0004, ...
创建一个鼠标点击的 VI 程序,当鼠标置于窗口上方时,窗口的颜色改变; 当鼠标点击窗口时,弹出消息窗口。
enableEvents(AWTEvent.MOUSE_EVENT_MASK|AWTEvent.MOUSE_MOTION_EVENT_MASK); //允许事件 setSize(300, 200); //设置窗口尺寸 setVisible(true); //设置窗口可视 setDefaultCloseOperation...
mouse: Menu.as ---------------------- 右键菜单 MouseCheck.as ---------------------- 检查鼠标是否移动 load: GroupLoader.as ---------------------- 列队加载一组元素 MCLoader.as ------------------...
mousewheel事件的处理函数有一点小小的变化,它除了第一个参数event 外,还接收到第二个参数delta。 通过参数delta可以获取鼠标滚轮的方向和速度。 如果delta的值是负的即-1,那么滚轮就是向下滚动,正的1就是向上。...
Mouse_Event() MoveToEx() MoveWindow() Pie() Polygon() PostMessageA() Rectangle() ReleaseCapture() SendMessageA() SetCapture() SetComputerNameA() SetCurrentDirectoryA() SetCursorPos() SetFocus() ...
内核csgo 简单的内核欺骗,带有用于通信的钩子 如何使用 在Visual Studio 2019中下载并编译(带有驱动程序开发工具包) 使用手动映射kernel-csgo.sys驱动程序 开展反恐精英:全球攻势 ...不使用mouse_event()哈哈
QPointF mouse_po = mapToScene(event->pos()); //总是返回屏幕物理坐标系 double x = mouse_po.x(); // 总是返回屏幕物理坐标系 double y = mouse_po.y(); QString str = "(" + QString::number(x) + "," + ...
- On Mouse Event 鼠标事件 + Actions 所有的Action - break 跳出循环 - call 调用指定帧 - comment 注释 - continue 继续循环 - delete 删除一个物件(Object)中的变量 - do while ...
在Windows大行其道的今天,windows界面程序受到广大用户的欢迎。对这些程序的操作不外乎两种,键盘输入控制和鼠标输入控制。有时,对于繁杂的,或重复...关键字:keybd_event,mouse_event,用应用程序模拟键盘和鼠标按键