在 IFix 使用过程中经常会使用到调度功能来实现定时报告,事件触发类的脚本,那么后台调度的进程也会出现被操作人员等意外关闭的情况。那么就会造成我们的定时报告,脚本等无法正常运行。 那么如何保证在后台调度被异常关闭后可以自动启动呢?那么下面就介绍一种方法。 思路:在一个一直被打开的画面(比如导航栏画面)中放一个定时器,循环检测调度是否启动,如果调度没启动就自动启动调度。 防止别人关闭了后台任务窗口。如果调度设置为后台运行,那么任务中的 FixBackgroundServer.EXE 也必须设置为后台运行。 具体步骤如下: 定时器脚本程序如下: 至此所有设置完成,运行 IFix 后,关闭后台任务后,观测后台任务是否又自动启动。1)在 SCU中检查 FixBackgroundServer.EXE 为后台方式,并查看调度是否也是后台方式运行。如下图:
2)在导航栏添加一个定时器,设置定时器的名称:diaodu,以及定时器的时间间隔: 1000毫秒。
3)编写定时器的脚本。首先定义一个 “Function” , 然后编写定时器的脚本。
Private Function CheckSchedulerIsRun(exeName As String) As Boolean
On Error GoTo Err
Dim WMI
Dim Obj
Dim Objs
CheckExeIsRun = False
Set WMI = GetObject("WinMgmts:")
Set Objs = WMI.InstancesOf("Win32_Process")
For Each Obj In Objs
If (InStr(UCase(exeName), UCase(Obj.Description)) <> 0) Then
CheckExeIsRun = True
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
Exit Function
End If
Next
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
Exit Function
Err:
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
End Function
Private Sub diaodu(ByVal lTimerId As Long)
If CheckSchedulerIsRun("FIXBACKGROUNDSERVER.EXE") = False Then
Shell System.FixPath(Base_Path) & "\FIXBACKGROUNDSERVER.EXE"
end if
End Sub
那么今天关于 IFix 调度异常关闭再次自动启动的方法就介绍到这里。以上代码可以直接复制使用。工程中测试过。