//“開始”按鈕的點選事件
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