VB.NET模拟鼠标问题
答案:1 悬赏:0 手机版
解决时间 2021-12-02 12:53
- 提问者网友：未信
- 2021-12-01 15:49
VB.NET模拟鼠标问题
最佳答案
- 五星知识达人网友：长青诗
- 2021-12-01 15:58
Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
Dim postion1 As New Point
mouse_event(&H1 Or &H8000, postion1.X * 65535 / 1366, postion1.Y * 65535 / 768, 0, 0)
'按绝对位置移动鼠标
'在鼠标坐标系统中，屏幕在水平和垂直方向上均匀分割成65535×65535个单元，
'当前所用显示屏分辨率为1366*768
'所以要进行如上转换
mouse_event(&H2, 0, 0, 0, 0) '鼠标左键按下
mouse_event(&H4, 0, 0, 0, 0) '鼠标左键弹起
msdn上有 mouse_event 的详解，大致使用如上追问为什么会不能运行呢，
这个是为什么
Dim postion1 As New Point
mouse_event(&H1 Or &H8000, postion1.X * 65535 / 1366, postion1.Y * 65535 / 768, 0, 0)
'按绝对位置移动鼠标
'在鼠标坐标系统中，屏幕在水平和垂直方向上均匀分割成65535×65535个单元，
'当前所用显示屏分辨率为1366*768
'所以要进行如上转换
mouse_event(&H2, 0, 0, 0, 0) '鼠标左键按下
mouse_event(&H4, 0, 0, 0, 0) '鼠标左键弹起
msdn上有 mouse_event 的详解，大致使用如上追问为什么会不能运行呢，
这个是为什么
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯