ElseIf KeJi=2 then
          Call FindPic(150,100,1100,650,"傲视天地\科技甲胄.bmp",0.9,intX,intY)
        ElseIf KeJi=3 then
          Call FindPic(150,100,1100,650,"傲视天地\科技侦察队.bmp",0.9,intX,intY)
        ElseIf KeJi=4 then
          Call FindPic(150,100,1100,650,"傲视天地\科技列队.bmp",0.9,intX,intY)
        ElseIf KeJi=5 then
          Call FindPic(150,100,1100,650,"傲视天地\科技雁行阵.bmp",0.9,intX,intY)
        ElseIf KeJi=5 then
          Call FindPic(150,100,1100,650,"傲视天地\科技战争檄文.bmp",0.9,intX,intY)
        End If
        MoveTo intX,intY
        Delay 500
        LeftClick 2  
        Delay 1500
        found=false:outi=0
        Call FindPic(150,100,1100,650,"傲视天地\按钮科技升级.bmp",0.9,intX,intY)
        While not found and outi<3
            If intX>0 and intY>0 then
                MoveTo intX,intY
                Delay 500
                LeftClick 2                    
                found=true
            End if
            If not found then
                Call FindPic(150,100,1100,650,"傲视天地\按钮科技升级.bmp",0.9,intX,intY)
                Delay 500
            end If
            outi=outi+1
        Wend
        Call FindPic(150,100,1100,650,"傲视天地\按钮训练界面关闭.bmp",0.9,intX,intY)
        If intX>0 and intY>0 then
           MoveTo intX,intY   //关闭科技界面  与训练界面的关闭按钮一致，直接调用
           Delay 1000
           LeftClick 2  
        End If
        
    End If    
End If  //科技界面结束
call 关闭错误提示窗口


If XunLian>0 Then  //训练界面
    Delay 50
   // If allx=1280 and ally=800 then   
    //   x=175:y=307
    //Else
   //    x=52:y=313
   // End If
    s1=InStr(XL1,",")
    If s1>0 Then
      x=int(Mid(XL1,1,s1-1)):y=int(Mid(XL1,s1+1))
    Else
      If allx=1280 and ally=800 then   
        x=175:y=307
      Else
        x=52:y=313
      End If
    End If
    If x>0 and y>0 Then
        //如果找到颜色
        Delay 100
        //延时100毫秒 
        //Call MessageBox("找到颜色"&"Cor("&s&") "&"坐标为:"&x&","&y)
        //弹出窗口 找到颜色和坐标
        MoveTo x,y
        Delay 500
        LeftClick 1
        Delay 1000
        found=false:outi=0
        If allx=1280 and ally=800 then 
           Call FindPic(150,100,1100,650,"傲视天地\窗口标示训练界面.bmp",0.9,intX,intY)
        Else
           Call FindPic(150,100,1100,650,"傲视天地\窗口标示训练界面.bmp",0.9,intX,intY)
        End If
        While not found and outi<3
            If intX>0 and intY>0 then                  
                found=true
            End if
            If not found then    
                s1=InStr(XL1,",")
                If s1>0 Then
                  x=int(Mid(XL1,1,s1-1)):y=int(Mid(XL1,s1+1))
                Else
                  If allx=1280 and ally=800 then   
                    x=175:y=307
                  Else
                    x=52:y=313
                  End If
                End If
                
                MoveTo x,y   
                Delay 500             
                LeftClick 1
                Delay 2000            
                Call FindPic(150,100,1100,650,"傲视天地\窗口标示训练界面.bmp",0.9,intX,intY)
                Delay 500                
            end If
            outi=outi+1
        Wend