Call Plugin.Bkgnd.LeftClick(Hwnd, 824, 426)
            Delay 500
        End If
        If kj63=1 Then
            Call Plugin.Bkgnd.LeftClick(Hwnd, 600, 400)
            Delay 500
            Call Plugin.Bkgnd.LeftClick(Hwnd, 824, 426)
            Delay 500
        End If
        //关闭科技界面
        Call Plugin.Bkgnd.LeftClick(Hwnd, 899, 133)
    End If
End Sub
Sub 武将训练()
    //检测武将训练是否有空位
    color_xl = Plugin.Bkgnd.GetPixelColor(Hwnd,15,173)
    If color_xl = "00FF00" Then 
        //有空位则进入训练界面，开始训练
        Call Plugin.Bkgnd.LeftClick(Hwnd, 15, 173)
        Delay 1000
        If xl11=1 Then
            Call Plugin.Bkgnd.LeftClick(Hwnd, 375, 165)
            Delay 500
            Call 开始训练()
            Delay 500
        End If
        If xl12=1 Then
            Call Plugin.Bkgnd.LeftClick(Hwnd, 445, 165)
            Delay 500
            Call 开始训练()
            Delay 500
        End If
        If xl13=1 Then
            Call Plugin.Bkgnd.LeftClick(Hwnd, 515, 165)
            Delay 500
            Call 开始训练()
            Delay 500
        End If
        If xl21=1 Then
            Call Plugin.Bkgnd.LeftClick(Hwnd, 375, 255)
            Delay 500
            Call 开始训练()
            Delay 500
        End If
        If xl22=1 Then
            Call Plugin.Bkgnd.LeftClick(Hwnd, 445, 255)
            Delay 500
            Call 开始训练()
            Delay 500
        End If
        If xl23=1 Then
            Call Plugin.Bkgnd.LeftClick(Hwnd, 515, 255)
            Delay 500
            Call 开始训练()
            Delay 500
        End If
        If xl31=1 Then
            Call Plugin.Bkgnd.LeftClick(Hwnd, 375, 345)
            Delay 500
            Call 开始训练()
            Delay 500
        End If
        If xl32=1 Then
            Call Plugin.Bkgnd.LeftClick(Hwnd, 445, 345)
            Delay 500
            Call 开始训练()
            Delay 500
        End If
        If xl33=1 Then
            Call Plugin.Bkgnd.LeftClick(Hwnd, 515, 345)
            Delay 500
            Call 开始训练()
            Delay 500
        End If
        If xl41=1 Then
            Call Plugin.Bkgnd.LeftClick(Hwnd, 375, 435)
            Delay 500
            Call 开始训练()
            Delay 500
        End If
        If xl42=1 Then
            Call Plugin.Bkgnd.LeftClick(Hwnd, 445, 435)
            Delay 500
            Call 开始训练()
            Delay 500
        End If
        If xl43=1 Then
            Call Plugin.Bkgnd.LeftClick(Hwnd, 515, 435)
            Delay 500
            Call 开始训练()
            Delay 500
        End If
        //训练结束，关闭训练窗口
        Call Plugin.Bkgnd.LeftClick(Hwnd, 952, 68)
        Delay 1000
    End If
End Sub
Sub 跑商()
    Delay 1000
    //检测商队是否还有次数