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

来自按键精灵的DNF刷第一图源码被虐疯了才憋出一个可以解恨的DNF刷图源码，源码内包含了换角色、改键、区域移动、地图选择、出售、封装识别。18个地图的一图（其他地图可以自己修改下就可以刷全部图的一图）主要是给新手学习的，老鸟别喷。附件在下面，做了很久了，随着游戏更新现在不一定能正常使用可以自己修改下：PutAttachment".\plugin","*.dll"UserVardtxz=DropList{"洛兰(1)":"0"|"洛兰深处(2)":"1"|"幽暗密林(3)":"2"|"雷鸣废墟(5)":"3"|"冰霜幽暗密林(8)":"4"|"烈焰格拉卡(12)":"5"|"龙人之塔(16)":"6"|"人偶玄关(18)":"7"|"石巨人塔(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"地图选择"UserVarbjfs=DropList{"机箱":"0"|"音响":"1"}=0"报警方式"UserVarjsgh=DropList{"更换":"0"|"不换":"1"}=0"角色更换"UserVarjssl=1"角色数量"UserVarjhks=1"几号开始"UserVarjtj1=0"进图按键"UserVarjtj2=0"进图按键"UserVarjtj3=0"进图按键"UserVarctj1=0"出图按键"UserVarctj2=0"出图按键"UserVarjqaj=0"捡取按键"UserVarcsaj=0"出售按键"Hwnd=Plugin.Window.Find(0,"地下城与勇士")CallPlugin.Window.Move(Hwnd,0,0)Delay1000Rem主程序Call选择角色()Call疲劳改键()Call移动区域()Call地图选择()Goto主程序Sub选择角色()Ifjsgh=0ThenIfColor210,440,"6B949C",0Thenjsx=117jsy=137Ifjhks<5ThenForjhks-1jsx=jsx+130NextElseForjhks-5jsx=jsx+130Nextjsy=jsy+185EndIfjhks=jhks+1MoveTojsx,jsyLeftClick1Delay1000MoveTo322,448LeftClick1ElseIfjhks>jsslThenCall报警提醒()EndIfFor3IfColor316,271,"484849",0ThenElseMoveTo39,434LeftClick1Delay300KeyPress"Esc",1Delay1000EndIfNextMoveTo316,344LeftClick3For30IfColor210,440,"6B949C",0ThenGoto主程序ElseDelay1000EndIfNextCall报警提醒()EndIfEndIfEndSubSub疲劳改键()For30IfColor40,400,"608A9D",0ThenFor3IfColor278,437,"F78C00",0ThenGoto疲劳改键ElseMoveTo39,434LeftClick1Delay300KeyPress"Esc",1Delay1000EndIfNextIfjsgh=1ThenCall报警提醒()EndIfGoto主程序ElseDelay1000EndIfNextCall报警提醒()Rem疲劳改键For3IfColor316,271,"484849",0ThenElseKeyPress"Esc",1Delay1000EndIfNextMoveTo315,317LeftClick3Delay1000MoveTo407,163LeftClick1Delay300KeyPress"W",1Delay300KeyPress"A",1Delay300KeyPress"S",1Delay300KeyPress"D",1Delay300MoveTo372,401LeftClick1Delay1000LeftClick1Delay1000For3IfColor566,38,"8DEDFF",0ThenElseMoveTo344,188LeftClick1Delay1000MoveTo404,240LeftClick1Delay1000EndIfNextMoveTo163,401LeftClick1Delay300Call出售物品()EndSubSub移动区域()KeyDown"S",1Delay8000KeyUp"S",1Delay300Ifdtxz<2ThenMoveTo400,360RightClick1Delay1000KeyDown"D",1zyj=1EndIfIfdtxz>1Anddtxz<6ThenKeyDown"S",1Delay300KeyDown"A",1Delay3500KeyUp"S",1zyj=0EndIfIfdtxz>5Anddtxz<11ThenKeyDown"D",1zyj=1EndIfIfdtxz>10Anddtxz<18ThenMoveTo20,90RightClick1Delay5000MoveTo280,380RightClick1Delay1000KeyDown"D",1zyj=1EndIfFor50IfColor573,428,"8DC5DD",0ThenGoto移动区域ElseDelay1000EndIfNextCall报警提醒()Rem移动区域Ifzyj=0ThenKeyUp"A",1ElseKeyUp"D",1EndIfDelay300EndSubSub地图选择()Ifdtxz=0Thendtx=147dty=389EndIfIfdtxz=1Thendtx=309dty=384EndIfIfdtxz=2Thendtx=147dty=389EndIfIfdtxz=3Thendtx=472dty=352EndIfIfdtxz=4Thendtx=123dty=305EndIfIfdtxz=5Thendtx=340dty=188EndIfIfdtxz=6Thendtx=130dty=376EndIfIfdtxz=7Thendtx=295dty=391EndIfIfdtxz=8Thendtx=441dty=331EndIfIfdtxz=9Thendtx=504dty=256EndIfIfdtxz=10Thendtx=366dty=181EndIfIfdtxz=11Thendtx=192dty=227EndIfIfdtxz=12Thendtx=340dty=188EndIfIfdtxz=13Thendtx=494dty=192EndIfIfdtxz=14Thendtx=518dty=269EndIfIfdtxz=15Thendtx=472dty=352EndIfIfdtxz=16Thendtx=309dty=384EndIfIfdtxz=17Thendtx=147dty=389EndIfcswp=0Rem地图选择Ifzyj=0ThenKeyDown"D",1Delay500KeyUp"D",1KeyDown"A",1ElseKeyDown"A",1Delay500KeyUp"A",1KeyDown"D",1EndIfFor30IfColor573,428,"8DC5DD",0ThenIfzyj=0ThenKeyUp"A",1ElseKeyUp"D",1EndIfDelay300For10IfColor573,428,"8DC5DD",0ThenKeyPress"D",3Delay300MoveTodtx,dtyLeftClick1Delay1000ElseCall地图内部()Goto地图选择EndIfNextDelay30000Goto主程序ElseDelay1000EndIfNextCall报警提醒()EndSubSub地图内部()For30IfColor40,400,"608A9D",0ThenKeyPress"Esc",3Delay300KeyPressjtj1,1Delay300KeyPressjtj2,1Delay300KeyPressjtj3,1Delay300For50IfColor582,49,"263C44",0ThenIfColor582,88,"102129",0ThenIfColor562,68,"102931",0ThenIfColor602,68,"102131",0ThenFor5KeyPress"X",1Delay300NextElseGoto地图内部EndIfElseGoto地图内部EndIfElseGoto地图内部EndIfElseGoto地图内部EndIfNextGoto地图内部ElseDelay1000EndIfNextCall报警提醒()Rem地图内部KeyPressctj1,1Delay300KeyPressctj2,1Delay300cswp=cswp+1Ifjqaj>0ThenFor10KeyPressjqaj,1Delay300NextEndIfIfcsaj>0ThenIfcswp>10ThenFor3IfColor566,38,"8DEDFF",0ThenElseKeyPress"I",1Delay1000EndIfNextKeyPresscsaj,1Delay300Call出售物品()cswp=0EndIfEndIfFor3IfColor316,271,"484849",0ThenElseKeyPress"Esc",1Delay1000EndIfNextMoveTo316,396LeftClick3Delay5000EndSubSub出售物品()MoveTo547,353LeftClick1Delay300MoveTo356,207LeftClick3Delay1000zby=234For2zbx=347For7MoveTozbx,zbyDelay500FindPic325,0,640,480,"Attachment:\金币.bmp",1,ux,uyIfux>0Anduy>0ThenFindPic325,0,640,480,"Attachment:\封装.bmp",1,ux,uyIfux>0Anduy>0ThenElseFindPic325,0,640,480,"Attachment:\无法.bmp",1,ux,uyIfux>0Anduy>0ThenElseLeftClick1Delay500