类人猿 发表于 2017-10-9 00:06:37

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

本帖最后由 类人猿 于 2017-10-9 00:38 编辑

插件支持超级驱动级别模拟，支持部分游戏不能后台鼠标和键盘，功能比大漠还要强大。插件不支持上传，自己到百度下载新版的。下面是按键精灵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 IfLoop

//注意颜色包末尾一定要加逗号//为了兼容所有语言统一调用MatchingGrating接口数据类型改为unicon编码BSTR字符串集，//也就是常说的字符串方式带入参数

天天 发表于 2017-10-9 10:09:52

额 没有地址的    我去找找吧

虫虫♂尚贤 发表于 2017-10-10 11:44:38

研究研究

小吉 发表于 2017-11-24 13:22:13

66666666666666666

zipdrive 发表于 2017-12-2 23:30:00

略懂按键精灵。过来学习。谢谢
页: [1]
查看完整版本: 按键最强键鼠和图色插件（森林插件）