按键最强键鼠和图色插件（森林插件）

插件支持超级驱动级别模拟，支持部分游戏不能后台鼠标和键盘，功能比大漠还要强大。插件不支持上传，自己到百度下载新版的。下面是按键精灵X版绝对是免费的。
本Import "森林插件.dll"

DllReg (GetRespath() & "森林插件.dll")

//按键精灵图标

Dim 颜色包="0,0,116,188,62,0,-1,8,8,8,-8,-8,-8,5,5,5,5,5,5,5,5,-4,6,95,171,38,0,-1,8,8,8,-8,-8,-8,5,5,5,5,5,5,5,5,-6,-4,255,255,255,0,-1,8,8,8,-8,-8,-8,5,5,5,5,5,5,5,5,-3,0,94,171,37,0,-1,8,8,8,-8,-8,-8,5,5,5,5,5,5,5,5,22,0,94,171,38,0,-1,8,8,8,-8,-8,-8,5,5,5,5,5,5,5,5,"

森林插件.CheckResolution() //检测屏幕分辨率

//森林插件.BindBack 0, 0//如果不绑定后台填写0或者不调用

森林插件.SetIntercept(50, 40, 2000, 2000)

Dim 查找判断

Do//循环查找

    森林插件.InterceptGrating()

     查找判断=森林插件.MatchingGrating (颜色包)//在范围内匹配颜色包

   If 查找判断=1 Then

       Dim 返回坐标X = 森林插件.ReturnCoordinatesX//获取找到的最后一点坐标X

       Dim 返回坐标Y = 森林插件.ReturnCoordinatesY//获取找到的最后一点坐标Y

       // MessageBox "找到光栅" & 返回坐标X & " " & 返回坐标Y

       TracePrint"找到光栅" & 返回坐标X & " " & 返回坐标Y

       森林插件.DrawGrating(0,200,200,返回坐标X-100,返回坐标Y-100,200,200)

       MoveTo 返回坐标X, 返回坐标Y

       Delay 2000

   Else

       TracePrint"没有找到"

   End If

Loop

//注意颜色包末尾一定要加逗号

//为了兼容所有语言统一调用MatchingGrating接口数据类型改为unicon编码BSTR字符串集，

//也就是常说的字符串方式带入参数

额 没有地址的    我去找找吧

研究研究

66666666666666666

略懂按键精灵。过来学习。谢谢