以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  程序异常自动关闭后,如何实现自动重启  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179334)

--  作者:237756360
--  发布时间:2022/8/19 6:59:00
--  程序异常自动关闭后,如何实现自动重启
程序异常自动关闭后,如何实现自动重启
--  作者:有点蓝
--  发布时间:2022/8/19 8:39:00
--  
如果是能够捕捉的错误,到BeforeShowErrorMessage事件,或者使用try(http://www.foxtable.com/webhelp/topics/2070.htm)处理,然后调用【Syscmd.Project.Open(FileName)】重新打开项目即可。

如果是无法捕捉的错误,没有办法,只能手工重新打开项目

--  作者:237756360
--  发布时间:2022/8/19 9:06:00
--  
无法捕捉错误,直接程序就自己退出了,有什么办法能监测程序运行,如果未启动就自动启动。
[此贴子已经被作者于2022/8/19 9:07:35编辑过]

--  作者:有点蓝
--  发布时间:2022/8/19 9:10:00
--  
没有办法
--  作者:有点蓝
--  发布时间:2022/8/19 9:15:00
--  
新建一个项目,这个项目只有一个功能,就是定时查询有没有另外一个程序在运行,比如:

Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("进程名称,可以从任务管理器里看到")
if ps.length = 0 then ‘没有运行
Dim Proc As New Process \'定义一个新的Process
Proc.File = 
"D:\\publich\\发布的xx程序.exe" \'指定要打开的文件

Proc.Start()
end if