用大漠插件后台找图，用着用着突然所有图片失效了，所有图必须重新截才可以用

木东白水

用大漠插件后台找图，某个时间突然所有图片失效了，所有图必须重新截才可以用
这是怎么回事？

By:boredom

更换了电脑的色位 分辨率 找图太过于精确 找图没加偏色

木东白水

a4406069 发表于 2017-10-25 12:07
更换了电脑的色位 分辨率 找图太过于精确 找图没加偏色

我个人什么设置配置都没进行修改过，就是用着用着就不行了。

木东白水

a4406069 发表于 2017-10-25 12:07
更换了电脑的色位 分辨率 找图太过于精确 找图没加偏色

色位，分辨率没修改过，我也重新确认过具体参数，是没有变化的。找图过于精确，这个也不是，之前0.9全部都可以找到，现在0.5都找不到。
色偏我填的000000，我不知道偏色该怎么填，试过填111111的时候很多找错的

182868088

木东白水 发表于 2017-10-25 12:08
我个人什么设置配置都没进行修改过，就是用着用着就不行了。

用着用着不行  你应该在代码里面加入  截图代码    如果截图出来一直都是那张  或者是黑的   那么就是你识别的图不刷新！

182868088

182868088 发表于 2017-10-25 12:18
用着用着不行  你应该在代码里面加入  截图代码    如果截图出来一直都是那张  或者是黑的   那么就是你 ...

代码发出来吧不然帮不到你

ming7

看下代码   

木东白水

1. //****************************************************************************************************************************************************
   
2. //注册大漠插件
   
3. Set dm = createobject("dm.dmsoft")
   
4. Delay 100
   
5. ver = dm.ver()
   
6. Delay 100
   
7. //TracePrint "大漠插件版本:"&ver
   
8. If len(ver) =0 Then
   
9.         Set ws = createobject("Wscript.Shell")
   
10.         Delay 100
    
11.         ws.run "regsvr32 x:\dm.dll /s"
    
12.         Delay 100
    
13.         Set ws = nothing
    
14.         Delay 100
    
15. 
    
16. End If
    
17. rs = dm.SetShowErrorMsg(0)
    
18. dm.SetPath ("F:\后台图片")
    
19. //***************************************************************************************************************************************************
    
20. //————————————————————————————————————————————————————————————————————————————————
    
21. 
    
22. Do
    
23. //如果模拟器没开，就无法获取句柄，绑定时会出错，所以在这里检测模拟器开了没
    
24.        
    
25.         //获得整个包含边框的mumu模拟器句柄以及分辨率Len_Mumu*Wid_Mumu
    
26.         DimEnv  MumuHwnd
    
27.         MumuHwnd = dm.FindWindow("Qt5QWindowIcon", "")//Qt5QWindowIcon木木的类名，包含外延
    
28.         rs = dm.GetClientRect(MumuHwnd, X1_Mumu, Y1_Mumu, X2_Mumu, Y2_Mumu)
    
29.         rs = dm.GetClientSize(MumuHwnd, Len_Mumu, Wid_Mumu)
    
30.         DimEnv  Len_Mumu
    
31.         Len_Mumu = X2_Mumu - X1_Mumu //窗口的长
    
32.         DimEnv Wid_Mumu
    
33.         Wid_Mumu = Y2_Mumu - Y1_Mumu //窗口的宽
    
34.        
    
35.         //获取模拟器子窗口句柄以及分辨率Len1_Mumu*Wid1_Mumu
    
36.         DimEnv SubMumuHwnd
    
37.         SubMumuHwnd = dm.FindWindowEx(MumuHwnd, "Qt5QWindowIcon","")//Qt5QWindowIcon木木的类名，不包含外延
    
38.         rs = dm.GetClientRect(SubMumuHwnd, X1_SubMumu, Y1_SubMumu, X2_SubMumu, Y2_SubMumu)
    
39.         DimEnv  Len_SubMumu
    
40.         Len_SubMumu = X2_SubMumu - X1_SubMumu //窗口的长
    
41.         DimEnv Wid_SubMumu
    
42.         Wid_SubMumu = Y2_SubMumu - Y1_SubMumu //窗口的宽
    
43.         If MumuHwnd = 0 or SubMumuHwnd = 0 Then
    
44.                 dm.RunApp "D:\Program Files (x86)\Nemu\EmulatorShell\NemuLauncher.exe", 0//路径待修改
    
45.                 Delay 30000
    
46.         Else
    
47.                 Exit Do       
    
48.         End If
    
49. Loop
    
50. 
    
51. //绑定窗口的测试变量，防止出现多个窗口同时绑定窗口，那时候会100%按键精灵崩溃
    
52. Dimenv bind
    
53. bind=0
    
54. //绑定窗口 long BindWindow(hwnd,display,mouse,keypad,mode)
    
55. Do
    
56.         If bind = 0 Then
    
57.                 bind =1
    
58.                 rs = dm.BindWindow(MumuHwnd, "dx2", "windows", "windows", 0)
    
59.                 bind = 0
    
60.                 Exit Do
    
61.         Else
    
62.                 Delay 1000       
    
63.         End If
    
64. Loop
    
65. 
    
66. Dimenv 刷金币id
    
67. 
    
68. Do
    
69.         TracePrint "1"
    
70.         rs = dm.FindPic(0, 0, len_Mumu, Wid_Mumu, "游戏图标.bmp|开始游戏.bmp|打叉1.bmp|打叉2.bmp|打叉3.bmp|打叉4.bmp|冒险模式.bmp|挑战.bmp|学院.bmp|大师.bmp|地.bmp|下一步.bmp|闯关.bmp|返回键.bmp|更新.bmp", "080808", 0.9, 0, x, y)
    
71.         TracePrint "rs1="&rs
    
72.         If rs = 11 or rs = 12  Then
    
73.                 dm.moveto x, y
    
74.                 rs = dm.leftclick
    
75.                 Exit Do
    
76.         ElseIf rs = 14 Then
    
77.                 Delay 2000
    
78.         ElseIf rs = - 1  Then
    
79.                 TracePrint "rs=-1"
    
80.         Else
    
81.                 dm.moveto x, y
    
82.                 rs = dm.leftclick       
    
83.         End If
    
84.         Delay 800
    
85. Loop
    
86. 
    
87. 刷金币id = BeginThread(刷金币)
    
88. Do
    
89.         Delay 5000
    
90. Loop
    
91. //***************************************************************************************************************************************************
    
92. //————————————————————————————————————————————————————————————————————————————————
    
93. 
    
94. 
    
95. Sub 刷金币
    
96.         Rem mark
    
97.         timestart=now
    
98.         TracePrint "开始刷"
    
99.         //注册并绑定窗口
    
100.         Set dm = CreateObject("dm.dmsoft")
     
101.         rs = dm.SetShowErrorMsg(0)
     
102.         dm.SetPath ("F:\后台图片")
     
103.         Do
     
104.                 If bind = 0 Then
     
105.                         bind =1
     
106.                         rs = dm.BindWindow(MumuHwnd, "dx2", "windows", "windows", 0)
     
107.                         bind = 0
     
108.                         Exit Do
     
109.                 Else
     
110.                         Delay 1000
     
111.                 End If
     
112.         Loop
     
113. 
     
114.         rs = dm.GetClientRect(SubMumuHwnd, a, b, c, d)
     
115.         If c - a = 1024 Then
     
116.         Else
     
117.                 Call Lib.系统.结束进程("NemuPlayer.exe")
     
118.                 RestartScript
     
119.         End If
     
120.         //开始刷副本
     
121.         Do
     
122.                 If datediff("s", timestart, now) > 300 Then
     
123.                         Call Lib.系统.结束进程("NemuPlayer.exe")
     
124.                         RestartScript
     
125.                 End If
     
126.                 rs = dm.FindPic(0, 0, len_SubMumu, Wid_SubMumu, "眼.bmp|闯关.bmp|点击屏幕继续.bmp|再次挑战.bmp|防沉迷确定.bmp|确定.bmp|加载.bmp", "000000", 0.9, 0, x, y)
     
127.                 TracePrint "rs2="&rs
     
128.                 If rs = 0 Then
     
129.                         //已在副本中
     
130.                         Exit Do
     
131.                 ElseIf rs = 6 Then
     
132.                         Delay 2000
     
133.                 ElseIf rs > 0 and rs < 6 Then
     
134.                         dm.moveTo x, y
     
135.                         rs = dm.LeftClick
     
136.                 ElseIf rs = - 1  Then
     
137.                         End If
     
138.                 Delay 500
     
139.         Loop
     
140.         Delay 200
     
141.         //Call wangxiazou//开始往下走
     
142.         Dim count,k
     
143.         count = 0
     
144.         k=0
     
145.        
     
146.         dm.KeyDown 65
     
147.         Delay 1000
     
148.         dm.Keyup 65
     
149.         Delay 50
     
150.        
     
151.         Do
     
152.                 If datediff("s", timestart, now) > 120 Then
     
153.                         Call 重开
     
154.                         Goto mark
     
155.                 ElseIf datediff("s", timestart, now) > 300 Then
     
156.                         Call Lib.系统.结束进程("NemuPlayer.exe")
     
157.                         RestartScript
     
158.                 End If
     
159.                
     
160.                 If count=0 Then
     
161.                         dm.KeyDown 83
     
162.                 End If
     
163.                 //KeyDown "S", 1
     
164.                 If k=20 then
     
165.                         Call 重开
     
166.                         Goto mark
     
167.                 End If
     
168.                
     
169.                 rs = dm.FindPic(0+len_SubMumu/2, 0, len_SubMumu, Wid_SubMumu/2, "跳过.bmp|未选定的眼", "000000", 0.9, 0, x, y)
     
170.                 If rs = - 1  Then
     
171.                  
     
172.                          If count = 0 Then
     
173.                                 //第一次跳过
     
174.                                 Delay 50
     
175.                                 dm.Keydown 83
     
176.                                 Delay 1000
     
177.                         ElseIf count = 1 Then
     
178.                                 //第二次跳过
     
179.                                 rs = dm.FindPic(0, 0, len_SubMumu, Wid_SubMumu, "未过墙.bmp|过墙1.bmp|过墙2.bmp", "000000", 0.7, 0, x, y)
     
180.                                
     
181.                                 If rs = 0 Then
     
182.                                         //未过墙，开始过墙
     
183.                                         rs = dm.FindPic(0 + len_SubMumu / 2, 0 + Wid_SubMumu / 2, len_SubMumu, Wid_SubMumu, "一技能.bmp", "000000", 0.9, 0, x, y)
     
184.                                        
     
185.                                         If rs > - 1  Then
     
186.                                                 //第一次点击技能
     
187.                                                 dm.MoveTo x, y
     
188.                                                 //MoveTo intX,intY
     
189.                                                 Delay 50
     
190.                                                 dm.LeftDown
     
191.                                                 Delay 50
     
192.                                                 dm.MoveTo x-len_SubMumu/25, y+wid_subMumu/6
     
193.                                                 Delay 50
     
194.                                                 dm.LeftUp
     
195.                                                 //第二次点击技能位移
     
196.                                                 Delay 2100
     
197.                                                 dm.moveTo x, y
     
198.                                                 Delay 50
     
199.                                                 rs = dm.leftclick
     
200.                                                 Delay 50
     
201.                                         End If
     
202.                                        
     
203.                                 ElseIf rs = 1 or rs = 2 Then
     
204.                                         rs = dm.FindPic(0+len_SubMumu/2, 0+ Wid_SubMumu/2, len_SubMumu, Wid_SubMumu, "三技能.bmp","111111", 0.9, 0, x, y)
     
205.                                        
     
206.                                         If rs > -1 Then
     
207.                                                 dm.MoveTo x,y
     
208.                                                 //MoveTo intx, inty
     
209.                                                 Delay 50
     
210.                                                 rs=dm.LeftClick
     
211.                                                 Delay 50
     
212.                                                 dm.KeyDown 68
     
213.                                                 Delay 50
     
214.                                                 dm.keydown 83
     
215.                                                 Delay 50
     
216.                                                 Delay 3000//有时候被打断，然后3秒被怪打死
     
217.                                                 dm.keyup 83
     
218.                                                 Delay 50
     
219.                                                 dm.KeyUp 68
     
220.                                                 Delay 50
     
221.                                         End If
     
222.                                 ElseIf rs = - 1  Then
     
223.                                         TracePrint "未找到未过墙或者过墙，出错重开"
     
224.                                         Call 重开
     
225.                                        
     
226.                                 End If
     
227.                                
     
228.                         ElseIf count = 2 Then
     
229.                                 //第三次跳过
     
230.                                 //未出现第三次跳过，则继续战斗
     
231.                                 rs = dm.FindPic(0 , 0 , len_SubMumu, Wid_SubMumu, "一技能.bmp|二技能.bmp|普通攻击.bmp", "000000", 0.9, 0, x, y)
     
232.                                 If rs = 0 Then
     
233.                                         dm.moveto x, y
     
234.                                         rs = dm.LeftClick
     
235.                                         Delay 300
     
236.                                         dm.moveto x, y
     
237.                                         rs = dm.LeftClick
     
238.                                 ElseIf rs = 1 Then
     
239.                                         dm.moveto x, y
     
240.                                         rs = dm.LeftClick
     
241.                                 ElseIf rs = 2  Then
     
242.                                         dm.moveto x, y
     
243.                                         rs = dm.LeftClick
     
244.                                 End If
     
245.                         ElseIf count = 3 Then
     
246.                                 //战斗结束，本次刷完
     
247.                                 Exit Do
     
248.                         End If
     
249.                 ElseIf rs = 0 Then
     
250.                         If count = 0 Then
     
251.                                 dm.keyup 83
     
252.                         End If
     
253.                         dm.MoveTo x, y
     
254.                         rs = dm.leftClick
     
255.                         count = count + 1
     
256.                 ElseIf rs = 1 Then
     
257.                         dm.MoveTo x, y
     
258.                         rs = dm.leftClick
     
259.                 End If
     
260.                 If count = 0 Then
     
261.                         k = k + 1
     
262.                 End If
     
263.                 Delay 500
     
264.         Loop
     
265.         Goto mark
     
266.         //新刷金币id = BeginThread(刷金币)
     
267.         //刷金币id = 新刷金币id
     
268. End Sub
     
269. 
     
270. Sub 重开
     
271.         TracePrint "重开"
     
272.         Set dm = CreateObject("dm.dmsoft")
     
273.         rs = dm.SetShowErrorMsg(0)
     
274.         dm.SetPath ("F:\后台图片")
     
275.         Do
     
276.                 If bind = 0 Then
     
277.                         bind =1
     
278.                         rs = dm.BindWindow(MumuHwnd, "dx2", "windows", "windows", 0)
     
279.                         bind = 0
     
280.                         Exit Do
     
281.                 Else
     
282.                         Delay 1000
     
283.                 End If
     
284.         Loop
     
285.         Do
     
286.                 rs = dm.FindPic(0, 0, len_SubMumu, Wid_SubMumu, "下一步.bmp|退出本局.bmp|返回1.bmp|返回2.bmp|设置.bmp", "000000", 0.7, 0, x, y)
     
287.                 TracePrint "rs=" & rs
     
288.                 If rs = 3 or rs = 1 or rs = 2 or rs = 4 Then
     
289.                         dm.moveto x, y
     
290.                         rs = dm.LeftClick
     
291.                 ElseIf rs = 0 Then
     
292.                         dm.moveto x, y
     
293.                         rs = dm.LeftClick
     
294.                         Exit Do
     
295.                 End If
     
296.                 Delay 1000
     
297.         Loop
     
298. End Sub
     
299. //***************************************************************************************************************************************************
     
300. //————————————————————————————————————————————————————————————————————————————————
     
301. 
     
302. Sub onscriptExit()
     
303.         rs = dm.unbindWindow()
     
304.         TracePrint "解绑成功"
     
305. End Sub
     

复制代码

木东白水

182868088 发表于 2017-10-25 12:18
用着用着不行  你应该在代码里面加入  截图代码    如果截图出来一直都是那张  或者是黑的   那么就是你 ...

代码发出来了

木东白水

a4406069 发表于 2017-10-25 12:07
更换了电脑的色位 分辨率 找图太过于精确 找图没加偏色

代码发出来了