Plugin daoju1 =DBSoft.GetColorXY(hwnd,1179,212,1196,229, "5D6DE4","30,30,30",2) Plugin daoju2 =DBSoft.GetColorXY(hwnd,1177,267,1204,281, "D29820","30,30,30",2) dj1=clng(daoju1(0)) dj2=clng(daoju2(0)) If dj1>0 and dj2>0 //使用道具1 2 Plugin Bkgnd.KeyPress(Hwnd, 97) Delay 200 Plugin Bkgnd.KeyPress(Hwnd, 98) Delay 200 Else //使用zxc Plugin Bkgnd.KeyPress(Hwnd, 90) Delay 200 Plugin Bkgnd.KeyPress(Hwnd, 88) Delay 200 Plugin Bkgnd.KeyPress(Hwnd, 67) Delay 200 EndIf Plugin Bkgnd.KeyPress(Hwnd, 38) Delay 100 Plugin Bkgnd.KeyPress(Hwnd, 38) Delay 20 Plugin Bkgnd.KeyPress(Hwnd, 38) Delay 20 Plugin Bkgnd.KeyPress(Hwnd, 38) Delay 20 Plugin Bkgnd.KeyPress(Hwnd, 38) Delay 20 Plugin Bkgnd.KeyPress(Hwnd, 38) Delay 20 Plugin Bkgnd.KeyPress(Hwnd, 38) Delay 20 Plugin Bkgnd.KeyPress(Hwnd, 38) Delay 20 Plugin Bkgnd.KeyPress(Hwnd, 38) Delay 20 Plugin Bkgnd.KeyPress(Hwnd, 38) Delay 20 If yanse=1 If HX-LX<=0 Plugin Bkgnd.KeyPress(Hwnd, 39) Delay 200 Plugin Bkgnd.KeyPress(Hwnd, 37) Delay 200 Plugin Bkgnd.KeyPress(Hwnd, 37) Delay 200 Plugin Bkgnd.KeyPress(Hwnd, 39) Delay 300 //找定点计算角度 角度数jds 角度差jdc Plugin zb=DBSoft.GetColorXY(hwnd,222,548,343,649,"0000FF","0,0,0",2) Delay 200 c=clng(zb(0)):d=clng(zb(1)) Plugin jiaodu=DBSoft.Angle3Point(c,d,294,597,c,597,1) jds=abs(clng(jiaodu)) dim jdcz(4),jdc(4) jdcz(0)=30-jds:jdcz(1)=50-jds:jdcz(2)=60-jds:jdcz(3)=65-jds:jdcz(4)=70-jds jdc(0)=abs(30-jds):jdc(1)=abs(50-jds):jdc(2)=abs(60-jds):jdc(3)=abs(65-jds):jdc(4)=abs(70-jds) //zx为最小下标 zxz为最小角度差数值 Plugin zx=DBSoft.MinNum(jdc,1) Plugin zxz=DBSoft.MinNum(jdcz,0) zx=clng(zx):zxz=clng(zxz) //角度差修正 pj=pj+jdxz*zxz // MessageBox "角度代号"&zx If zx=0 Plugin Bkgnd.KeyDown(Hwnd, 32) sj=ss(pj)/10*3500+tj Delay sj EndIf If zx=1 Plugin Bkgnd.KeyDown(Hwnd, 32) sj=ws(pj)/10*3500+tj Delay sj EndIf If zx=2 Plugin Bkgnd.KeyDown(Hwnd, 32) sj=ls(pj)/10*3500+tj Delay sj EndIf If zx=3 Plugin Bkgnd.KeyDown(Hwnd, 32) sj=lw(pj)/10*3500+tj Delay sj EndIf If zx=4 Plugin Bkgnd.KeyDown(Hwnd, 32) sj=qs(pj)/10*3500+tj Delay sj EndIf Plugin Bkgnd.KeyUp(Hwnd, 32) Else Plugin Bkgnd.KeyPress(Hwnd, 37) Delay 200 Plugin Bkgnd.KeyPress(Hwnd, 39) Delay 200 Plugin Bkgnd.KeyPress(Hwnd, 39) Delay 200 Plugin Bkgnd.KeyPress(Hwnd, 37) Delay 300