QQ群Voice

//“开始”按钮的点击事件
Event Form1.Button1.Click

T1 = BeginThread (StartTask())

End Event

Sub StartTask
		
	//获取管理员人数
	Dim ManagerNumber
	ManagerNumber = CInt(Form1.InputBox2.Text)
//	MessageBox "管理员人数：" & ManagerNumber
	
	//获取群总人数
	Dim PersonNumber
	PersonNumber = CInt(Form1.InputBox3.Text)
//	MessageBox "群总人数：" & PersonNumber
	
	//一屏显示人数
	Dim PersonInScreen 
	PersonInScreen = CInt(31)
	
	//共显示多少屏幕
	Dim ScreenNumber
	If PersonNumber < PersonInScreen Then 
		ScreenNumber = 1
		Else 
		ScreenNumber=PersonNumber\PersonInScreen
	End If
	
	MessageBox "总屏幕数：" & ScreenNumber
	//屏幕跳转
	For sc=1 to ScreenNumber
		//跳过管理员
		Dim icstart
		If sc = 1 Then 
			icstart = ManagerNumber+1
			Else 
			icstart = 1
		End If
		
		Dim icEnd
		If ScreenNumber = 1 Then 
			icEnd = PersonNumber
			Else 
			icEnd = PersonInScreen
		End If
		
		//当前屏幕选择的人
		For ic = icstart to icEnd
			MyRandom = 0//getRnd(0, 3)
			SelectItem (ic + MyRandom)
//			ic = ic + MyRandom
			send = Form1.Label4.Caption
			Form1.Label4.Caption = send + 1
			Delay 3000
			ClickVoiceButton 
			Delay CInt(getRnd(8000,12000))
//			ClickEndVoice 
			Delay 1000
			ClickCloseButton 
			Delay 1000
			KeyDown "Enter", 1
			Delay 1000
		Next
		GoToNextScreen 
		Delay 1000
	Next
End Sub

//“清零”按钮的点击事件
Event Form1.Button2.Click
	Form1.Label4.Caption = "0"
End Event


//选择第Count个群友
Function SelectItem(count)
	TopY = 114
	BottomY = 714
	ItemHight = 20
	XPos = 1215
	YPos = TopY + (count - 1) * ItemHight
	If YPos > BottomY Then 
		YPos = BottomY
	End If
	MoveTo XPos, YPos
	Delay 1000
	MyDoubleClick
End Function

//点击语音按钮
Sub ClickVoiceButton
	MoveTo 167, 64
	Delay 1000
	MyLeftClick
End Sub

//点击语音结束按钮,按钮颜色为"474FDA"
//Sub ClickEndVoice
//	MoveTo 1311, 275
//	Delay 100
//	MyLeftClick 
//	Delay 100		
//End Sub

//鼠标左键单击  
Sub MyLeftClick  
    LeftDown 1  
    Delay 2  
    LeftClick 1  
    Delay 1  
    LeftUp 1  
End Sub

//鼠标双击
Sub MyDoubleClick
	MyLeftClick 
	Delay 20
	MyLeftClick 
	Delay 20
End Sub

//点击关闭按钮
Sub ClickCloseButton
	MoveTo 133, 18
	Delay 500
	MyLeftClick
End Sub

//下一屏
Sub GoToNextScreen
	MoveTo 1363, 705
	Delay 500
	MyLeftClick
End Sub

//获取随机数  
Function getRnd(from, toNumber)  
    Randomize  
    getRnd = Int(Rnd * (toNumber-from) + from )  
End Function