Simone机战按键精灵近战挂机脚本，在教教我怎么用。我不懂按键精灵
的有关信息介绍如下：
我刚玩没几天 复制一个给你 希望有用~~~~~~~~~ 1.首先要选择职业 0近战 1远战 2.要把显示人物名字的选项关闭 3.可以使用带加PW的4号核心 4.脚本支持两个技能 放的时候最好一个用PW的 一个用EN的 5.XP技能从右到左1,2,3 根据喜好自己修改用哪种XP 默认1 6.F1红 F2 F3技能 F8回城卷 7.最好关闭与按键无关的其他软件 避免出现游戏变卡 影响脚本正常运行 //F1红 F2 F3技能 F8回城卷 VBS dim hp,m,n,a,b,c,d,e,f,g,h,i,j,k,l,q,r VBS dim zhiye,zidongzhaoguai,zidongjianwu,xp VBS m=85:n=10 VBS a="":b="":e="":f="":g="":h="":i="":j="":k="":l="":q="":r="" VBS c=0:d=0 VBS dim jn1,jn2 VBS jn1=0:jn2=0 UserVar zhiye=1 选择职业 0近战 1远战 UserVar hp=50 红量<%多少时,补红 UserVar zidongzhaoguai=1 0定点刷怪 1自动刷怪 UserVar zidongjianwu=1 0不自动捡物 1自动捡物 UserVar xp=1 选择使用哪种XP技能,从右到左1,2,3 Rem 机战 Gosub 找怪 Gosub 攻击怪 Gosub 补红 Gosub 捡钱 Gosub 捡熟练度 Gosub 捡流星 Gosub 捡粉红水晶 Gosub 捡蓝水晶x Gosub 捡聚态水晶 Gosub 检测xp Gosub 无弹回城 Gosub 拒绝交易 Gosub 同意组队 Gosub 关闭推荐任务 Gosub 关闭导师界面 Delay 32 Goto 机战 Sub 找怪 If zidongzhaoguai=1 VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y) If x<0 and y<0 Delay 32 VBS c=c+1 If c>4 Delay 225 MoveTo 510 500 LeftClick 1 Gosub 快速找怪 VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y) If x<0 and y<0 Delay 520 MoveTo 100 330 LeftClick 1 Gosub 快速找怪 VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y) If x<0 and y<0 Delay 520 MoveTo 510 200 LeftClick 1 Gosub 快速找怪 VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y) If x<0 and y<0 Delay 520 MoveTo 920 330 LeftClick 1 Gosub 快速找怪 EndIf EndIf EndIf EndIf EndIf EndIf Return Sub 攻击怪 VBSCall FindColorEx(479,49,922,399,"303b8",1,0.8,x,y) If x>=0 and y>=0 VBS c=0 MoveTo x-20 y+20 LeftClick 1 Delay 32 Gosub 攻击 VBSCall FindColorEx(479,339,922,650,"303b8",1,0.8,x,y) If x>=0 and y>=0 VBS c=0 MoveTo x-20 y-20 LeftClick 1 Delay 32 Gosub 攻击 VBSCall FindColorEx(99,339,479,658,"303b8",1,0.8,x,y) If x>=0 and y>=0 VBS c=0 MoveTo x+20 y-20 LeftClick 1 Delay 32 Gosub 攻击 VBSCall FindColorEx(83,85,479,399,"303b8",1,0.8,x,y) If x>=0 and y>=0 VBS c=0 MoveTo x+20 y+20 LeftClick 1 Delay 32 Gosub 攻击 EndIf EndIf EndIf EndIf Return Sub 攻击 VBSCall FindColorEx(35,100,920,510,"303b8",1,0.8,x,y) If x>=0 and y>=0 MoveTo x+n y+m RightClick 1 Gosub 技能1 Gosub 技能2 Else VBSCall FindColorEx(35,100,920,510,"303b8",1,0.8,x,y) If x>=0 and y>=0 MoveTo x+n y+m-n RightClick 1 EndIf EndIf Return Sub 快速找怪 VBSCall FindColorEx(313,10,315,12,"0",1,0.8,x,y) If x<0 and y<0 KeyDown 17 1 LeftClick 1 KeyUp 17 1 EndIf Return Sub 技能1 IfColor 139 45 ae21 2 Delay 32 VBS jn1=jn1+1 If jn1>=4 KeyPress 113 1 VBS jn1=0 EndIf EndIf Return Sub 技能2 IfColor 139 45 ae21 2 Delay 32 VBS jn2=jn2+1 If jn2>=8 KeyPress 114 1 VBS jn2=0 EndIf EndIf Return Sub 补红 IfColor hp*1.13+121 31 313033 2 KeyPress 112 1 EndIf Return Sub 捡钱 If zidongjianwu=1 VBSCall FindColorEx(35,100,920,520,"45b0c9",1,0.8,x1,y1) If x1>=0 and y1>=0 VBS a=x1:b=y1 VBSCall FindColorEx(a+5,b-50,a+45,b-30,"ffff",1,0.8,x2,y2) If x2>=0 and y2>=0 MoveTo a b Delay 32 LeftClick 1 VBS a="":b="" EndIf EndIf EndIf Return Sub 捡熟练度 If zidongjianwu=1 VBSCall FindColorEx(35,100,920,520,"ad497f",1,0.8,x1,y1) If x1>=0 and y1>=0 VBS e=x1:f=y1 VBSCall FindColorEx(e+5,f-50,e+45,f-30,"ffff",1,0.8,x2,y2) If x2>=0 and y2>=0 MoveTo e f Delay 32 LeftClick 1 VBS e="":f="" EndIf EndIf EndIf Return Sub 捡流星 If zidongjianwu=1 VBSCall FindColorEx(35,100,920,520,"106d21",1,0.8,x1,y1) If x1>=0 and y1>=0 VBS g=x1:h=y1 VBSCall FindColorEx(g-5,h-25,g+45,h-5,"ffff",1,0.8,x2,y2) If x2>=0 and y2>=0 MoveTo g h Delay 32 LeftClick 1 VBS g="":h="" EndIf EndIf EndIf Return Sub 捡粉红水晶 If zidongjianwu=1 VBSCall FindColorEx(35,100,920,520,"8b16ab",1,0.8,x1,y1) If x1>=0 and y1>=0 VBS i=x1:j=y1 VBSCall FindColorEx(i-5,j-30,i+45,j-10,"ffff",1,0.8,x2,y2) If x2>=0 and y2>=0 MoveTo i j Delay 32 LeftClick 1 VBS i="":j="" EndIf EndIf EndIf Return Sub 捡蓝水晶 If zidongjianwu=1 VBSCall FindColorEx(35,100,920,520,"ffb783",1,0.8,x1,y1) If x1>=0 and y1>=0 VBS k=x1:l=y1 VBSCall FindColorEx(k-5,l-45,k+45,l-8,"ffff",1,0.8,x2,y2) If x2>=0 and y2>=0 MoveTo k l Delay 32 LeftClick 1 VBS k="":l="" EndIf EndIf EndIf Return Sub 捡聚态水晶 If zidongjianwu=1 VBSCall FindColorEx(35,100,920,520,"94f729",1,0.8,x1,y1) If x1>=0 and y1>=0 VBS q=x1:r=y1 VBSCall FindColorEx(q-5,r-30,q+5,r-20,"ffff",1,0.8,x2,y2) If x2>=0 and y2>=0 MoveTo g h Delay 32 LeftClick 1 VBS q="":r="" EndIf EndIf EndIf Return Sub 检测xp VBSCall FindColorEx(800,500,900,550,"cdb886",1,0.8,x,y) If x>=0 and y>=0 Gosub xp1 Gosub xp2 Gosub xp3 EndIf Return Sub xp1 If xp=1 MoveTo 935 540 Delay 32 LeftClick 1 EndIf Return Sub xp2 If xp=2 MoveTo 881 547 Delay 32 LeftClick 1 EndIf Return Sub xp3 If xp=3 MoveTo 812 551 Delay 32 LeftClick 1 EndIf Return Sub 无弹回城 If zhiye=1 VBSCall FindColorEx(575,6,580,10,"101010",1,0.8,x,y) If x<0 and y<0 Delay 32 VBS d=d+1 If d=6 KeyPress 119 1 EndIf EndIf EndIf Return Sub 拒绝交易 VBSCall FindColorEx(133,312,135,314,"ffffff",1,0.8,x1,y1) VBSCall FindColorEx(311,389,313,391,"916e23",1,0.8,x2,y2) VBSCall FindColorEx(326,233,328,235,"8b6ff",1,0.8,x3,y3) If x1>=0 and y1>=0 and x2>=0 and y2>=0 and x3>=0 and y3>=0 MoveTo 312 390 Delay 32 LeftClick 1 EndIf Return Sub 同意组队 VBSCall FindColorEx(270,232,275,238,"c7ff",1,0.8,x1,y1) VBSCall FindColorEx(220,393,225,396,"aeff",1,0.8,x2,y2) If x1>=0 and y1>=0 and x2>=0 and y2>=0 MoveTo 223 394 Delay 32 LeftClick 1 EndIf Return Sub 关闭推荐任务 VBSCall FindColorEx(905,236,907,238,"c7ff",1,0.8,x1,y1) VBSCall FindColorEx(605,234,607,236,"c3ff",1,0.8,x2,y2) If x1>=0 and y1>=0 and x2>=0 and y2>=0 MoveTo 906 237 Delay 32 LeftClick 1 EndIf Return Sub 关闭导师界面 VBSCall FindColorEx(269,180,271,182,"c3f7",1,0.8,x1,y1) VBSCall FindColorEx(276,175,278,177,"dec7b5",1,0.8,x2,y2) If x1>=0 and y1>=0 and x2>=0 and y2>=0 MoveTo 270 181 Delay 32 LeftClick 1 EndIf Return
