Import window.dll VBSBegin win=Window.Foreground() client=Window.GetClientRect(win) s=split(client,"|") qx=s(0) qy=s(1) zx=s(2) zy=s(3) VBSEnd dim ho,la,bh,bl,a,b,c,d,xa,ya,xb,yb,xc,yc,xd,yd,xe,ye,gj,m,n UserVar gj=DropList{是|否}=否 人物是否使用技能攻击 UserVar ho=50 血量<hong%时,自动吃红。 UserVar la=50 蓝量<lan%时,自动吃蓝。 UserVar bh=50 BB血量<hong%时,自动吃红。 UserVar bl=50 BB蓝量<lan%时,自动吃蓝。 a=qx+120+((206-120)*ho)/100 b=qx+120+((206-120)*la)/100 c=qx+97+((182-97)*bh)/100 d=qx+97+((182-97)*bl)/100 Rem 开始 Rem 看红 Rem 看蓝 Plugin Window.Active(win) Delay 32 //循环小延时,防止出现CPU使用率过高,脚本卡 VBSCall FindColorEx(120+qx,65+qy,206+qx,73+qy,"0c03ed",2,0.8,xa,ya) Delay 32 VBSCall FindColorEx(120+qx,83+qy,206+qx,91+qy,"e41c00",2,0.9,xb,yb) Delay 32 VBSCall FindColorEx(97+qx,127+qy,182+qx,134+qy,"0c03ed",2,0.8,xc,yc) Delay 32 VBSCall FindColorEx(97+qx,144+qy,182+qx,151+qy,"e41c00",2,0.9,xd,yd) Delay 32 Rem 人物加血 If xa<=a IfColor 759,10,a27c00,0 //如果有小地图 MoveTo 60+qx,37+qy Delay 500 KeyPress 112,1 Delay 500 LeftClick 1 Delay 2000 EndIf Delay 32 IfColor 628+qx,305+qy,205086,2 //战斗图标 MoveTo 60+qx,37+qy Delay 500 KeyPress 112,1 Delay 500 LeftClick 1 Delay 500 Rem 攻 Delay 500 KeyDown 18,1 KeyPress 65,1 KeyUp 18,1 EndIf Delay 32 EndIf Rem 人物加血结束 Delay 32 Rem 人物加蓝 If xb<=b IfColor 759+qx,10+qy,a27c00,0 //如果有小地图 MoveTo 60+qx,37+qy Delay 500 KeyPress 113,1 Delay 500 LeftClick 1 Delay 2000 EndIf Delay 32 IfColor 628+qx,305+qy,205086,2 //战斗图标 MoveTo 60+qx,37+qy Delay 500 KeyPress 113,1 Delay 500 LeftClick 1 Delay 1000 Rem 攻 Delay 500 KeyDown 18,1 KeyPress 65,1 KeyUp 18,1 EndIf Delay 32 EndIf Rem 人物加蓝结束 Delay 32 Rem bb加血 If xc<=c IfColor 145+qx,125+qy,90909,0 //BB技能栏 IfColor 759+qx,10+qy,a27c00,0 //如果有小地图