Call Plugin.Bkgnd.SendString(Hwnd, Form1.InputBox5.Text)
        Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
        Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
        Delay Form1.InputBox6.Text*1000
    Wend
Else
End If
//======================================================================欢迎使用独处软件
If Form1.农场.Value = 1 Then
    Select Case Form1.种什么.ListIndex
    Case 0
        While true
            FindPic 0,0,2000,2000,"Attachment:\zz.bmp",1,intX,intY
            If intX > 0 And intY > 0 Then
                MoveTo intX,intY
                Delay 200
                RightClick 1
            End If
            FindPic 0,0,2000,2000,"Attachment:\zzz.bmp",0.9,ssX,ssY
            If ssX > 0 And ssY > 0 Then
                MoveTo ssX,ssY
                Delay 200
                RightClick 1
            End If
            FindPic 0,0,2000,2000,"Attachment:\zz1.bmp",1,aaX,aaY
            If aaX > 0 And aaY > 0 Then
                IfColor aaX+89,aaY-109,"0",0 Then
                    MoveTo aaX+13, aaY+5
                    Delay 200
                    LeftClick 1
                Else
                    IfColor aaX+89,aaY-77,"0",0 Then
                        MoveTo aaX+53, aaY+4
                        Delay 200
                        LeftClick 1
                    Else
                        IfColor aaX+47,aaY-45,"FFA5",1 Then
                            MoveTo aaX+98, aaY+6
                            Delay 200
                            LeftClick 1
                        Else
                            MoveTo 350, 168
                            Delay 300
                        End If
                    End If
                End If
            End If
            FindPic 0,0,2000,2000,"Attachment:\qqq.bmp",1,eeX,eeY
            If eeX > 0 And eeY > 0 Then
                MoveTo eeX,eeY
                Delay 200
                RightClick 1
            End If
            FindPic 0,0,2000,2000,"Attachment:\zz3.bmp",0.9,wwX,wwY
            If wwX > 0 And wwY > 0 Then
                MoveTo wwX+16,wwY+5
                Delay 200
                LeftClick 1
                Delay 200
                FindPic 0,0,2000,2000,"Attachment:\aa.bmp",0.9,ggX,ggY
                If ggX > 0 And ggY > 0 Then
                    MoveTo ggX-374, ggY+294
                    Delay 200
                    LeftClick 1
                    Delay 2000
                    KeyPress "1", 1
                    Delay 200
                    MoveTo ggX-19, ggY+290
                    Delay 200
                    LeftClick 1
                    Delay 2000
                End If
            End If
        Wend
    Case 1
        While true
            FindPic 0,0,2000,2000,"Attachment:\zz.bmp",1,intX,intY
            If intX > 0 And intY > 0 Then
                MoveTo intX,intY
                Delay 200
                RightClick 1
            End If
            FindPic 0,0,2000,2000,"Attachment:\zz6.bmp",1,ssX,ssY
            If ssX > 0 And ssY > 0 Then
                MoveTo ssX,ssY
                Delay 200
                RightClick 1
            End If
            FindPic 0,0,2000,2000,"Attachment:\zz1.bmp",1,aaX,aaY
            If aaX > 0 And aaY > 0 Then
                IfColor aaX+89,aaY-109,"0",0 Then
                    MoveTo aaX+13, aaY+5
                    Delay 200
                    LeftClick 1
                Else
                    IfColor aaX+89,aaY-77,"0",0 Then
                        MoveTo aaX+53, aaY+4
                        Delay 200
                        LeftClick 1
                    Else