新版按键精灵X版 底层使用代码分享

Posted 2020-10-10

获取窗口焦点

 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 >= 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

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. 水淼正则表达式精灵：（下载地址：放在上边显示密码）