Dim day(999), weekly(999), hour(999), minute(999), second(999) As Integer
Dim drive(999), path(999), expression(999) As String
Dim count, number As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim pn As String
Dim pa As Process()
number = 0
FileOpen(1, "C:\Users\Public\RUNTIMER.TXT", OpenMode.Input)
While Not EOF(1)
number = number + 1
Input(1, day(number))
Input(1, weekly(number))
Input(1, hour(number))
Input(1, minute(number))
Input(1, second(number))
Input(1, drive(number))
Input(1, path(number))
Input(1, expression(number))
End While
FileClose(1)
Label1.Text = "命令数=" & number
Timer1.Interval = 5000
Timer2.Interval = 1000
Timer1.Enabled = True
Timer2.Enabled = True
pn = Process.GetCurrentProcess.ProcessName
pa = Process.GetProcessesByName(pn)
If UBound(pa) > 0 Then Me.Close()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
REM Timer1.Enabled = False
number = 0
FileOpen(1, "C:\Users\Public\RUNTIMER.TXT", OpenMode.Input)
While Not EOF(1)
number = number + 1
Input(1, day(number))
Input(1, weekly(number))
Input(1, hour(number))
Input(1, minute(number))
Input(1, second(number))
Input(1, drive(number))
Input(1, path(number))
Input(1, expression(number))
End While
FileClose(1)
Label1.Text = "命令数=" & number
REM Timer1.Enabled = True
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
REM Timer1.Enabled = False
REM Timer2.Enabled = False
Dim cRandom As New System.Random
Dim clock As DateTime = System.DateTime.Now
Dim weekNumber As Integer = CInt(clock.DayOfWeek)
Label4.Text = System.DateTime.Now
Label6.Text = 9999 - clock.Year & "年" & 99 - clock.Month & "月" & 99 - clock.Day & "日 " & 99 - clock.Hour & "時" & 99 - clock.Minute & "分" & 99 - clock.Second & "秒"
TextBox1.Text = "'" & clock.Year - 2000 & "'" & Mid("zzzAJanBFebCMarDAprEMayFJunGJulHAugISepJOoctKNovLDec", 4 * clock.Month + 1, 3) & Mid("0", 1, -(clock.Day < 10)) & clock.Day & M