//“开始”按钮的点击事件
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
QQ群Voice
最新推荐文章于 2022-10-17 17:20:29 发布