Delay 5
        LeftDoubleClick 1
        Delay 5
    End If
    //二号
    If Form1.Hao.ListIndex = 2 Then 
        MoveTo 459+Ux, 343+Uy
        Delay 5
        LeftDoubleClick 1
        Delay 5
    End If
    //三号
    If Form1.Hao.ListIndex = 3 Then 
        MoveTo 459+Ux, 371+Uy
        Delay 5
        LeftDoubleClick 1
        Delay 5
    End If
    //四号
    If Form1.Hao.ListIndex = 4 Then 
        MoveTo 459+Ux, 399+Uy
        Delay 5
        LeftDoubleClick 1
        Delay 5
    End If
    //五号
    If Form1.Hao.ListIndex = 5 Then 
        MoveTo 459+Ux, 427+Uy
        Delay 5
        LeftDoubleClick 1
        Delay 5
    End If
    //六号
    If Form1.Hao.ListIndex = 6 Then 
        MoveTo 459+Ux, 455+Uy
        Delay 5
        LeftDoubleClick 1
        Delay 5
    End If
    //统计次数
    Cs = Cs + 1
    剩余次数 = Form1.B.Text + 1 - Cs
    TracePrint "小窗口"&剩余次数
    Call Plugin.Window.SetText(JB1,"已送" & Cs-1 & "朵花！   还剩" & 剩余次数& "朵")
    If 剩余次数=0 Then  
        Delay 300
        time2 = Plugin.Sys.GetTime()
        MessageBox Form1.B.Text & "朵花已送完"& vbcr & "总共耗时：" & time2 - time1 & "毫秒"
        EndScript
    End If
End Sub
Sub 小窗口()
    TracePrint "我是小窗口"
    //检测背景是否黑屏
    IfColor 0+Ux,599+Uy,"0",0 Then
    Else 
        KeyPress "F12", 1
    End If
    //检测是否在对局中
    //蓝
    IfColor 718+Ux,117+Uy,"FFD399",0 Then
    Else 
        //粉红
        IfColor 718+Ux,117+Uy,"F5A5FD",0 Then
        Else 
            MessageBox "检测到已离开对局或未在对局中开启。点击确定后脚本将停止！如有需要请按启动热键重新启动！"
            EndScript 
        End If
    End If
    //开始送花操作
    KeyPress "Z", 1
    KeyPress "X", 1
    MoveTo 358 + Ux, 247 + Uy
    //一号
    If Form1.Hao.ListIndex = 1 Then 
        Delay 5
        LeftDoubleClick 1
        Delay 5
    End If
    //二号
    If Form1.Hao.ListIndex = 2 Then 
        MoveTo 358+Ux, 267+Uy
        Delay 5
        LeftDoubleClick 1
        Delay 5
    End If
    //三号
    If Form1.Hao.ListIndex = 3 Then 
        MoveTo 358+Ux, 287+Uy
        Delay 5
        LeftDoubleClick 1
        Delay 5
    End If
    //四号
    If Form1.Hao.ListIndex = 4 Then 
        MoveTo 358+Ux, 307+Uy
        Delay 5
        LeftDoubleClick 1
        Delay 5
    End If