搬家第59天-citect2018citectVBA重新启动IO服务器

昨天学习了一下不通过runtimemanager来停止IO服务器，如果停止之后想重新启动如何办呢？今天做了一下实验。

在昨天练习的基础上做一下修改。定义一个内部变量strcmd，字符串类型，用于存放运行后的IOServer的commandline信息，在昨天的citectVBA函数的终止进程语句前加上一句

strcmd=SWbemObject.commandline

这样就获取了commandline具体值。

新建一个citectVBA函数

Sub RunIOServer()

Dim objShell As Object

Set objShell = CreateObject("Wscript.Shell")

objShell.Run strcmd

Set objShell =nothing

End Sub

画面上增加一个按钮，鼠标点击事件中调用新增的citectVBA函数。保存编译运行，先停止进程，然后点击新增的按钮，就可以把停掉的IOServer给重新启动了。