www.pudn.com > sendmessagesrc.rar > frmMain.vb

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