按键精灵dpi捕捉位置错误解决-cnblog

点击抓抓,取9个需要点位的坐标

鼠标命令里找到刚才收集到的坐标

整除 \ 求余 Mod 与或非And Or Not

连接运算 &

need_ver = "3.1233"
BasePath = "C:\\Script\\紫猫大漠"
PathArr = Split(BasePath, "\")
For i = 0 To UBound(PathArr)
    If i = 0 Then
        FatherPath = PathArr(0)
    Else
        FatherPath = FatherPath & "\" & PathArr(i)
        Call Plugin.File.CreateFolder(FatherPath)
        Delay 1000
    End If
Next

点击抓抓图像截图，然后用右键点击特殊的颜色，点把颜色添加到列表里，列表里把颜色的值复制出来

进入颜色图形界面搜索区域的大小以及要搜索颜色的值

插入之后，设置鼠标移动命令，给出一定的延时，使用双击命令，打开b站

FindColor 0,0,1080,1920,"9663FF",intX,intY
					If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 1000
RightClick 1
Delay 200
RightClick 1
End If

抓图抓取屏幕图像

框选一部分图像另存为bmp

附件导入bmp

区域找图，设置图像和屏幕大小

插入命令，设置延时等命令

FindPic 0,0,1920,1080,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
Delay 1000
MoveTo intX, intY
RightClick 1
Delay 200
RightClick 1
End If

外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传

由bg标记跳转

外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传

外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传
最近在玩按键精灵，发现Win10系统环境下按键精灵使用抓抓工具会抓不到正确的坐标，从左上角的重合开始，鼠标越是靠近右下角，正确坐标和按键精灵抓取到的坐标差别越大，在网上找了很多资料，问了几个大佬，最后找到了答案，记录一下。

1.桌面找到按键精灵的图标，右键点击，下拉框中选择“属性”

2.在属性中选择“更改高DPI设置”

3.选中“替代高DPI缩放行为”

然后重新打开按键精灵的抓抓工具，就可以抓到正常的坐标啦！

按键精灵Import 导入命令

功能

导入一个命令库mql文件或者插件lua文件，导入后可以直接使用这个命令库或者插件。

语法

Import 文件名

参数

参数	数据类型	解释
文件名	字符串	命令库mql文件或插件lua文件

示例

复制//下面例子使用Import导入紫猫插件，注意同个脚本只需导入一次
Import "zm.luae"
zm.Init

备注

在导入插件前，请先将相应插件文件放到按键精灵安卓版安装目录的“Plugin”文件夹内。
在脚本开头使用Import “XX.XX”命令导入相应插件前，请将相应插件修改成插件文件名。
生成小精灵APK会自动打包插件，所以无需添加附件之类的操作。
目前已支持加密插件的导入。


// 插件需要用到atl系统库,有些XP精简系统会把atl.dll精简掉. 为了防止注册失败，这里手动注册一下atl.dll
set ws=createobject("Wscript.Shell")
ws.run "regsvr32 atl.dll /s"
Set ws = nothing

//代码如下(其实就是代替以往我们的注册插件语句 RegDll或者regsvr32语句)
PutAttachment "c:\插件","dm.dll"
PutAttachment "c:\插件","DmReg.dll"
Public Declare Function SetDllPathW Lib "c:\插件\DmReg.dll" Alias "SetDllPathW" (ByVal path As String, ByVal mode As Long) As Long
TracePrint SetDllPathW("c:\插件\dm.dll", 0) 

// 下面就可以正常创建对象使用插件了
set dm = createobject("dm.dmsoft")
//MsgBox dm.Ver()
last_error = dm.GetLastError()
//MessageBox "自检错误码是:" & last_error & Chr(10) & "0表示绑定成功" & Chr(10) & "当前大漠版本:" & dm.Ver()

.dmsoft")
//MsgBox dm.Ver()
last_error = dm.GetLastError()
//MessageBox “自检错误码是:” & last_error & Chr(10) & “0表示绑定成功” & Chr(10) & “当前大漠版本:” & dm.Ver()