可以，你学习下 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<0andy<0 Delay32 VBSc=c+1 Ifc>4 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<0 Delay520 MoveTo920330 LeftClick1 Gosub快速找怪 EndIf EndIf EndIf EndIf EndIf EndIf Return Sub攻击怪 VBSCallFindColorEx(479,49,922,399,"303b8",1,0.8,x,y) Ifx>=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<0 KeyDown171 LeftClick1 KeyUp171 EndIf Return Sub技能1 IfColor13945ae212 Delay32 VBSjn1=jn1+1 Ifjn1>=4 KeyPress1131 VBSjn1=0 EndIf EndIf Return Sub技能2 IfColor13945ae212 Delay32 VBSjn2=jn2+1 Ifjn2>=8 KeyPress1141 VBSjn2=0 EndIf EndIf Return Sub补红 IfColorhp*1.13+121313130332 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,"101010",1,0.8,x,y) Ifx<0andy<0 Delay32 VBSd=d+1 Ifd=6 KeyPress1191 EndIf EndIf EndIf Return Sub拒绝交易 VBSCallFindColorEx(133,312,135,314,"ffffff",1,0.8,x1,y1) VBSCallFindColorEx(311,389,313,391,"916e23",1,0.8,x2,y2) VBSCallFindColorEx(326,233,328,235,"8b6ff",1,0.8,x3,y3) Ifx1>=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