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

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

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

在 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 调度异常关闭再次自动启动的方法就介绍到这里。以上代码可以直接复制使用。工程中测试过。

相关推荐

【推荐】一款开源免费、美观实用的后台管理系统模版

如果您对源码&技术感兴趣,请点赞+收藏+转发+关注,大家的支持是我分享最大的动力!!!项目介绍...

Android架构组件-App架构指南,你还不收藏嘛

本指南适用于那些已经拥有开发Android应用基础知识的开发人员,现在想了解能够开发出更加健壮、优质的应用程序架构。首先需要说明的是:AndroidArchitectureComponents翻...

高德地图经纬度坐标批量拾取(高德地图批量查询经纬度)

使用方法在桌面上新建一个index.txt文件,把下面的代码复制进去保存,再把文件名改成index.html保存,双击运行打开即可...

flutter系列之:UI layout简介(flutter ui设计)

简介对于一个前端框架来说,除了各个组件之外,最重要的就是将这些组件进行连接的布局了。布局的英文名叫做layout,就是用来描述如何将组件进行摆放的一个约束。...

Android开发基础入门(一):UI与基础控件

Android基础入门前言:...

iOS的布局体系-流式布局MyFlowLayout

iOS布局体系的概览在我的CSDN博客中的几篇文章分别介绍MyLayout布局体系中的视图从一个方向依次排列的线性布局(MyLinearLayout)、视图层叠且停靠于父布局视图某个位置的框架布局(M...

TDesign企业级开源设计系统越发成熟稳定,支持 Vue3 / 小程序

TDesing发展越来越好了,出了好几套组件库,很成熟稳定了,新项目完全可以考虑使用。...

WinForm实现窗体自适应缩放(winform窗口缩放)

众所周知,...

winform项目——仿QQ即时通讯程序03:搭建登录界面

上两篇文章已经对CIM仿QQ即时通讯项目进行了需求分析和数据库设计。winform项目——仿QQ即时通讯程序01:原理及项目分析...

App自动化测试|原生app元素定位方法

元素定位方法介绍及应用Appium方法定位原生app元素...

61.C# TableLayoutPanel控件(c# tabcontrol)

摘要TableLayoutPanel在网格中排列内容,提供类似于HTML元素的功能。TableLayoutPanel控件允许你将控件放在网格布局中,而无需精确指定每个控件的位置。其单元格...

想要深入学习Android性能优化?看完这篇直接让你一步到位

...

12个python数据处理常用内置函数(python 的内置函数)

在python数据分析中,经常需要对字符串进行各种处理,例如拼接字符串、检索字符串等。下面我将对python中常用的内置字符串操作函数进行介绍。1.计算字符串的长度-len()函数str1='我爱py...

如何用Python程序将几十个PDF文件合并成一个PDF?其实只要这四步

假定你有一个很无聊的任务,需要将几十个PDF文件合并成一个PDF文件。每一个文件都有一个封面作为第一页,但你不希望合并后的文件中重复出现这些封面。即使有许多免费的程序可以合并PDF,很多也只是简单的将...

Python入门知识点总结,Python三大数据类型、数据结构、控制流

Python基础的重要性不言而喻,是每一个入门Python学习者所必备的知识点,作为Python入门,这部分知识点显得很庞杂,内容分支很多,大部分同学在刚刚学习时一头雾水。...