主题：有没有办法动态增加计划任务呢？也就是项目发布后，用户可以根据需要自定义设定计划。

有没有办法动态增加计划任务呢？也就是项目发布后，用户可以根据需要自定义设定计划。

计划任务的管理：

首先新增一个全局变量 cishu  默认值为 0

根据需要系统预设20个计划任务，命名为“jihua1，jihua2，jihua3……，jihua20”

每个计划运行的时间均以毫秒进行计算。

如：jihua1代码如下：

If vars("cishu") = 0 Then

    Dim Proc As New Process '定义一个新的Process

    Proc.File = "http://192.168.43.112:8989/jihua.htm" '指定要打开的网页地址

    Proc.Start()

    vars("cishu")=vars("cishu")+1

End If

Jihua.htm代码为：

Dim d As Date = Date.now

If d.DayOfWeek = 5 Then

    If d.Hour = 22 Then

        If d.Minute= 26 Then

            MessageBox.Show("程序即将进行备份")

vars("cishu")=0

        End If

    End If

End If

项目有一内部函数表   有网页名  代码  网页类型  三个字段

网页名：jihua  （也是函数名）

代码：

Dim d As Date = Date.now

If d.DayOfWeek = 5 Then

    If d.Hour = 22 Then

        If d.Minute= 26 Then

            MessageBox.Show("程序即将进行备份")

vars("cishu")=0

        End If

    End If

End If

网页类型：htm