[原创]定时运行程序 - 编程论坛

#2

flyly2006-11-13 10:23

[原创]餐馆查询系统VB

顶一下！

只有本站会员才能查看附件，请登录

[此贴子已经被作者于2006-11-13 10:24:10编辑过]

#3

luyuancyj2006-11-13 15:28

支持以下

#4

xiaoxiao9262006-11-13 17:32

#5

e3bnsd2012-12-08 23:25

顶顶

#6

e3bnsd2012-12-13 22:00

程序代码：

Private Sub browse_Click()
browseDialog.DialogTitle = "选择路径"
browseDialog.ShowOpen
End Sub

Private Sub clock_off_Click()
hour = "* *"
minute = "* *"
second = "* *"
on_off.Enabled = False
clock_on.Value = False
End Sub

Private Sub clock_on_Click()
hour = "22"
minute = "58"
second = "00"
on_off.Enabled = True
clock_off.Value = False
End Sub

Private Sub Form_Load()
on_off.Interval = 1000
current_time = CStr(Time)
browseDialog.FileName = "C:\WINDOWS\system32\cmd.exe"
End Sub
Private Sub on_off_Timer()
Dim i As Single
current_time = CStr(Time)
If Mid(current_time, 1, 8) = hour & ":" & minute & ":" & second Then
i = Shell(browseDialog.FileName, 1)
End If
End Sub

只有本站会员才能查看附件，请登录

楼主：能修改下不？当前时间过 5分钟后，自动运行一个程序（例如计算机记事本网页等）