论文部分内容阅读
这是2008年1期中的题目,要求是“现在有一个程序,我希望一个月或者指定的一个时间添加到启动项里。”不要用计划任务也不要用第三软件。
要在指定时间运行程序,如果不使用计划任务,则可以编写一个VBS脚本来完成。
打开记事本输入以下代码,然后保存到“开始”菜单的“启动”项下,保存的文件类型要为VBS文件。
Set objShell = CreateObject("WScript.Shell")
'计划任务数组。每一个任务由两部分组成:①指定程序运行的日期。②程序的路径。
arSchedule = Array(_
"2008-1-25", "C:\WINDOWS\system32\notepad.exe",_
"2008-2-1", "C:\WINDOWS\system32\mspaint.exe")
For i = 0 To UBound(arSchedule) - 1 Step 2
'如果指定的日期与系统当前的日期相同,则运行程序。
If IsDate(arSchedule(i)) And (CDate(arSchedule(i)) = Date) Then
objShell.Run arSchedule(i + 1)
End If
Next
这样,如果开机日期为“2008-1-25”,则运行“记事本”程序,如果开机日期为“2008-2-1”,则运行
“画图”程序。大家只要根据自己的需要,更改“arSchedule”数组中的项目,就可以定制出不同的“计划任务”了。
要在指定时间运行程序,如果不使用计划任务,则可以编写一个VBS脚本来完成。
打开记事本输入以下代码,然后保存到“开始”菜单的“启动”项下,保存的文件类型要为VBS文件。
Set objShell = CreateObject("WScript.Shell")
'计划任务数组。每一个任务由两部分组成:①指定程序运行的日期。②程序的路径。
arSchedule = Array(_
"2008-1-25", "C:\WINDOWS\system32\notepad.exe",_
"2008-2-1", "C:\WINDOWS\system32\mspaint.exe")
For i = 0 To UBound(arSchedule) - 1 Step 2
'如果指定的日期与系统当前的日期相同,则运行程序。
If IsDate(arSchedule(i)) And (CDate(arSchedule(i)) = Date) Then
objShell.Run arSchedule(i + 1)
End If
Next
这样,如果开机日期为“2008-1-25”,则运行“记事本”程序,如果开机日期为“2008-2-1”,则运行
“画图”程序。大家只要根据自己的需要,更改“arSchedule”数组中的项目,就可以定制出不同的“计划任务”了。