clsbomb.vb

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

Public Class ClsBomb
    Public Shared iI As Integer = 0
    Private _iReadTime As Integer
    Private _iBombNum As Integer
    Private _iPer As Integer




    Private Sub CreateTimer()
        Dim Timer1 As New System.Timers.Timer()
        Timer1.Interval = _iPer
        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)
        iI = iI + 1
        System.Windows.Forms.SendKeys.SendWait("ing 我要我的闪存排到第一名,行不行了？不行吗？呵呵，我从1开始数，一直数，一直数，现在是不是已经数到" & iI & "?")
        System.Windows.Forms.SendKeys.SendWait("~")
        If iI = 300 Then Return

    End Sub

End Class