来自按键精灵的DNF刷第一图源码.docx

1、来自按键精灵的DNF刷第一图源码被虐疯了才憋出一个可以解恨的DNF刷图源码，源码内包含了换角色、 改键、 区域移动 、地图选择、 出售、 封装识别 。18个地图的一图 （其他地图可以自己修改下就可以刷全部图的一图）主要是给新手学习的， 老鸟别喷 。附件在下面 ，做了很久了， 随着游戏更新现在不一定能正常使用可以自己修改下：PutAttachment .plugin ,*.dllUserVar dtxz=DropList洛兰(1):0|洛兰深处(2):1|幽暗密林(3):2|雷鸣废墟(5):3|冰霜幽暗密林(8):4|烈焰格拉卡(12):5|龙人之塔(16):6|人偶玄关(18):7|石巨人塔(

2、20):8|黑暗玄廊(22):9|城主宫殿(25):10|神殿外围(27):11|树精丛林(28):12|炼狱(29):13|极昼(30):14|第一脊椎(32):15|第二脊椎(34):16|天帷禁地(36):17|():5|():5|():5|():5|():5|():5|():5|():5=0 地图选择UserVar bjfs=DropList机箱:0|音响:1=0 报警方式UserVar jsgh=DropList更换:0|不换:1=0 角色更换UserVar jssl=1 角色数量UserVar jhks=1 几号开始UserVar jtj1=0 进图按键UserVar jtj2=0

3、 进图按键UserVar jtj3=0 进图按键UserVar ctj1=0 出图按键UserVar ctj2=0 出图按键UserVar jqaj=0 捡取按键UserVar csaj=0 出售按键Hwnd = Plugin.Window.Find(0, 地下城与勇士)Call Plugin.Window.Move(Hwnd, 0, 0)Delay 1000Rem 主程序Call 选择角色()Call 疲劳改键()Call 移动区域()Call 地图选择()Goto 主程序Sub 选择角色() If jsgh=0 Then IfColor 210,440,6B949C,0 Then jsx=

4、117 jsy=137 If jhksjssl Then Call 报警提醒() End If For 3 IfColor 316,271,484849,0 Then Else MoveTo 39, 434 LeftClick 1 Delay 300 KeyPress Esc, 1 Delay 1000 End If Next MoveTo 316, 344 LeftClick 3 For 30 IfColor 210,440,6B949C,0 Then Goto 主程序 Else Delay 1000 End If Next Call 报警提醒() End If End IfEnd SubS

5、ub 疲劳改键() For 30 IfColor 40,400,608A9D,0 Then For 3 IfColor 278,437,F78C00,0 Then Goto 疲劳改键 Else MoveTo 39, 434 LeftClick 1 Delay 300 KeyPress Esc, 1 Delay 1000 End If Next If jsgh=1 Then Call 报警提醒() End If Goto 主程序 Else Delay 1000 End If Next Call 报警提醒() Rem 疲劳改键 For 3 IfColor 316,271,484849,0 Then

6、 Else KeyPress Esc, 1 Delay 1000 End If Next MoveTo 315, 317 LeftClick 3 Delay 1000 MoveTo 407, 163 LeftClick 1 Delay 300 KeyPress W, 1 Delay 300 KeyPress A, 1 Delay 300 KeyPress S, 1 Delay 300 KeyPress D, 1 Delay 300 MoveTo 372, 401 LeftClick 1 Delay 1000 LeftClick 1 Delay 1000 For 3 IfColor 566,38

7、,8DEDFF,0 Then Else MoveTo 344, 188 LeftClick 1 Delay 1000 MoveTo 404, 240 LeftClick 1 Delay 1000 End If Next MoveTo 163, 401 LeftClick 1 Delay 300 Call 出售物品()End SubSub 移动区域() KeyDown S, 1 Delay 8000 KeyUp S, 1 Delay 300 If dtxz1 And dtxz5 And dtxz10 And dtxz0 Then For 10 KeyPress jqaj, 1 Delay 300

8、 Next End If If csaj0 Then If cswp10 Then For 3 IfColor 566,38,8DEDFF,0 Then Else KeyPress I, 1 Delay 1000 End If Next KeyPress csaj, 1 Delay 300 Call 出售物品() cswp=0 End If End If For 3 IfColor 316,271,484849,0 Then Else KeyPress Esc, 1 Delay 1000 End If Next MoveTo 316, 396 LeftClick 3 Delay 5000End

9、 SubSub 出售物品() MoveTo 547, 353 LeftClick 1 Delay 300 MoveTo 356, 207 LeftClick 3 Delay 1000 zby=234 For 2 zbx=347 For 7 MoveTo zbx, zby Delay 500 FindPic 325,0,640,480,Attachment:金币.bmp,1,ux,uy If ux 0 And uy 0 Then FindPic 325,0,640,480,Attachment:封装.bmp,1,ux,uy If ux 0 And uy 0 Then Else FindPic 3

10、25,0,640,480,Attachment:无法.bmp,1,ux,uy If ux 0 And uy 0 Then Else LeftClick 1 Delay 500 LeftClick 1 Delay 500 End If End If Else FindPic 325,0,640,480,Attachment:无法.bmp,1,ux,uy If ux 0 And uy 0 Then Else Goto 出售物品 End If End If zbx=zbx+30 Next zby=zby+30 Next Rem 出售物品 MoveTo 403, 207 LeftClick 3 Del

11、ay 1000 FindPic 0,0,640,480,Attachment:魔盒.bmp,0.9,ux,uy If ux 0 And uy 0 Then MoveTo ux+6, uy+12 LeftClick 1 Delay 500 LeftClick 1 Delay 500 LeftClick 1 End If Delay 300 KeyPress Esc, 1 Delay 300End SubSub 报警提醒() Rem 报警提醒 If bjfs=0 Then For 2 Beep Delay 1000 Next End if If bjfs=1 Then Path = Plugin.Sys.GetDir(0) Path=Path & W.wav Call Plugin.Media.Play(Path) Delay 2000 End if Goto 报警提醒End Sub