IsError = False
                    Exit Do
                Else 
                    Call MyDelay()
                    If IsTimeout > 20 Then //超时 10s
                        Exit Do
                    End If             
                End If
            Loop
            //修改兵源数量
            IsTimeout = 0
            Do While True
                FindPic 0,0,1024,768, "Attachment:\数量.bmp", 0.9, intX, intY
                If intX > 0 And intY > 0 Then 
                    LockMouse
                    MoveTo intX+5, intY+2
                    Delay 50
                    LeftDoubleClick 1
                    Delay 50
                    KeyPress "1", 1
                    Delay 50
                    UnlockMouse
                    IsError = False
                    Exit Do
                Else 
                    Call MyDelay()
                    If IsTimeout > 20 Then //超时 10s
                        Exit Do
                    End If             
                End If
            Loop
            //确定修改
            IsTimeout = 0
            Do While True
                FindPic 0,0,1024,768, "Attachment:\确定.bmp", 0.9, intX, intY
                If intX > 0 And intY > 0 Then 
                    MouseClick intX,intY,1
                    IsError = False
                    Exit Do
                Else 
                    Call MyDelay()
                    If IsTimeout > 20 Then //超时 10s
                        Exit Do
                    End If 
                End If
            Loop
            //出征
            IsTimeout = 0
            Do While True     
                FindPic 0,0,1024,768, "Attachment:\出征.bmp", 0.9, intX, intY
                If intX > 0 And intY > 0 Then 
                    MouseClick intX,intY,1
                    IsError = False
                    Exit Do
                Else 
                    Call MyDelay()
                    If IsTimeout > 20 Then //超时 10s
                        Exit Do
                    End If                
                End If
            Loop
            //选择出征目标输入框
            IsTimeout = 0
            Do While True  //选择功击目标
                FindPic 6,300,95,768, "Attachment:\请选择.bmp", 0.9, intX, intY
                If intX > 0 And intY > 0 Then 
                    MouseClick intX,intY,1
                    IsError = False
                    Exit Do
                Else 
                    Call MyDelay()
                    If IsTimeout > 20 Then //超时 10s
                        Exit Do
                    End If            
                End If
            Loop	        
            //选择目标(标记第一行)
            IsTimeout = 0
            Do While True
                FindPic 0,0,1024,768, "Attachment:\标记.bmp", 0.9, intX, intY
                If intX > 0 And intY > 0 Then 
                    LockMouse
                    MoveTo intX, intY
                    Delay 50
                    LeftClick 1
                    Delay 50
                    MoveTo 172, 193
                    Delay 50
                    LeftDoubleClick 1
                    Delay 50
                    UnlockMouse
                    IsError = False
                    Exit Do
                Else 
                    Call MyDelay()
                    If IsTimeout > 20 Then //超时 10s
                        Exit Do
                    End If            
                End If
            Loop