Question

求一个可以开机自动运行的VB小程序。

开机后自动运行，每个工作日的早9点弹出“请重启计算机”提示框，每周一早9点弹出“请升级病毒库，查杀病毒”提示框，每月的第一个工作日早9点弹出“请上报核对表”提示框。

Answer 1

1、开机后自动运行好办，你将生成的软件创建一个快捷方式，并拖放到“开始－程序－启动”中（其他方法都比这个方法麻烦）。
2、每个工作日的早9点弹出“请重启计算机”提示框有点麻烦。因为每年的法定假日都有调休。如果将这个因素考虑进去是非常麻烦的。因此，只能认为周一至周五为工作日。
3、每周一早9点弹出“请升级病毒库，查杀病毒”提示框很简单就可以搞定。
4、每月的第一个工作日早9点弹出“请上报核对表”提示框有点麻烦，这里就不考虑法定假日调休的问题了。
5、程序运行后，如果检测当天不需要提示，则退出程序；否则若开机时间已经过了9点，则直接提示后退出程序，否则等到了9点再提示后退出程序。
6、考虑到本程序对时间精度要求不高，计算机启动需要时间，为了节约计算机资源等因素，本程序每一分钟检查一次时间。‍

Dim Tsbj(1 To 3) As Boolean
Private Sub Form_Load()
Dim IntXq As Integer
Dim IntDay As Integer
Dim I As Integer
Timer1.Interval = 60000
Timer1.Enabled = True
For I = 1 To 3: Tsbj(I) = False: Next I
IntXq = Weekday(Now) - 1
IntDay = Day(Now)
If IntXq < 6 And IntXq > 0 Then
If IntDay = 1 Then
Tsbj(1) = True
End If
Tsbj(3) = True
End If
If IntXq = 1 Then
Tsbj(2) = True
If IntDay = 2 Or IntDay = 3 Then
Tsbj(3) = True
End If
End If
If Not Tsbj(1) And Not Tsbj(2) And Not Tsbj(3) Then End
End Sub

Private Sub Timer1_Timer()
If Time > "#09-00-00#" Then
If Tsbj(1) Then MsgBox "请上报核对表!", , "提示"
If Tsbj(2) Then MsgBox "请升级病毒库，查杀病毒!", , "提示"
If Tsbj(3) Then MsgBox "请重启计算机!", , "提示"
End
End If
End Sub

Answer 2

按你的要求，不如用windows本身的计划任务实现，这样还免得总有个程序占据资源。

Answer 3

这个也很简单。但要写。没时间啊。。。
至于开机启动，将写好的软件往开始菜单的启动项里拉一个快捷方式就可以了。

Answer 4

开机后自动运行这个设计到注册表的操作你可以自己查找一下相关资料。