【有源码】大唐无双多开后台自动打怪,喊话,帮会庄园任务

tyuyan

:D..   第一次上传脚本,大家多多指教。
     
     基本实现方法： 通过枚举获得窗口句柄,多线程操作,然后通过大漠找字来实现基本功能。
     主要功能：大唐无双多开后台自动打怪,自动喊话(支持中文),帮会庄园任务,主要是自己购买,然后自动浇水,施肥等。 可能有些不精致(新手,请见谅)
     源码如下：
   

1. 空间 大唐无双多开自动打怪
   
2. //定义默认空间
   
3. dm=com("dm.dmsoft" )
   
4. //定义全局变量
   
5. 延时1,延时2,延时3,延时4,延时5,枚举窗口
   
6. c1,i,技能1,技能2,技能3,技能4,技能5,技能攻击1,技能攻击2,技能攻击3,技能攻击4,技能攻击5,延时等待1,延时等待2,延时等待3,延时等待4,延时等待5,回血1,回蓝1,线程句柄,窗口句柄,移动,k
   
7. 是否注册成功
   
8. 句柄
   
9.   线程句柄集=array[]
   
10. 对象句柄
    
11. //判断是否输入文本框内容
    
12. 功能  文本框内容是否为空()
    
13. 技能1=下拉框.得到选项("技能攻击1")
    
14. 技能2=下拉框.得到选项("技能攻击2")
    
15. 技能3=下拉框.得到选项("技能攻击3")
    
16. 技能4=下拉框.得到选项("技能攻击4")
    
17. 技能5=下拉框.得到选项("技能攻击5")
    
18. 延时1=编辑框.获得文本("延时1")
    
19. 延时2=编辑框.获得文本("延时2")
    
20. 延时3=编辑框.获得文本("延时3")
    
21. 延时4=编辑框.获得文本("延时4")
    
22. 延时5=编辑框.获得文本("延时5")
    
23. 如果(技能1==0||技能2 ==0||技能3 ==0||技能4 ==0||技能5==0||字符串.长度(延时1) ==0||字符串.长度(延时2) ==0||字符串.长度(延时3) ==0||字符串.长度(延时4) ==0||字符串.长度(延时5) ==0)
    
24. 返回  假
    
25. 否则
    
26.    如果(技能1==1)
    
27.         技能攻击1=49
    
28.     如果结束
    
29.       如果(技能1==2)
    
30.         技能攻击1=50
    
31.     如果结束
    
32.     如果(技能1==3)
    
33.         技能攻击1=51
    
34.     如果结束
    
35.       如果(技能1==4)
    
36.         技能攻击1=52
    
37.     如果结束
    
38.       如果(技能1==5)
    
39.         技能攻击1=53
    
40.     如果结束
    
41.    
    
42.    
    
43.       如果(技能2 ==1)
    
44.         技能攻击2=49
    
45.     如果结束
    
46.       如果(技能2==2)
    
47.         技能攻击2=50
    
48.     如果结束
    
49.       如果(技能2 ==3)
    
50.         技能攻击2=51
    
51.     如果结束
    
52.       如果(技能2 ==4)
    
53.         技能攻击2=52
    
54.     如果结束
    
55.        如果(技能2 ==5)
    
56.         技能攻击2=53
    
57.     如果结束
    
58.    
    
59.    
    
60.       如果(技能3 ==1)
    
61.         技能攻击3=49
    
62.     如果结束
    
63.       如果(技能3 ==2)
    
64.         技能攻击3=50
    
65.     如果结束
    
66.       如果(技能3 ==3)
    
67.         技能攻击3=51
    
68.     如果结束
    
69.       如果(技能3 ==4)
    
70.         技能攻击3=52
    
71.     如果结束
    
72.       如果(技能3 ==5)
    
73.         技能攻击3=53
    
74.     如果结束
    
75.    
    
76.    
    
77.        如果(技能4 ==1)
    
78.         技能攻击4=49
    
79.     如果结束
    
80.         如果(技能4 ==2)
    
81.         技能攻击4=50
    
82.     如果结束
    
83.         如果(技能4 ==3)
    
84.         技能攻击4=51
    
85.     如果结束
    
86.         如果(技能4 ==4)
    
87.         技能攻击4=52
    
88.     如果结束
    
89.         如果(技能4 ==5)
    
90.         技能攻击4=53
    
91.     如果结束
    
92.    
    
93.    
    
94.        如果(技能5 ==1)
    
95.         技能攻击5=49
    
96.     如果结束
    
97.      如果(技能5 ==2)
    
98.         技能攻击5=50
    
99.     如果结束
    
100.      如果(技能5 ==3)
     
101.         技能攻击5=51
     
102.     如果结束
     
103.      如果(技能5 ==4)
     
104.         技能攻击5=52
     
105.     如果结束
     
106.      如果(技能5 ==5)
     
107.         技能攻击5=53
     
108.     如果结束
     
109. 
     
110. 延时等待1=延时1
     
111. 延时等待2=延时2
     
112. 延时等待3=延时3
     
113. 延时等待4=延时4
     
114. 延时等待5=延时5
     
115. 
     
116. 如果结束
     
117. 返回 真
     
118. 功能结束
     
119. 
     
120. 购买钉耙数量,购买水桶数量,购买粪瓢数量,购买精致水桶数量,松土次数,浇水次数,施肥次数,帮会浇水次数
     
121. 
     
122. 功能  自动庄园任务()
     
123. 句柄窗口,窗口绑定是否成功
     
124. 路径
     
125. 路径=辅助.获取资源路径("rc:")
     
126. dm.SetPath(路径)
     
127. 辅助.等待(500)
     
128. dm.SetDict(0,"dm_soft.txt")
     
129. 
     
130.      如果(c1!=0)
     
131.            句柄窗口=句柄[i]
     
132.      否则
     
133.             句柄窗口=窗口句柄
     
134.      如果结束
     
135.   
     
136.      窗口绑定是否成功=dm.BindWindow(句柄窗口,"dx","dx","dx",0)
     
137.      辅助.等待(500)
     
138.      如果(窗口绑定是否成功==0)
     
139.           辅助.消息框("窗口绑定失败")
     
140.      否则
     
141.          
     
142.          如果(复选框.获得状态("自动购买"))
     
143.          //先获得要购买的数量
     
144.          购买钉耙数量=编辑框.获得文本("购买钉耙")
     
145.          辅助.等待(100)
     
146.          购买粪瓢数量=编辑框.获得文本("购买粪瓢")
     
147.          辅助.等待(100)
     
148.          购买水桶数量=编辑框.获得文本("购买水桶")
     
149.          辅助.等待(100)
     
150.          购买精致水桶数量=编辑框.获得文本("购买精致水桶")
     
151.          辅助.等待(100)
     
152.          //775，88
     
153.          //通过坐标找到自动寻路,找到帮会庄园商人NPC
     
154.          dm.MoveTo(955,175)
     
155.          辅助.等待(100)
     
156.          dm.LeftClick()
     
157.          辅助.等待(100)
     
158.          //移动到帮会庄园商人
     
159.          dm.MoveTo(672,133)
     
160.          辅助.等待(500)
     
161.          dm.LeftClick()
     
162.          辅助.等待(100)
     
163.          //关闭寻路对话框
     
164.           dm.MoveTo(775,88)
     
165.           辅助.等待(500)
     
166.           dm.LeftClick()
     
167.         // 通过找字,看是否已经打开购买
     
168.         循环(真)
     
169.         intx,inty
     
170.         dm.FindStr(0,0,2000,2000,"色子","33cc33-404040",0.8,intx,inty)
     
171.         如果(intx>0)  
     
172.             跳出
     
173.         如果结束
     
174.         辅助.等待(500)
     
175.         循环结束
     
176.           //  通过找字找到钉耙
     
177.           如果(0<购买钉耙数量)
     
178.            intx2,inty2
     
179.            dm.FindStr(0,0,2000,2000,"钉耙","33cc33-405060",1.0,intx2,inty2)
     
180.            辅助.等待(100)           
     
181.           如果(intx2>0)
     
182.            dm.MoveTo(intx2-30,inty2+15)
     
183.            辅助.等待(500)
     
184.            循环(0<购买钉耙数量)
     
185.            dm.RightClick()
     
186.            辅助.等待(500)
     
187.            购买钉耙数量=购买钉耙数量-1
     
188.            循环结束
     
189.            辅助.等待(500)
     
190.             dm.MoveTo(0,0)
     
191.             辅助.等待(500)
     
192.            如果结束
     
193.           如果结束     
     
194.          
     
195.          
     
196.            //  通过找字找到粪瓢
     
197.            如果(0<购买粪瓢数量)
     
198.            intX,intY
     
199.            dm.FindStr(0,0,2000,20000,"粪瓢","33cc33-606060",0.8,intX,intY)
     
200.            辅助.等待(500)
     
201.           如果(intX>0)
     
202.           dm.MoveTo(intX-30,intY+15)
     
203.           辅助.等待(500)
     
204.           循环(0<购买粪瓢数量)
     
205.            dm.RightClick()
     
206.            辅助.等待(500)
     
207.            购买粪瓢数量=购买粪瓢数量-1
     
208.            循环结束
     
209.           辅助.等待(500)
     
210.           dm.MoveTo(0,0)
     
211.           辅助.等待(500)
     
212.           如果结束
     
213.           如果结束
     
214.          
     
215.           如果(0<购买水桶数量)
     
216.            //  通过找字找到水桶
     
217.            intX1,intY1
     
218.            dm.FindStr(555,238,592,260,"水桶","33cc33-405060",0.8,intX1,intY1)
     
219.            辅助.等待(500)
     
220.           如果(intX1>0)
     
221.           dm.MoveTo(intX1-30,intY1+15)
     
222.           辅助.等待(500)
     
223.           循环(0<购买水桶数量)
     
224.            dm.RightClick()
     
225.            辅助.等待(500)
     
226.            购买水桶数量=购买水桶数量-1
     
227.            循环结束
     
228.           辅助.等待(500)
     
229.           dm.MoveTo(0,0)
     
230.           辅助.等待(500)
     
231.           如果结束
     
232.           如果结束
     
233.          
     
234.            //  通过找字找到精致水桶
     
235.           如果(0<购买精致水桶数量)
     
236.           intX3,intY3
     
237.           dm.FindStr(0,0,2000,2000,"精致水桶","0070dd-405060",0.8,intX3,intY3)
     
238.           辅助.等待(500)
     
239.           如果(intX3>0)
     
240.           dm.MoveTo(intX3-30,intY3+15)
     
241.           辅助.等待(500)
     
242.            循环(0<购买精致水桶数量)
     
243.            dm.RightClick()
     
244.            辅助.等待(500)
     
245.            购买精致水桶数量=购买精致水桶数量-1
     
246.            循环结束
     
247.           辅助.等待(500)
     
248.           dm.MoveTo(0,0)
     
249.           辅助.等待(500)
     
250.           如果结束
     
251.           如果结束  
     
252.             
     
253.          如果结束
     
254.          
     
255.          
     
256.           //先获得要任务次数
     
257.          松土次数=编辑框.获得文本("松土次数")
     
258.          辅助.等待(100)
     
259.          浇水次数=编辑框.获得文本("浇水次数")
     
260.          辅助.等待(100)
     
261.          施肥次数=编辑框.获得文本("施肥次数")
     
262.          辅助.等待(100)
     
263.          帮会浇水次数=编辑框.获得文本("帮会浇水次数")
     
264.          辅助.等待(100)
     
265.          
     
266.          
     
267.              //帮会浇水
     
268.     如果(复选框.获得状态("帮会浇水") )
     
269.         循环(0<帮会浇水次数)
     
270.         //按下M打开地图
     
271.           dm.KeyPress(77)
     
272.           辅助.等待(1000)
     
273.           //通过找到水井,把人物移动到水井旁边
     
274.           循环(真)
     
275.           intx5,inty5
     
276.           dm.FindStr(200,330,520,700,"水井","00ff00-506060",0.8,intx5,inty5)
     
277.           辅助.等待(100)           
     
278.           如果(intx5>0)
     
279.           dm.MoveTo(intx5+60,inty5)
     
280.           辅助.等待(100)
     
281.           dm.RightClick()
     
282.           辅助.等待(100)
     
283.           dm.KeyPress(77)
     
284.           跳出
     
285.           如果结束  
     
286.           循环结束
     
287. 
     
288.           //通过找到无波古井来打水
     
289.           循环(真)
     
290.           intx1,inty1
     
291.            dm.FindStr(0,0,2000,2000,"无波古井","ffba3c-707070",0.8,intx1,inty1)
     
292.            辅助.等待(100)           
     
293.            如果(intx1>0)
     
294.            dm.MoveTo(intx1+15,inty1+40)
     
295.            辅助.等待(500)
     
296.            dm.LeftClick()
     
297.            辅助.等待(5000)
     
298.             //ffba3c-606060
     
299.             //通过按下M打开地图,寻找帮会树
     
300.            dm.KeyPress(77)
     
301.            辅助.等待(1000)
     
302.            跳出
     
303.           如果结束
     
304.          循环结束
     
305.          
     
306.          循环(真)
     
307.           intx2,inty2
     
308.           dm.FindStr(0,0,2000,2000,"帮会树","00ff00-506060",0.8,intx2,inty2)
     
309.           辅助.等待(100)           
     
310.           如果(intx2>0)
     
311.           dm.MoveTo(intx2+19,inty2+27)
     
312.           辅助.等待(500)
     
313.           dm.RightClick()
     
314.           辅助.等待(100)
     
315.           dm.KeyPress(77)
     
316.           辅助.等待(20000)
     
317.           dm.LeftClick()
     
318.           辅助.等待(3000)
     
319.           dm.MoveTo(285,291)
     
320.            辅助.等待(100)
     
321.           dm.LeftClick()
     
322.           辅助.等待(5000)
     
323.            break
     
324.           如果结束  
     
325.          循环结束
     
326.          帮会浇水次数=帮会浇水次数-1
     
327.          标签.设置文本("剩余帮会浇水次数","剩余帮会浇水次数："&帮会浇水次数)
     
328.         循环结束
     
329.     如果结束  
     
330.    
     
331.    
     
332. 
     
333.    
     
334.    
     
335.    
     
336.      获得分钟=系统.获取毫秒()/60000
     
337.      获得分钟1=系统.获取毫秒()/60000
     
338.     移动=0
     
339.     a=0
     
340. 循环(真)
     
341.      
     
342.       计算分钟=系统.获取毫秒()/60000
     
343.      
     
344.      如果(移动==0||(计算分钟-获得分钟)>1*1)
     
345.             dm.KeyPress(77)
     
346.             辅助.等待(1000)   
     
347.             intx2,inty2
     
348.             循环(真)
     
349.             dm.FindStr(0,0,2000,2000,"帮会树","00ff00-506060",0.8,intx2,inty2)
     
350.             辅助.等待(100)           
     
351.             如果(intx2>0)
     
352.             dm.MoveTo(intx2-63,inty2+30)
     
353.             辅助.等待(500)
     
354.             dm.RightClick()
     
355.             辅助.等待(500)
     
356.             dm.KeyPress(77)
     
357.             辅助.等待(500)
     
358.             移动=1
     
359.             获得分钟=系统.获取毫秒()/60000
     
360.            跳出
     
361.           如果结束
     
362.         循环结束
     
363.      如果结束
     
364.   
     
365.   
     
366.       如果((计算分钟-获得分钟1)>1*1)
     
367.             dm.KeyPress(77)
     
368.             辅助.等待(1000)   
     
369.             intx2,inty2
     
370.             循环(真)
     
371.             dm.FindStr(0,0,2000,2000,"帮会树","00ff00-506060",0.8,intx2,inty2)
     
372.             辅助.等待(100)           
     
373.             如果(intx2>0)
     
374.             dm.MoveTo(intx2+80,inty2+40)
     
375.             辅助.等待(500)
     
376.             dm.RightClick()
     
377.             辅助.等待(500)
     
378.             dm.KeyPress(77)
     
379.             辅助.等待(500)   
     
380.             获得分钟1=系统.获取毫秒()/60000
     
381.            跳出
     
382.           如果结束
     
383.         循环结束
     
384.       
     
385.      如果结束
     
386.      
     
387.      
     
388. //自动松土
     
389.     如果(复选框.获得状态("松土") )
     
390. 
     
391.     intx6,inty6
     
392.     dm.FindStr(0,0,2000,2000,"健康","ffba3c-505050",0.8,intx6,inty6)
     
393.     辅助.等待(500)
     
394.     如果(intx6>0&&a==0)
     
395.         
     
396.        辅助.等待(100)
     
397.        dm.MoveTo(intx6,inty6+60)
     
398.        辅助.等待(500)
     
399.         dm.LeftClick()
     
400.         循环(0<松土次数)
     
401.         辅助.等待(3000)
     
402.         松土次数=松土次数-1
     
403.         标签.设置文本("剩余松土次数","剩余松土次数："&松土次数)
     
404.        循环结束
     
405.        a=1
     
406.     如果结束
     
407. 
     
408.   如果结束     
     
409.      
     
410.               //自动浇水
     
411.     如果(复选框.获得状态("浇水") )
     
412.       
     
413.                 intx,inty
     
414.                 dm.FindStr(0,0,2000,2000,"干旱","ffba3c-707070",0.8,intx,inty)
     
415.                 辅助.等待(500)
     
416.                     如果(intx>0&&0<浇水次数)
     
417.                           辅助.等待(500)
     
418.                           dm.MoveTo(intx,inty+60)
     
419.                           辅助.等待(500)
     
420.                           dm.LeftClick()
     
421.                           辅助.等待(6000)
     
422.                           浇水次数=浇水次数-1
     
423.                           标签.设置文本("剩余浇水次数","剩余浇水次数："&浇水次数)
     
424.                           dm.MoveTo(46,83)
     
425.                           辅助.等待(500)
     
426.                          dm.LeftClick()
     
427.                     如果结束
     
428.   如果结束
     
429. 
     
430. //自动施肥
     
431. 如果(复选框.获得状态("施肥") )
     
432.     intx,inty
     
433.     dm.FindStr(0,0,2000,2000,"贫瘠","ffba3c-607080",0.8,intx,inty)
     
434.     辅助.等待(500)
     
435.     如果(intx>0&&0<施肥次数)
     
436.        辅助.等待(500)
     
437.        dm.MoveTo(intx,inty+60)
     
438.        辅助.等待(500)
     
439.        dm.LeftClick()
     
440.        辅助.等待(6000)
     
441.        施肥次数=施肥次数-1
     
442.        标签.设置文本("剩余施肥次数","剩余施肥次数："&施肥次数)
     
443.         dm.MoveTo(46,83)
     
444.         辅助.等待(500)
     
445.         dm.LeftClick()
     
446.     如果结束
     
447. 如果结束
     
448. 
     
449. 
     
450. //    自动捉虫
     
451.     intx5,inty5
     
452.     dm.FindStr(0,0,2000,2000,"害虫","ffba3c-707070",0.8,intx5,inty5)
     
453.     辅助.等待(500)
     
454.     如果(intx5>0)
     
455.        辅助.等待(500)
     
456.        dm.MoveTo(intx5,inty5+40)
     
457.        辅助.等待(500)
     
458.        dm.LeftClick()
     
459.        辅助.等待(6000)
     
460.     如果结束
     
461. 
     
462. 
     
463. 如果(施肥次数==0&&浇水次数==0)  
     
464.     辅助.消息框("任务完成！")
     
465.     跳出
     
466. 如果结束
     
467.   
     
468. 循环结束
     
469.    
     
470. 
     
471. 
     
472. 
     
473.          
     
474. //      intX,intY
     
475. //      dm.FindColor(860,29,1000,150, "ad0300-000000|f00005-000000", 0.8, 0,intX,intY)  
     
476. //      辅助.等待(1000)   
     
477. //       如果(intX>0)
     
478. //          dm.MoveTo(intX,intY)
     
479. //          辅助.等待(500)
     
480. //          dm.RightClick()
     
481. //          辅助.等待(2000)
     
482. //          dm.LeftClick()
     
483. //         
     
484. //        如果结束
     
485.      
     
486. 如果结束
     
487. 
     
488. 返回 真
     
489. 功能结束
     
490. 
     
491. 
     
492. 功能 自动喊话()
     
493. 窗口绑定是否成功
     
494. 句柄窗口
     
495.      如果(c1!=0)
     
496.      句柄窗口=句柄[i]
     
497.      否则
     
498.            句柄窗口=窗口句柄
     
499.      如果结束
     
500.   
     
501.      窗口绑定是否成功=dm.BindWindow(句柄窗口,"dx","dx","dx",0)
     
502.      
     
503.      如果(窗口绑定是否成功==0)
     
504.          辅助.消息框("窗口绑定失败")
     
505.      否则
     
506.      
     
507.      循环(真)  
     
508.       辅助.等待(1000)
     
509.       辅助.等待(1000)
     
510.       dm.KeyPress(13)  
     
511.      辅助.等待(1000)
     
512.      dm.SendString(句柄窗口,编辑框.获得文本("喊话1"))
     
513.      辅助.等待(1000)
     
514.         dm.KeyPress(13)   
     
515.      辅助.等待(1000)
     
516.        dm.KeyPress(13)  
     
517.      辅助.等待(1000)
     
518.         dm.SendString(句柄窗口,编辑框.获得文本("喊话2"))
     
519.      辅助.等待(1000)
     
520.          dm.KeyPress(13)   
     
521.      辅助.等待(1000)
     
522.           dm.KeyPress(13)   
     
523.      辅助.等待(1000)
     
524.         dm.SendString(句柄窗口,编辑框.获得文本("喊话3"))
     
525.      辅助.等待(1000)
     
526.          dm.KeyPress(13)  
     
527.      辅助.等待(1000)
     
528.         dm.KeyPress(13)   
     
529.      辅助.等待(1000)
     
530.         dm.SendString(句柄窗口,编辑框.获得文本("喊话4"))
     
531.      辅助.等待(1000)
     
532.          dm.KeyPress(13)   
     
533.      辅助.等待(1000)
     
534.      
     
535.         dm.KeyPress(13)   
     
536.      辅助.等待(1000)
     
537.         dm.SendString(句柄窗口,编辑框.获得文本("喊话5"))
     
538.      辅助.等待(1000)
     
539.      dm.KeyPress(13)
     
540. 
     
541.      辅助.等待(1000)
     
542.      循环结束
     
543.      
     
544.      如果结束
     
545. 返回 0
     
546. 功能结束
     
547. 
     
548. 
     
549. 功能 自动打怪()
     
550. 
     
551. 路径
     
552. 路径=辅助.获取资源路径("rc:")
     
553. 
     
554. dm.SetPath(路径)
     
555. 
     
556. 窗口绑定是否成功,intX,intY,intX1,intY1,intX2,intY2,intX3,intY3,intX4,intY4
     
557.      如果(c1!=0)
     
558.      窗口句柄=句柄[i]
     
559.      如果结束
     
560.      窗口绑定是否成功=dm.BindWindow(窗口句柄,"dx","dx","dx",0)
     
561.      
     
562.      如果(窗口绑定是否成功==0)
     
563.          辅助.消息框("窗口绑定失败")
     
564.      否则
     
565.         循环(真)
     
566.         dm.KeyPress(9)
     
567.         辅助.等待(500)
     
568.         dm.FindColor(441,49,457,65, "a50000-000000", 0.8, 0,intX,intY)
     
569.         辅助.等待(1000)
     
570.         循环(intX>0)
     
571.             dm.KeyPress(技能攻击1)
     
572.             辅助.等待(延时等待1)
     
573.             
     
574.             dm.KeyPress(技能攻击2)
     
575.             辅助.等待(延时等待2)
     
576.             
     
577.             
     
578.             //加血判断
     
579.              dm.FindColor(130,50,152,64, "bd0000-000000", 0.8, 0,intX3,intY3)
     
580.              辅助.等待(1000)
     
581.              如果(intX3<0)
     
582.                  dm.KeyPress(56)
     
583.             如果结束
     
584.            
     
585.             //加蓝判断
     
586.              dm.FindColor(131,69,153,83, "0049bd-000000", 0.8, 0,intX4,intY4)
     
587.              辅助.等待(1000)
     
588.              如果(intX4<0)
     
589.                  dm.KeyPress(57)
     
590.             如果结束        
     
591. 
     
592.                                                                
     
593.             dm.KeyPress(技能攻击3)
     
594.             辅助.等待( 延时等待3)
     
595.             
     
596.             dm.KeyPress(技能攻击4)
     
597.             辅助.等待( 延时等待4)
     
598.             
     
599.             dm.KeyPress(技能攻击5)
     
600.             辅助.等待(延时等待5)
     
601.             
     
602.          
     
603.            //升级判断
     
604.             dm.FindPic(0,0,2000,2000,"升级图片.bmp","000000",0.9,0,intX2,intY2)
     
605.             辅助.等待(1000)
     
606.              如果(intX2>0)
     
607.                  dm.KeyPress(27)
     
608.             如果结束           
     
609.             
     
610.             //怪物是否死亡判断
     
611.             dm.FindColor(295,56,303,69, "c61418-000000", 0.9, 0,intX1,intY1)
     
612.             辅助.等待(1000)
     
613.             如果(intX1<0)
     
614.                     dm.KeyPress(192)
     
615.                     辅助.等待(2000)
     
616.                     dm.KeyPress(192)
     
617.                     辅助.等待(1000)
     
618.                 跳出
     
619.             如果结束
     
620.         循环结束
     
621. 
     
622.    循环结束
     
623.    
     
624.      如果结束
     
625. 
     
626. 返回 真
     
627. 功能结束
     
628. 
     
629. 功能  大漠解绑()
     
630. dm.UnBindWindow()
     
631. 返回 0
     
632. 功能结束
     
633. 
     
634. 
     
635. 功能  获取窗口()
     
636.         枚举窗口=系统.枚举("MainWnd class of ArkEngine",1)
     
637.     如果(字符串.长度(枚举窗口)!=0)
     
638.         字符串.分割(枚举窗口,"|",句柄)
     
639.          i=0
     
640.          数组空间.大小(句柄,c1)                  
     
641.          索引值
     
642.          索引值=选项卡.得到选项("选项卡0")
     
643.                           
     
644.          如果(索引值==0)
     
645.                  如果(!大唐无双多开自动打怪.文本框内容是否为空())
     
646.                          辅助.消息框("请设置好攻击技能或者延时")
     
647.                   否则      
     
648.                           如果(c1==0) //如果c1=0证明就一个游戏窗口,单开操作
     
649.                                 窗口句柄=枚举窗口
     
650.                                 辅助.等待(1000)
     
651.                                 线程句柄=线程.扩展开启("大唐无双多开自动打怪.自动打怪","","大唐无双多开自动打怪.大漠解绑","")   
     
652.                             否则
     
653.                                   线程句柄集=数组空间.重定义(线程句柄集,真,c1)
     
654.                                      循环(i <c1)
     
655.                                            线程句柄集[i]=线程.扩展开启("大唐无双多开自动打怪.自动打怪","","大唐无双多开自动打怪.大漠解绑","")
     
656.                                            辅助.等待(2000)
     
657.                                             i=i +1
     
658.                                       循环结束
     
659.                                k=i-1
     
660.                              如果结束
     
661.                      
     
662.                       如果结束
     
663.              如果结束
     
664. 
     
665.              如果(索引值==1)
     
666.                  如果(c1==0) //如果c1=0证明就一个游戏窗口,单开操作
     
667.                                 窗口句柄=枚举窗口
     
668.                                 辅助.等待(1000)
     
669.                                 线程句柄=线程.扩展开启("大唐无双多开自动打怪.自动喊话","","大唐无双多开自动打怪.大漠解绑","")   
     
670.                             否则
     
671.                            
     
672.                                   线程句柄集=数组空间.重定义(线程句柄集,真,c1)
     
673.                                      循环(i <c1)
     
674.                                          
     
675.                                            辅助.等待(2000)
     
676.                                            线程句柄集[i]=线程.扩展开启("大唐无双多开自动打怪.自动喊话","","大唐无双多开自动打怪.大漠解绑","")
     
677.                                            辅助.等待(2000)
     
678.                                             i=i +1
     
679.                                       循环结束
     
680.                                k=i-1
     
681.                  如果结束
     
682.                  
     
683.               如果结束   
     
684.          如果(索引值==2)
     
685.                  如果(c1==0) //如果c1=0证明就一个游戏窗口,单开操作
     
686.                                 窗口句柄=枚举窗口
     
687.                                 辅助.等待(1000)
     
688.                                 线程句柄=线程.扩展开启("大唐无双多开自动打怪.自动庄园任务","","大唐无双多开自动打怪.大漠解绑","")   
     
689.                             否则
     
690.                            
     
691.                                   线程句柄集=数组空间.重定义(线程句柄集,真,c1)
     
692.                                      循环(i <c1)
     
693.                                            辅助.等待(2000)
     
694.                                            线程句柄集[i]=线程.扩展开启("大唐无双多开自动打怪.自动庄园任务","","大唐无双多开自动打怪.大漠解绑","")
     
695.                                            辅助.等待(2000)
     
696.                                             i=i +1
     
697.                                       循环结束
     
698.                                k=i-1
     
699.                  如果结束
     
700.                  
     
701.               如果结束      
     
702.               
     
703.     否则
     
704.         辅助.消息框("请确认是否开启了游戏！")
     
705.     如果结束
     
706.    
     
707. 返回 真
     
708. 功能结束
     
709. 
     
710. 
     
711. //快速测试功能
     
712. function test()
     
713.     枚举窗口1
     
714.     枚举窗口1=系统.枚举("MainWnd class of ArkEngine",1)
     
715. //    help.messagebox(枚举窗口1)
     
716.     路径
     
717.     路径=辅助.获取资源路径("rc:")
     
718.     dm.SetPath(路径)
     
719.     辅助.等待(500)
     
720.     dm.SetDict(0,"dm_soft.txt")         
     
721.     句柄窗口
     
722.     句柄窗口 = convert.strtoint(枚举窗口1,0)
     
723.     if(0==dm.BindWindow(句柄窗口,"dx","dx","dx",0))
     
724.         help.messagebox("绑定失败")
     
725.         return 0
     
726.     endif
     
727. 
     
728. // 左边树的坐标是x-63,y+30
     
729. //右边树的坐标是x+70,y+45
     
730. //
     
731. //      循环(真)
     
732. //          intx2,inty2
     
733. //          dm.FindStr(0,0,2000,2000,"帮会树","00ff00-506060",0.8,intx2,inty2)
     
734. //          辅助.等待(100)           
     
735. //          如果(intx2>0)
     
736. //          dm.MoveTo(intx2+70,inty2+45)
     
737. //          辅助.等待(500)
     
738. //          dm.RightClick()
     
739. //          跳出
     
740. //          如果结束
     
741. //      循环结束
     
742. //         
     
743. 
     
744. 
     
745. 
     
746.       intX,intY
     
747.       dm.FindColor(0,0,2000,2000, "ad0300-000000", 0.8, 0,intX,intY)  
     
748.       辅助.等待(2000)   
     
749.        如果(intX>0)
     
750.          辅助.消息框("找到颜色")
     
751.         如果结束
     
752.         dm.UnBindWindow()
     
753. return 0
     
754. 
     
755. 功能结束
     
756. 
     
757. 
     
758. 
     
759. 
     
760. 功能 开始_点击()
     
761. //这里添加你要执行的代码
     
762. //大唐无双多开自动打怪.test()
     
763. 大唐无双多开自动打怪.获取窗口()
     
764. 
     
765. 返回 真
     
766. //函数返回语句
     
767. 功能结束
     
768. 
     
769. 功能 退出_点击()
     
770. //这里添加你要执行的代码
     
771. 
     
772. 如果(c1==0)
     
773.      线程.关闭(线程句柄)
     
774.      辅助.等待(2000)
     
775. 否则
     
776.      循环(k>=0)
     
777.       // 辅助.消息框(转换.整型转字符型(线程句柄集[k]))
     
778.          线程.关闭(线程句柄集[k])
     
779.          辅助.等待(2000)
     
780.               k=k-1
     
781.      循环结束
     
782. 如果结束
     
783. 辅助.等待(20000)
     
784. 辅助.退出()
     
785. 返回 真
     
786. //函数返回语句
     
787. 功能结束
     
788. 
     
789. 功能 初始化()
     
790. //这里添加你要执行的代码
     
791. 
     
792. 是否注册成功=辅助.注册插件("rc:dm.dll",真)
     
793. 辅助.等待(1000)
     
794. 如果(!是否注册成功)
     
795.     辅助.消息框("大漠注册失败,请手动 注册！")
     
796. 如果结束
     
797. 
     
798. 选项卡.激活("选项卡0",0)
     
799. 下拉框.设置选项("技能攻击1",0)
     
800. 下拉框.设置选项("技能攻击2",0)
     
801. 下拉框.设置选项("技能攻击3",0)
     
802. 下拉框.设置选项("技能攻击4",0)
     
803. 下拉框.设置选项("技能攻击5",0)
     
804. 
     
805. 辅助.命令("www.tcmade.com",真)
     
806. 辅助.等待(1000)
     
807. 辅助.命令("http://bbs.tcmade.com/showtopic-7224.aspx",真)
     
808. 返回 真
     
809. 功能结束
     
810. 
     
811. 空间结束
     
812. //空间结束语句

复制代码

   

cylhb

附件没添加、。。。

tcmade888

没上传呀！

zengjunulpl

想问下，这个会被检测不？

tyuyan

回复 4楼zengjunulpl的帖子

:+ 暂时没有发现被封。

小西

:+哇,那么长啊,看完得花点时间哦

381555478

支持小西！~

qq06314488

不错,收藏,以后观摩

hyg1393040

搞网易，活腻歪了!

流冰

至今还是大漠创建失败不知道原因路过