vb 模拟点击鼠标-实现按z则模拟点击某个游戏界面的那个位置。

2025-03-06 16:54:16

推荐回答（2个）

回答1：

你好，你的问题要用API函数来实现。
首先，实现按Z的，你自己去实现，或者在窗体的KeyPress里边检测KeyAscii是否等于vbKeyZ。
其次，要实现点击游戏界面的位置，可以用下列函数：
'-------------函数声明部分，照复制就是了，加到所有函数开头
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 Declare Function GetMessageExtraInfo Lib "user32" () As Long
Private Const MOUSEEVENTF_ABSOLUTE = &H8000 ' absolute move
Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button up
Private Const MOUSEEVENTF_MOVE = &H1 ' mouse move
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0 'X Size of screen
Const SM_CYSCREEN = 1 'Y Size of Screen

'----------这里是具体实现代码，在需要的地方添加：
mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, 特殊X坐标, 特殊Y坐标, 0, GetMessageExtraInfo()
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo()
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo()

注意那两个坐标值是特殊的，自己添加进去，即可实现鼠标点击了。其余部分保持不变！只是改那两个坐标就行了！
特殊坐标算法如下：
特殊X坐标 = 游戏中的那个点X坐标相对屏幕坐标 * (&HFFFF& / GetSystemMetrics(SM_CXSCREEN))
特殊Y坐标 = 游戏中的那个点Y坐标相对屏幕坐标 * (&HFFFF& / GetSystemMetrics(SM_CYSCREEN))

还有不懂的请再补充提出！比如游戏中的点是（80，60），那么代码是：
Dim X as Long, Y as Long
X = 80 * (&HFFFF& / GetSystemMetrics(SM_CXSCREEN))
Y = 60 * (&HFFFF& / GetSystemMetrics(SM_CYSCREEN))
mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, X, Y, 0, GetMessageExtraInfo()
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo()
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo()

回答2：

这个实现以来需要很多知识点
1,热键注册
2,windows消息
3,API运用,

最新问答

老人腿疼膝盖疼原因

win7重装系统xp后注册表无法导入，求解法！！！！！

在家会被雷劈到吗

为什么好事能变成坏事，坏事也能变成好事呢？

阿木在2008欢乐中国行十一特别节目中唱的歌曲是什么名字

Am.Em.Dm在五线谱里代表什么意思

重复接地怎么做

张飞马超赵云黄忠关羽vs吕布颜良文丑典韦许褚。哪组厉害

幻想三国志4外传为什么uj武器无法继承

声艺EFX12调音台自带效果怎么用新手请大神指点