求一段VB代码，要求能在指定时间内打开另一个程序

来源：百度知道 编辑：UC知道 时间：2024/05/30 03:41:41

要一个timer,In..属性最好为1000
Dim time1 As Date

Private Sub Form_Load()
time1 = "19:25:25"'time1就是指定的时间
End Sub

Private Sub Timer1_Timer()

If Time = time1 Then
Shell "F:\make.bat", vbNormalFocus
'改成需要的程序就可以了
End If

End Sub

联系EXCEL小工具的作者。

yb1998.blog.163.com