//找定点计算角度 角度数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) EndIf Else If LX-HX<=0 Plugin Bkgnd.KeyPress(Hwnd, 39) Delay 200 // MessageBox "向右" Plugin Bkgnd.KeyPress(Hwnd, 37) Delay 200 // MessageBox "向左" Plugin Bkgnd.KeyPress(Hwnd, 37) Delay 200 // MessageBox "向左" Plugin Bkgnd.KeyPress(Hwnd, 39) Delay 300 // MessageBox "向右" //找定点计算角度 角度数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