IFix 调度后台任务被关闭如何处理（含代码）

在 IFix 使用过程中经常会使用到调度功能来实现定时报告，事件触发类的脚本，那么后台调度的进程也会出现被操作人员等意外关闭的情况。那么就会造成我们的定时报告，脚本等无法正常运行。

那么如何保证在后台调度被异常关闭后可以自动启动呢？那么下面就介绍一种方法。

思路：在一个一直被打开的画面（比如导航栏画面）中放一个定时器，循环检测调度是否启动，如果调度没启动就自动启动调度。防止别人关闭了后台任务窗口。如果调度设置为后台运行，那么任务中的 FixBackgroundServer.EXE 也必须设置为后台运行。

具体步骤如下：

1）在 SCU中检查 FixBackgroundServer.EXE 为后台方式，并查看调度是否也是后台方式运行。如下图：

SCU 后台任务

2）在导航栏添加一个定时器，设置定时器的名称：diaodu，以及定时器的时间间隔: 1000毫秒。

定时器设置

3）编写定时器的脚本。首先定义一个 “Function” , 然后编写定时器的脚本。

为了增加调度功能的稳定性，可在监控主画面上添加定时器，周期性运行脚本，检查windows后台程序是否存在FIXBACKGROUNDSERVER.EXE进程，若没有找到，则运行该程序。以下是相关脚本，请放在主画面的脚本里。或者用VB6编写小程序，实现定时运行。

Private Function CheckExeIsRun(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_OnTimeOut(ByVal lTimerId As Long)

    If CheckExeIsRun("FIXBACKGROUNDSERVER.EXE") = False Then Shell System.FixPath(Base_Path) & "\FIXBACKGROUNDSERVER.EXE"

 end if

End Sub

 

以上脚本亲测可行。