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

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