QQ消息轰炸机源代码（VB.NET)_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

QQ消息轰炸机源代码（VB.NET)

作者：闵涛文章来源：闵涛的学习笔记点击数：2747 更新时间：2009/4/23 19:00:57

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]

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程： vb.net显示系统信息

下一篇教程：在VB.NET中实现文件的拖放

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]