sp; Exit Sub
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''以下求延迟毫秒数
iDelay = 0
For i = 0 To ListView1.Items.Count - 1
If ListView1.Items(i).Checked = True Then
iDelay += 1 ''''共有多少个窗口，要发送信息
End If
Next
If iDelay = 0 Then
MsgBox("请选择至少一个聊天对象，必须打开聊天窗口，再按刷新即可。")
Exit Sub
End If
iDelay = 3100 - iDelay * 1000 ''''延迟多少秒，发送的窗口越少，延迟秒数越大
If iDelay < 0 Then
iDelay = 0
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If RadioButton1.Checked Then ''''只发一次
SendMess()
Else ''''不停地发，直到用户中止
MyThread = New Threading.Thread(AddressOf SendMessUntil)
MyThread.Start()
ButtonStart.Enabled = False
End If
End Sub
Private Sub SendMess()
For i = 0 To ListView1.Items.Count - 1
If ListView1.Items(i).Checked = True Then
SendMessage(hWndEdit(i), WM_SETTEXT, 0, sMess & "hhhhhhhh")
System.Threading.Thread.Sleep(iDelay)
SendMessage(hWndSend(i), WM_LBUTTONDOWN, 0, 0)
SendMessage(hWndSend(i), WM_LBUTTONUP, 0, 0)
End If
Next
End Sub
Private Sub SendMessUntil()
While 1
SendMess()
End While
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
ButtonRefresh_Click(Nothing, Nothing)
End Sub
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
If (Not MyThread Is Nothing) Then
MyThread.Abort()
End If
End Sub
End Class
上一页 [1] [2] [3] |
