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
    //送花结束
End If
If Form1.chuangkou.ListIndex = 2 Then 
    //一号
    If Form1.Hao.ListIndex = 1 Then 
        MoveTo 358+Ux, 247+Uy
        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
    //五号
    If Form1.Hao.ListIndex = 5 Then 
        MoveTo 358+Ux, 327+Uy
        Delay 5
        LeftDoubleClick 1
        Delay 5
    End If
    //六号
    If Form1.Hao.ListIndex = 6 Then 
        MoveTo 358+Ux, 347+Uy
        Delay 5
        LeftDoubleClick 1
        Delay 5
    End If
End If
n = n + 1
If n = Form1.B.Text  Then 
    Delay 300
    MessageBox "已送满"&Form1.B.Text&"朵花"
    EndScript
Else 
    Goto 继续1
End If


//================子程序
Sub 找窗口()
    //下面这句是遍历符合窗口标题("记事本")的句柄保存到数组(HwndEx)里   
    HwndEx = Plugin.Window.Search("QQ炫舞")
    //下面这句用于分割字符串,将获得的句柄组分割   
    MyArray = Split(HwndEx, "|")
    If UBound(MyArray)>=0 Then    
        h = 0
        i = 0 
        shu=UBound(MyArray)  
        For UBound(MyArray)   
            //下面将字符串转换成数值   
            h = h + 1
            If h = 1 Then 
                JB1=MyArray(i)
            End If
        Next  
    End If
End Sub