新版按键精灵X版底层使用代码分享
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
新版按键精灵X版底层使⽤代码分享
按键精灵X亮点多多,这⾥分四⽅⾯简要说明⼀下:
1、性能提升:代码⾏效率提升70%以上,函数调⽤效率提升40%以上,同脚本整体性能⽐按键精灵2014提升10%以上。
2、体验更好:调试反应迅速,多次调试内存不会导致内存泄漏积累、CPU占⽤过⾼的情况。
3、更加稳定:内存占⽤有所改善,调试、运⾏不容易崩溃,不会因为杀软或优化的缘故导致脚本⽆法执⾏。
4、功能更强:QUI系统优化、附件系统优化、标准库重做、多线程系统优化,功能⽐2014版更强⼤。
获取窗⼝焦点
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
View Code
⼤漠绑定
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
View Code
⼤漠识字封装
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
View Code
⼤漠识图封装
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 >= 0and 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
View Code
⼤漠全屏识图封装
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
View Code
最后:
按键精灵X版最新版,⾸次将底层转为基于lua,使得代码书写更为⽅便,使⽤流畅度⼤⼤提升!
推荐两个插件:
1. :(:放在上边显⽰密码)(开源代码:)⼤兵插件(DBSoft.dll)为⼤兵软件系列软件之⼀,由dabingrain⽤VB6SP6,WINXP系统下写
的COM型ActiveX Dll ,⼤部分软件可以引⽤使⽤。
信息提⽰:2017年1⽉12⽇
插件已经免费2年多,原本是想重新构架插件发布新版,但是插件函数较多,改动较⼤,改动后⼤伙使⽤调整也不便,因此就在构思中慢慢的拖延了,这⼀拖延就是2年多,插件也断了更新,加上插件免费后,精⼒就慢慢投⼊少了,原来也是凭着个⼈业余爱好写的,终于到了⽬前这种现状。
我呢,也是因为年龄⽇益增加,家庭、⼯作⽐较忙,时间和精⼒都相对紧张,慢慢的就放弃了插件的维护和更新,插件没有更新,让使⽤者感到失望,前⼏天,域名和⽹站费⽤到期,我还想着关停了事,但是想⼀想,毕竟每天还有很多⼈使⽤的,因此,也就续费持续使⽤了。
不过也希望⼤家可以⾃由捐赠。
Welcome!
注册码免验证注册⽅式,免费注册号码:934AA748840647F9359BB04EF5EBB171,脚本使⽤中请加⼊注册语句:Call
Plugin.DBSoft.RegDBSoft("上⾯的注册码"),即可免费使⽤插件(免费期间⼈数统计正常,可查询)
2. :(:放在上边显⽰密码)⼤漠综合插件 (dm.dll)采⽤vc6.0编写,识别速度超级快!采⽤COM接⼝编写,适⽤于所有语⾔调⽤.
信息提⽰:现在⼤多使⽤免费版!字库需要⾃⼰制作!
推荐使⽤的⼯具:
1. 窗⼝获取⼯具:(:放在上边显⽰密码)
2. ⽔淼正则表达式精灵:(:放在上边显⽰密码)。