机战按键精灵近战挂机脚本，在教教我怎么用。我不懂按键精灵
回答数：1　|　 提问时间： 14:52:40
可以，你学习下　1.首先要选择职业0近战1远战　　2.要把显示人物名字的选项关闭　　3.可以使用带加PW的4号核心　　4.脚本支持两个技能放的时候最好一个用PW的一个用EN的　　5.XP技能从右到左1,2,3根据喜好自己修改用哪种XP默认1　　6.F1红F2F3技能F8回城卷　　7.最好关闭与按键无关的其他软件避免出现游戏变卡影响脚本正常运行　　//F1红F2F3技能F8回城卷　　VBSdimhp,m,n,a,b,c,d,e,f,g,h,i,j,k,l,q,r　　VBSdimzhiye,zidongzhaoguai,zidongjianwu,xp　　VBSm=85:n=10　　VBSa="":b="":e="":f="":g="":h="":i="":j="":k="":l="":q="":r=""　　VBSc=0:d=0　　VBSdimjn1,jn2　　VBSjn1=0:jn2=0　　UserVarzhiye=1选择职业0近战1远战　　UserVarhp=50红量<%多少时,补红　　UserVarzidongzhaoguai=10定点刷怪1自动刷怪　　UserVarzidongjianwu=10不自动捡物1自动捡物　　UserVarxp=1选择使用哪种XP技能,从右到左1,2,3　　Rem机战　　Gosub找怪　　Gosub攻击怪　　Gosub补红　　Gosub捡钱　　Gosub捡熟练度　　Gosub捡流星　　Gosub捡粉红水晶　　Gosub捡蓝水晶x　　Gosub捡聚态水晶　　Gosub检测xp　　Gosub无弹回城　　Gosub拒绝交易　　Gosub同意组队　　Gosub关闭推荐任务　　Gosub关闭导师界面　　Delay32　　Goto机战　　Sub找怪　　Ifzidongzhaoguai=1　　VBSCallFindColorEx(85,140,855,480,"303b8",1,0.8,x,y)　　Ifx<0andy4　　Delay225　　MoveTo510500　　LeftClick1　　Gosub快速找怪　　VBSCallFindColorEx(85,140,855,480,"303b8",1,0.8,x,y)　　Ifx<0andy<0　　Delay520　　MoveTo100330　　LeftClick1　　Gosub快速找怪　　VBSCallFindColorEx(85,140,855,480,"303b8",1,0.8,x,y)　　Ifx<0andy<0　　Delay520　　MoveTo510200　　LeftClick1　　Gosub快速找怪　　VBSCallFindColorEx(85,140,855,480,"303b8",1,0.8,x,y)　　Ifx<0andy=0andy>=0　　VBSc=0　　MoveTox-20y+20　　LeftClick1　　Delay32　　Gosub攻击　　VBSCallFindColorEx(479,339,922,650,"303b8",1,0.8,x,y)　　Ifx>=0andy>=0　　VBSc=0　　MoveTox-20y-20　　LeftClick1　　Delay32　　Gosub攻击　　VBSCallFindColorEx(99,339,479,658,"303b8",1,0.8,x,y)　　Ifx>=0andy>=0　　VBSc=0　　MoveTox+20y-20　　LeftClick1　　Delay32　　Gosub攻击　　VBSCallFindColorEx(83,85,479,399,"303b8",1,0.8,x,y)　　Ifx>=0andy>=0　　VBSc=0　　MoveTox+20y+20　　LeftClick1　　Delay32　　Gosub攻击　　EndIf　　EndIf　　EndIf　　EndIf　　Return　　Sub攻击　　VBSCallFindColorEx(35,100,920,510,"303b8",1,0.8,x,y)　　Ifx>=0andy>=0　　MoveTox+ny+m　　RightClick1　　Gosub技能1　　Gosub技能2　　Else　　VBSCallFindColorEx(35,100,920,510,"303b8",1,0.8,x,y)　　Ifx>=0andy>=0　　MoveTox+ny+m-n　　RightClick1　　EndIf　　EndIf　　Return　　Sub快速找怪　　VBSCallFindColorEx(313,10,315,12,"0",1,0.8,x,y)　　Ifx<0andy=4　　KeyPress1131　　VBSjn1=0　　EndIf　　EndIf　　Return　　Sub技能2　　IfColor1　　Delay32　　VBSjn2=jn2+1　　Ifjn2>=8　　KeyPress1141　　VBSjn2=0　　EndIf　　EndIf　　Return　　Sub补红　　IfColorhp*1.13+　　KeyPress1121　　EndIf　　Return　　Sub捡钱　　Ifzidongjianwu=1　　VBSCallFindColorEx(35,100,920,520,"45b0c9",1,0.8,x1,y1)　　Ifx1>=0andy1>=0　　VBSa=x1:b=y1　　VBSCallFindColorEx(a+5,b-50,a+45,b-30,"ffff",1,0.8,x2,y2)　　Ifx2>=0andy2>=0　　MoveToab　　Delay32　　LeftClick1　　VBSa="":b=""　　EndIf　　EndIf　　EndIf　　Return　　Sub捡熟练度　　Ifzidongjianwu=1　　VBSCallFindColorEx(35,100,920,520,"ad497f",1,0.8,x1,y1)　　Ifx1>=0andy1>=0　　VBSe=x1:f=y1　　VBSCallFindColorEx(e+5,f-50,e+45,f-30,"ffff",1,0.8,x2,y2)　　Ifx2>=0andy2>=0　　MoveToef　　Delay32　　LeftClick1　　VBSe="":f=""　　EndIf　　EndIf　　EndIf　　Return　　Sub捡流星　　Ifzidongjianwu=1　　VBSCallFindColorEx(35,100,920,520,"106d21",1,0.8,x1,y1)　　Ifx1>=0andy1>=0　　VBSg=x1:h=y1　　VBSCallFindColorEx(g-5,h-25,g+45,h-5,"ffff",1,0.8,x2,y2)　　Ifx2>=0andy2>=0　　MoveTogh　　Delay32　　LeftClick1　　VBSg="":h=""　　EndIf　　EndIf　　EndIf　　Return　　Sub捡粉红水晶　　Ifzidongjianwu=1　　VBSCallFindColorEx(35,100,920,520,"8b16ab",1,0.8,x1,y1)　　Ifx1>=0andy1>=0　　VBSi=x1:j=y1　　VBSCallFindColorEx(i-5,j-30,i+45,j-10,"ffff",1,0.8,x2,y2)　　Ifx2>=0andy2>=0　　MoveToij　　Delay32　　LeftClick1　　VBSi="":j=""　　EndIf　　EndIf　　EndIf　　Return　　Sub捡蓝水晶　　Ifzidongjianwu=1　　VBSCallFindColorEx(35,100,920,520,"ffb783",1,0.8,x1,y1)　　Ifx1>=0andy1>=0　　VBSk=x1:l=y1　　VBSCallFindColorEx(k-5,l-45,k+45,l-8,"ffff",1,0.8,x2,y2)　　Ifx2>=0andy2>=0　　MoveTokl　　Delay32　　LeftClick1　　VBSk="":l=""　　EndIf　　EndIf　　EndIf　　Return　　Sub捡聚态水晶　　Ifzidongjianwu=1　　VBSCallFindColorEx(35,100,920,520,"94f729",1,0.8,x1,y1)　　Ifx1>=0andy1>=0　　VBSq=x1:r=y1　　VBSCallFindColorEx(q-5,r-30,q+5,r-20,"ffff",1,0.8,x2,y2)　　Ifx2>=0andy2>=0　　MoveTogh　　Delay32　　LeftClick1　　VBSq="":r=""　　EndIf　　EndIf　　EndIf　　Return　　Sub检测xp　　VBSCallFindColorEx(800,500,900,550,"cdb886",1,0.8,x,y)　　Ifx>=0andy>=0　　Gosubxp1　　Gosubxp2　　Gosubxp3　　EndIf　　Return　　Subxp1　　Ifxp=1　　MoveTo935540　　Delay32　　LeftClick1　　EndIf　　Return　　Subxp2　　Ifxp=2　　MoveTo881547　　Delay32　　LeftClick1　　EndIf　　Return　　Subxp3　　Ifxp=3　　MoveTo812551　　Delay32　　LeftClick1　　EndIf　　Return　　Sub无弹回城　　Ifzhiye=1　　VBSCallFindColorEx(575,6,580,10,",0.8,x,y)　　Ifx<0andy=0andy1>=0andx2>=0andy2>=0andx3>=0andy3>=0　　MoveTo312390　　Delay32　　LeftClick1　　EndIf　　Return　　Sub同意组队　　VBSCallFindColorEx(270,232,275,238,"c7ff",1,0.8,x1,y1)　　VBSCallFindColorEx(220,393,225,396,"aeff",1,0.8,x2,y2)　　Ifx1>=0andy1>=0andx2>=0andy2>=0　　MoveTo223394　　Delay32　　LeftClick1　　EndIf　　Return　　Sub关闭推荐任务　　VBSCallFindColorEx(905,236,907,238,"c7ff",1,0.8,x1,y1)　　VBSCallFindColorEx(605,234,607,236,"c3ff",1,0.8,x2,y2)　　Ifx1>=0andy1>=0andx2>=0andy2>=0　　MoveTo906237　　Delay32　　LeftClick1　　EndIf　　Return　　Sub关闭导师界面　　VBSCallFindColorEx(269,180,271,182,"c3f7",1,0.8,x1,y1)　　VBSCallFindColorEx(276,175,278,177,"dec7b5",1,0.8,x2,y2)　　Ifx1>=0andy1>=0andx2>=0andy2>=0　　MoveTo270181　　Delay32　　LeftClick1　　EndIf　　Return
可输入10000个汉字
上传图片：
[经验值&50可以上传图片]
可输入50个汉字
同类未解决问题
同类已解决问题