玖叶教程网

前端编程开发入门

组态软件 VBA 程序实现特殊功能

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

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

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

具体步骤如下:

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


SCU 后台任务

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 后,关闭后台任务后,观测后台任务是否又自动启动。


后台任务

那么今天关于 IFix 调度异常关闭再次自动启动的方法就介绍到这里。以上代码可以直接复制使用。工程中测试过。

发表评论:

控制面板
您好,欢迎到访网站!
  查看权限
网站分类
最新留言