frmmain.vb

来自「短信攻击」· VB 代码 · 共 84 行

Public Class frmMain
    Private iI As Integer = 0
    Private strSendKey As String
    Dim Timer1 As New System.Timers.Timer()
    Private Sub CreateTimer()

        Timer1.Interval = txtPerBumb.Text.Trim
        Timer1.Enabled = True
        AddHandler Timer1.Elapsed, _
           New System.Timers.ElapsedEventHandler(AddressOf Me.Timer1_Elapsed)

    End Sub

    Private Sub Timer1_Elapsed(ByVal sender As System.Object, _
       ByVal e As System.Timers.ElapsedEventArgs)
        Dim strTmp As String
        iI = iI + 1
        strTmp = txtBomb.Text & iI

        System.Windows.Forms.SendKeys.SendWait(strTmp)
        System.Windows.Forms.SendKeys.SendWait(strSendKey)
        If iI = Val(txtBombNum.Text.Trim) Then
            Timer1.Stop()

        End If




    End Sub
    Private Function CheckNum() As Boolean

        If Not IsNumeric(txtPerBumb.Text.Trim) Then
            txtPerBumb.Focus()
            Return False
        End If
        If Not IsNumeric(txtBombNum.Text.Trim) Then
            txtBombNum.Focus()
            Return False
        End If
        If Not IsNumeric(txtReadyTime.Text.Trim) Then
            txtReadyTime.Focus()
            Return False
        End If
        Return True
    End Function

    Private Sub btnBumb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBumb.Click
        iI = 0


        System.Threading.Thread.Sleep(txtReadyTime.Text)

        If Not CheckNum() Then
            Return
        End If
        CreateTimer()
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub

    Private Sub rdcmdGoogleTalk_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdcmdGoogleTalk.CheckedChanged, rdbcmdMsn.CheckedChanged
        strSendKey = "~"
    End Sub


    Private Sub rdbCmdQQ_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbCmdQQ.CheckedChanged
        strSendKey = "^~"

    End Sub

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        rdbCmdQQ.Checked = True
        txtAbout.Text = "发射方法: " & vbCrLf
        txtAbout.Text = txtAbout.Text & "     1、炸弹发射的间隔时间越短功击力度越大，发射次数为你一共发多少枚炸弹，发射准备时间是当你点击""发射""以后，鼠标放到对应的位置！" & vbCrLf
        txtAbout.Text = txtAbout.Text & "     2、这个软件没有什么技术价值，纯粹为了娱乐使用，高手莫笑！我坚持每两天发布一个自己的原创小工具！" & vbCrLf


    End Sub
End Class