按键精灵2014
以dnf游戏为例，小编的号，背包格数是 8*4 总共32格单重循环遍历大致思路：1、取第一格背包的中心点坐标。2、获取一格背包的宽度和高度是多少。3、 遍历公式：第二格背包中心x坐标=背包第一格中心X坐标 + (2 mod 背包总列数) * 每格宽第二格背包中心y坐标=背包第一格中心Y坐标 + (2\ 背包总列数) * 每格高 注意：为什么x坐标添加的每隔宽用 mod取余呢？ 因为背包横向走的时候，x坐标是在变化，而背包竖向走的时候，也就是从第一行最后一格跳转到第二行第一格的时候，x坐标是不变的。如图：
单重循环遍历背包代码：Call 横向自上往下背包遍历(1, 32, 8, 489, 277, 30, 30)//调用背包遍历Sub 横向自上往下背包遍历(开始格数,结束格数,背包总列数,背包第一格中心X坐标,背包第一格中心Y坐标,每格宽,每格高) For i = 开始格数-1 To 结束格数-1 //因为数组下标是0起始，所以这里开始格数要减去1 MoveTo 背包第一格中心X坐标 + (i mod 背包总列数) * 每格宽, 背包第一格中心Y坐标 + (i \ 背包总列数) * 每格高 TracePrint (背包第一格中心X坐标 + (i mod 背包总列数) * 每格宽)&','&(背包第一格中心Y坐标 + (i \ 背包总列数) * 每格高) Delay 500 //移动到这格后，这里写你在这格要做的事情的代码 NextEnd Sub
第二步：判断当前背包格子里是否有物品
我们观察上面两张图，如果格子里没有物品，鼠标移动上去之后是没有物品属性显示的。所以，装备两个字可以看见。如果格子里有物品，那么装备两个字就会被遮挡。（游戏里不变的参照物是很多的，童鞋们也可以取其他的参照物来代替装备两个字）好了，我们发现这个特点之后，就可以进行判断，找到装备两个字就说明格子里没有物品，反之则有物品。小编使用的是，大漠插件来找字。首先，建立一个字库。ＤＮＦ游戏的字体是系统字体，小编的系统是宋体９号字。
然后，按照图里的步骤建立好字库以后，将字库文件添加到按键精灵附件中。 判断当前背包是否有物品代码：Call 横向自上往下背包遍历(1, 32, 8, 489, 277, 30, 30)//调用背包遍历Sub 横向自上往下背包遍历(开始格数,结束格数,背包总列数,背包第一格中心X坐标,背包第一格中心Y坐标,每格宽,每格高) For i = 开始格数-1 To 结束格数-1//因为数组下标是0起始，所以这里开始格数要减去1j=j+1//记录当前遍历到的格数 MoveTo 背包第一格中心X坐标 + (i mod 背包总列数) * 每格宽, 背包第一格中心Y坐标 + (i \ 背包总列数) * 每格高 TracePrint (背包第一格中心X坐标 + (i mod 背包总列数) * 每格宽)&','&(背包第一格中心Y坐标 + (i \ 背包总列数) * 每格高) Delay 500 w = dm.Ocr(478, 238, 511,253,'ffffb8',1.0) If w= '装备' Then //找装备字眼，如果没有找到，说明背包格子里有东西 TracePrint '第'& j & '格没物品' Else TracePrint '第' & j & '格有物品' End If NextEnd Sub
第三步，判断物品名称要如何判断物品名称呢？遍历背包的时候，发现格子里有物品的时候，我们开始判断物品的名称。但是，这些物品的属性窗口并不是固定显示在一个地方
细心的童鞋很快就能发现，这里的物品属性框有两种，一种显示的是当前物品的信息，一种显示的是角色现在穿戴物的物品属性。而且，“穿戴中的物品'这几个字是没有变化的
判断物品名称大致思路：1、 用大漠插件找字，找“穿戴中的物品” 这几个字，找到之后记录它的坐标值。所以这里不使用dm.ocr找字，使用dm.FindStr来找字。拓展知识：dm.ocr找字，是在你不知道要找什么字的情况下，通过定义查找范围和字体颜色去找字，返回值就是找到的文字。dm.FindStr找字，是你知道你要找什么字，然后定义查找范围和字体颜色去找字，返回值是文字所在的坐标。2、 通过“穿戴中的物品”这几个字所在的坐标，计算物品名称的出现的范围。3、 用dm.ocr找字在获取到的物品名称范围内进行找字。4、 找到之后，可以继续查找物品的其他属性，耐久属性等等，来判断出售分解还是其他，由于种类很多，小编就不写这类代码了。注意：如果身上并没有穿戴装备，那么物品属性就只会显示当前物品属性，“穿戴中的物品”这几个字无法找到，这样的情况可以在代码里继续做判断，找不到“穿戴中的物品”时，可以去找物品重量后面的单位KG（为什么前面不找KG呢？因为当有两个物品属性窗口的时候，当前物品属性窗口和穿戴中的物品属性窗口中都有KG字样，有两个的话，就无法确定位置。）全部代码：call register()PutAttachment 'G:\test', 'DNF.txt' //释放字库文件到G:\test文件夹里dm_ret = dm.SetDict(0, 'G:\test\DNF.txt') //加载字库文件hwnd= Plugin.Window.Find('地下城与勇士', 0)Call Plugin.Window.Size(hwnd,800,600)Call Plugin.Window.move(hwnd, 0, 0)Call Plugin.Window.Active(hwnd)Delay 1000KeyPress 'I', 1Call 横向自上往下背包遍历(1, 32, 8, 489, 277, 30, 30)//调用背包遍历Sub 横向自上往下背包遍历(开始格数,结束格数,背包总列数,背包第一格中心X坐标,背包第一格中心Y坐标,每格宽,每格高) For i = 开始格数 - 1 To 结束格数 - 1 j=i+1 MoveTo 背包第一格中心X坐标 + (i mod 背包总列数) * 每格宽, 背包第一格中心Y坐标 + (i \ 背包总列数) * 每格高 TracePrint (背包第一格中心X坐标 + (i mod 背包总列数) * 每格宽)&','&(背包第一格中心Y坐标 + (i \ 背包总列数) * 每格高) Delay 500 w = dm.Ocr(478, 238, 511,253,'ffffb8',1.0) If w= '装备' Then //找装备字眼，如果没有找到，说明背包格子里有东西 TracePrint '第'& j & '格没物品' Else TracePrint '第' & j & '格有物品' dm_ret = dm.FindStr(423, 22, 771, 342, '穿戴中的物品', 'e8cda4', 1.0, intX, intY)//查找穿戴中的物品，找到之后获取它的坐标，以它的坐标为基点去找当前物品的名称。 If intX >= 0 and intY >= 0 Then s = dm.Ocr( intX-300,intY,intX-60,intY+50, '68d5ed|b36bff', 1.0)//蓝色装备和粉色装备都找 MessageBox s End if End If NextEnd SubSub register() //注册大漠 Set ws = createobject('Wscript.Shell') ws.run 'regsvr32 atl.dll /s' Set ws = nothing PutAttachment 'G:\test', 'dm.dll' PutAttachment '.\Plugin' ,'RegDll.dll' call Plugin.RegDll.Reg ( 'G:\test\dm.dll') Set dm = createobject('dm.dmsoft') ver = dm.ver() If len(ver) = 0 Then MessageBox '插件注册失败,检查系统是否禁用了vbs脚本权限' EndScript End IfEnd Sub