新版按键精灵X版 底层使用代码分享
按键精灵X亮点多多,这里分四方面简要说明一下:
1、性能提升:代码行效率提升70%以上,函数调用效率提升40%以上,同脚本整体性能比按键精灵2014提升10%以上。
2、体验更好:调试反应迅速,多次调试内存不会导致内存泄漏积累、CPU占用过高的情况。
3、更加稳定:内存占用有所改善,调试、运行不容易崩溃,不会因为杀软或优化的缘故导致脚本无法执行。
4、功能更强:QUI系统优化、附件系统优化、标准库重做、多线程系统优化,功能比2014版更强大。
获取窗口焦点
![](https://images.cnblogs.com/OutliningIndicators/ContractedBlock.gif)
1 /*********** 2 *获取窗口焦点(*底层识别) 3 ************/ 4 Function windowsIn() 5 //获取窗口句柄 6 Hwnd = Window.Find("WeChatMainWndForPC", "微信") 7 //窗口复原 8 Window.Restore (Hwnd) 9 //窗口移动 10 Window.Move(Hwnd, 300, 200) 11 //重设窗口大小 12 Window.SetClientSize(Hwnd, 850, 795) 13 //获取窗口坐标 14 sRect = Window.GetWindowRect(Hwnd) 15 //MsgBox "得到窗口句柄的边框大小(包括标题栏)为:"& sRect 16 //下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串 17 MyArray = Split(sRect, "|") 18 //下面这句将字符串转换成数值 19 W1 = Clng(MyArray(1)): H1 = Clng(MyArray(2)) 20 W2 = Clng(MyArray(3)) : H2 = Clng(MyArray(4)) 21 //MsgBox "边框大小: " & W2-W1 & " " & H2-H1 22 sosow=W1+117 23 sosoh = H1 + 26 24 TracePrint W1 & "::" & H1 & "::" & W2 & "::" & H2 25 End Function
大漠绑定
![](https://images.cnblogs.com/OutliningIndicators/ContractedBlock.gif)
1 /***************** 2 **大漠绑定插件命令(*底层识别) 3 *******************/ 4 Function findOcr() 5 dm_ret = dm.SetDict(0, GetResPath()&"dm.txt") 6 dm_ret = dm.GetClientSize(Hwnd,W2-W1,H2-H1) 7 dm_ret = dm.BindWindow(Hwnd, "gdi", "normal", "normal", 0) 8 Delay 200 9 If dm_ret = 0 Then 10 TracePrint ("大漠界面綁定失败") 11 Return -1 12 Exit Function 13 Else 14 TracePrint ("大漠界面綁定成功") 15 Return 0 16 End If 17 End Function
大漠识字封装
![](https://images.cnblogs.com/OutliningIndicators/ContractedBlock.gif)
1 /***************** 2 **大漠识字命令(*底层识别) 3 *daMoFindOcr(x1,y1,x2,y2) 4 *******************/ 5 Function daMoFindOcr(d1_x1,d1_y1,d1_x2,d1_y2) 6 Dim d1_s = dm.Ocr(d1_x1,d1_y1,d1_x2,d1_y2,"727272-202020|000000-eeeeee",0.9) 7 TracePrint (d1_s) 8 Return d1_s 9 End Function
大漠识图封装
![](https://images.cnblogs.com/OutliningIndicators/ContractedBlock.gif)
1 /***************** 2 **大漠识图命令(*底层识别) 3 *dm_findAllPic(x1,y1,x2,y2) 4 *******************/ 5 Function dm_findPic(d3_x1, d3_x2, d3_y1, d3_y2, d3_picUrl) 6 Dim d3_dm_ret, d3_intX,d3_intY, d3_count, d3_sss, d3_x, d3_y 7 d3_dm_ret = dm.FindPic(d3_x1, d3_x2, d3_y1, d3_y2,GetResPath()& d3_picUrl,"000000",0.9,0,d3_intX,d3_intY) 8 If d3_intX >= 0 and d3_intY >= 0 Then 9 d3_intX = d3_intX 10 d3_intY = d3_intY 11 TracePrint (d3_intX & "+dm_findPic+" & d3_intY) 12 Return 0,d3_intX,d3_intY 13 Else 14 TracePrint ("-1,-1,-1") 15 Return -1,-1,-1 16 End If 17 End Function
大漠全屏识图封装
![](https://images.cnblogs.com/OutliningIndicators/ContractedBlock.gif)
1 /***************** 2 **大漠识图命令全局(*底层识别) 3 *dm_findAllPic(x1,y1,x2,y2) 4 *******************/ 5 Function dm_findAllPic(d2_x1, d2_y1, d2_x2, d2_y2, d2_picUrl) 6 dim d2_num = 0 7 Dim d2_picXY(10) 8 Dim d2_daozhangID,d2_shoukuanW,d2_shoukuanH 9 Do 10 d2_daozhangID,d2_shoukuanW,d2_shoukuanH= dm_findPic(d2_x1,d2_y1,d2_x2,d2_y2,d2_picurl) 11 If d2_daozhangID = 0 Then 12 d2_num = d2_num + 1 13 Dim d2_arrayin(1) 14 d2_arrayin(d2_shoukuanW)=d2_shoukuanH 15 d2_picXY(d2_num)=d2_arrayin 16 //x1 = shoukuanW 17 d2_y1 = d2_shoukuanH + 20 18 TracePrint (d2_x1 & d2_y1 & d2_x2 & d2_y2) 19 TracePrint ( "找到" & d2_num & "个,坐标为:"& d2_shoukuanW& d2_shoukuanH) 20 End If 21 Loop While d2_daozhangID= 0 22 //TracePrint ( "找到" & num & "个,坐标为:"& piczuobiaoji) 23 For Each d2_k, d2_v In d2_picXY 24 TracePrint d2_k, d2_v 25 Next 26 Return d2_num,d2_picXY 27 End Function
最后:
按键精灵X版最新版,首次将底层转为基于lua,使得代码书写更为方便,使用流畅度大大提升!
推荐两个插件:
- 大兵插件:(下载地址:放在上边显示密码)(开源代码:下载地址)大兵插件(DBSoft.dll)为大兵软件系列软件之一,由dabingrain用VB6SP6,WINXP系统下写的COM型ActiveX Dll ,大部分软件可以引用使用。
信息提示:2017年1月12日插件已经免费2年多,原本是想重新构架插件发布新版,但是插件函数较多,改动较大,改动后大伙使用调整也不便,因此就在构思中慢慢的拖延了,这一拖延就是2年多,插件也断了更新,加上插件免费后,精力就慢慢投入少了,原来也是凭着个人业余爱好写的,终于到了目前这种现状。我呢,也是因为年龄日益增加,家庭、工作比较忙,时间和精力都相对紧张,慢慢的就放弃了插件的维护和更新,插件没有更新,让使用者感到失望,前几天,域名和网站费用到期,我还想着关停了事,但是想一想,毕竟每天还有很多人使用的,因此,也就续费持续使用了。不过也希望大家可以自由捐赠。Welcome!注册码免验证注册方式,免费注册号码:934AA748840647F9359BB04EF5EBB171,脚本使用中请加入注册语句:Call Plugin.DBSoft.RegDBSoft("上面的注册码"),即可免费使用插件(免费期间人数统计正常,可查询)
- 大漠插件:(下载地址:放在上边显示密码)大漠 综合 插件 (dm.dll)采用vc6.0编写,识别速度超级快! 采用COM接口编写,适用于所有语言调用.
信息提示:现在大多使用免费版!字库需要自己制作!
推荐使用的工具: