百度360必应搜狗淘宝本站头条
当前位置:网站首页 > IT技术 > 正文

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

wptr33 2024-12-09 18:00 42 浏览

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

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

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

具体步骤如下:

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


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

相关推荐

oracle数据导入导出_oracle数据导入导出工具

关于oracle的数据导入导出,这个功能的使用场景,一般是换服务环境,把原先的oracle数据导入到另外一台oracle数据库,或者导出备份使用。只不过oracle的导入导出命令不好记忆,稍稍有点复杂...

继续学习Python中的while true/break语句

上次讲到if语句的用法,大家在微信公众号问了小编很多问题,那么小编在这几种解决一下,1.else和elif是子模块,不能单独使用2.一个if语句中可以包括很多个elif语句,但结尾只能有一个...

python continue和break的区别_python中break语句和continue语句的区别

python中循环语句经常会使用continue和break,那么这2者的区别是?continue是跳出本次循环,进行下一次循环;break是跳出整个循环;例如:...

简单学Python——关键字6——break和continue

Python退出循环,有break语句和continue语句两种实现方式。break语句和continue语句的区别:break语句作用是终止循环。continue语句作用是跳出本轮循环,继续下一次循...

2-1,0基础学Python之 break退出循环、 continue继续循环 多重循

用for循环或者while循环时,如果要在循环体内直接退出循环,可以使用break语句。比如计算1至100的整数和,我们用while来实现:sum=0x=1whileTrue...

Python 中 break 和 continue 傻傻分不清

大家好啊,我是大田。...

python中的流程控制语句:continue、break 和 return使用方法

Python中,continue、break和return是控制流程的关键语句,用于在循环或函数中提前退出或跳过某些操作。它们的用途和区别如下:1.continue(跳过当前循环的剩余部分,进...

L017:continue和break - 教程文案

continue和break在Python中,continue和break是用于控制循环(如for和while)执行流程的关键字,它们的作用如下:1.continue:跳过当前迭代,...

作为前端开发者,你都经历过怎样的面试?

已经裸辞1个月了,最近开始投简历找工作,遇到各种各样的面试,今天分享一下。其实在职的时候也做过面试官,面试官时,感觉自己问的问题很难区分候选人的能力,最好的办法就是看看候选人的github上的代码仓库...

面试被问 const 是否不可变?这样回答才显功底

作为前端开发者,我在学习ES6特性时,总被const的"善变"搞得一头雾水——为什么用const声明的数组还能push元素?为什么基本类型赋值就会报错?直到翻遍MDN文档、对着内存图反...

2023金九银十必看前端面试题!2w字精品!

导文2023金九银十必看前端面试题!金九银十黄金期来了想要跳槽的小伙伴快来看啊CSS1.请解释CSS的盒模型是什么,并描述其组成部分。...

前端面试总结_前端面试题整理

记得当时大二的时候,看到实验室的学长学姐忙于各种春招,有些收获了大厂offer,有些还在苦苦面试,其实那时候的心里还蛮忐忑的,不知道自己大三的时候会是什么样的一个水平,所以从19年的寒假放完,大二下学...

由浅入深,66条JavaScript面试知识点(七)

作者:JakeZhang转发链接:https://juejin.im/post/5ef8377f6fb9a07e693a6061目录...

2024前端面试真题之—VUE篇_前端面试题vue2020及答案

添加图片注释,不超过140字(可选)...

今年最常见的前端面试题,你会做几道?

在面试或招聘前端开发人员时,期望、现实和需求之间总是存在着巨大差距。面试其实是一个交流想法的地方,挑战人们的思考方式,并客观地分析给定的问题。可以通过面试了解人们如何做出决策,了解一个人对技术和解决问...