//下面这句是得到当前最前面的窗口句柄 UserVar xue = 80 红少于%加血 UserVar lzc = 80 蓝少于%加蓝 Plugin Hwnd = Window.Foreground() //下面这句是移动窗口到(0, 0)位置 Plugin Window.Move(Hwnd, 0, 0) Gosub 检查红蓝 Delay 1000 Rem 没找到 VBSCall Call FindPic(0,0,1023,767,"yj.bmp",0.8,x,y) If x>=0 and y>=0 MoveTo x y Delay 100 LeftClick 1 Else Goto 没找到 EndIf Delay 500 //////////////////////////////////////////////////////////////////////// VBSCall Call FindPic(0,0,1023,767,"yj1.bmp",0.8,x,y) If x>=0 and y>=0 MoveTo x y+40*3+10 Delay 100 LeftClick 1 Delay 500 LeftClick 1 Else EndIf Rem =============进入打怪================== //是TU就按ESC 取消自动 VBSCall Call FindPic(0,0,1023,767,"UT.bmp",0.8,x,y) If x>=0 and y>=0 KeyPress 27,1 Delay 100 KeyDown 18,1 Delay 10 KeyPress 68,1 Delay 10 KeyUp 18,1 Delay 500 KeyDown 18,1 Delay 10 KeyPress 68,1 Delay 10 KeyUp 18,1 //////////防 Else MoveTo 768,102 Delay 500 LeftClick 1 EndIf Rem 打怪延时 Delay 500 VBSCall Call FindPic(0,0,1023,767,"zd.bmp",0.8,x,y) If x>=0 and y>=0 Else MoveTo 768,102 Delay 500 LeftClick 1 EndIf IfColor 58,40,4038f8,0 Gosub 检查红蓝 Else Delay 1000 Goto 打怪延时 EndIf IfColor 58,53,f86008,0 Gosub 检查红蓝 Else EndIf Delay 1000 Goto 没找到 EndScript Sub 检查红蓝 //////////////////////////////// x1=58 y1=39 x2=118 y2=39 xuet=x2-x1 //xuet=60 i=xue/100*xuet u=i+58 Rem 回家血 IfColor u,39 4038f8 1 Goto 出去加红 Else EndIf Rem ====================以下为加蓝======================== x11=58 y22=51 x111=118 y222=52 ///////////////////////以上为坐标//////////////// lzco=x111-x11 //lzco=血总长 lanc=lzco/100*lzco //LANC=? lann=lanc+58 //LANN=蓝处始坐标