vb6把多個程式連在一起，並且會每隔一段時間執行另外的程式

Question

請問
如何用vb6
寫一個程式
當9:00執行A.exe
10:00執行B.exe
11:00執行C.exe
12:00執行D.exe
當然這些程式
可以利用windows的排程進行
但是我必須要執行的程式很多
不只上面那幾個
所以用排程太麻煩了
想問一下
vb6可以作到嗎？
謝謝

Answer 1

'表單置一個Timer物件 , Name = Timer1Dim A(1 To 4) As BooleanPrivate Sub Form_Load()    Timer1.Interval = 100    Timer1 = TrueEnd SubPrivate Sub Timer1_Timer()    Select Case Time           Case Is = #9:00:00 AM#                If A(1) = False Then Shell "C:\A.exe", vbNormalFocus: A(1) = True           Case Is = #10:00:00 AM#                If A(2) = False Then Shell "C:\B.exe", vbNormalFocus: A(2) = True           Case Is = #11:00:00 AM#                If A(3) = False Then Shell "C:\C.exe", vbNormalFocus: A(3) = True           Case Is = #12:00:00 AM#                If A(4) = False Then Shell "C:\D.exe", vbNormalFocus: A(4) = True    End SelectEnd Sub