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