按键精灵如何不用获取当前的鼠标位置进行移动点击
Hwnd=Plugin.Window.Find(0,"WarcraftIII")sRect=Plugin.Window.GetClientRect(Hwnd)DimMyA...
Hwnd = Plugin.Window.Find(0, "Warcraft III")
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(sRect,"|")
Ux=CLng(MyArray(0))
Uy=CLng(MyArray(1))
Call Plugin.Bkgnd.LeftClick(Hwnd, 1275, 419)
Delay 1231
Call Plugin.Bkgnd.KeyPress(Hwnd, 83)
Delay 1231
Call Plugin.Bkgnd.LeftClick(Hwnd, 1034, 288)
Delay 1231
Call Plugin.Bkgnd.KeyPress(Hwnd, 65)
Delay 1231
Call Plugin.Bkgnd.KeyPress(Hwnd, 79)
我这段代码不切出去 鼠标不动就可以执行来回点击鼠标 但是我一切出去立马就不好使 而且鼠标移动也不好使其实我也不明白了 后台的鼠标移动和前台鼠标有个啥关系 展开
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(sRect,"|")
Ux=CLng(MyArray(0))
Uy=CLng(MyArray(1))
Call Plugin.Bkgnd.LeftClick(Hwnd, 1275, 419)
Delay 1231
Call Plugin.Bkgnd.KeyPress(Hwnd, 83)
Delay 1231
Call Plugin.Bkgnd.LeftClick(Hwnd, 1034, 288)
Delay 1231
Call Plugin.Bkgnd.KeyPress(Hwnd, 65)
Delay 1231
Call Plugin.Bkgnd.KeyPress(Hwnd, 79)
我这段代码不切出去 鼠标不动就可以执行来回点击鼠标 但是我一切出去立马就不好使 而且鼠标移动也不好使其实我也不明白了 后台的鼠标移动和前台鼠标有个啥关系 展开
展开全部
Call Plugin.Bkgnd.LeftClick(Hwnd, 1275, 419)
Delay 1231
这就是一个完整的后台移动点击例子,和前台坐标没关系的,
确认你获取的窗口句柄是游戏的正确的操作窗口
确定你要点击的坐标是窗口的后台坐标,计算方式是 前台实际坐标减去窗口起点坐标,或者用抓抓直接确定你需要点击的后台坐标
当窗口 和 后台坐标确认后 代码执行无效则可能是以下原因
游戏不支持按键的 Windows消息后台鼠标,或者游戏必须激活才能接收Windows消息后台鼠标
前者只能寻找DX键鼠,后者需要对窗口进行假激活处理!
追问
确定你要点击的坐标是窗口的后台坐标,计算方式是 前台实际坐标减去窗口起点坐标,或者用抓抓直接确定你需要点击的后台坐标 你这样说是不是我全屏的关系 或者是我前台的分辨率和后台分辨率的问题啊
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询