用VB编写监视指定进程的程序
mTerminate)’设置被监控进程重启的最大次数
If Trim(NumT) = "" Then Exit Sub’如果操作人员选择“取消”或输入空格，则本次修改无效
NumTerminate = Val(Trim(NumT))
SaveSetting AppName, Section, sKeyNum, Trim(NumT)’保存有效设置
Label4 = NumTerminate
End Sub
该程序在VB5.0、Windows98下运行通过。
注意，该程序不要进行调试，因为VB本身是单线程的，不支持多线程的调试，只能编译好后运行，或者一个一个分开调试，再合到一起。
结束语：
随着科技的发展，办公自动化的流行，很多公司摆脱了老的办公机制，都使用了计算机来流水型自动执行很多以前需要人去手工执行的工作，但是这些程序因为处理的东西比较多，代码比较复杂，常常程序中会有一些小小的Bug，这些Bug有时会导致在自动化过程中程序被意外地关闭，致使流水线的中断，上面的这个程序可以帮助解决这个问题。
该程序在无人职守但又需要维持一个进程时刻执行的地方都适用。
If Trim(NumT) = "" Then Exit Sub’如果操作人员选择“取消”或输入空格，则本次修改无效
NumTerminate = Val(Trim(NumT))
SaveSetting AppName, Section, sKeyNum, Trim(NumT)’保存有效设置
Label4 = NumTerminate
End Sub
该程序在VB5.0、Windows98下运行通过。
注意，该程序不要进行调试，因为VB本身是单线程的，不支持多线程的调试，只能编译好后运行，或者一个一个分开调试，再合到一起。
结束语：
随着科技的发展，办公自动化的流行，很多公司摆脱了老的办公机制，都使用了计算机来流水型自动执行很多以前需要人去手工执行的工作，但是这些程序因为处理的东西比较多，代码比较复杂，常常程序中会有一些小小的Bug，这些Bug有时会导致在自动化过程中程序被意外地关闭，致使流水线的中断，上面的这个程序可以帮助解决这个问题。
该程序在无人职守但又需要维持一个进程时刻执行的地方都适用。