//找定点计算角度 角度数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