两个易语言程序之间的检测

147888123

mengchao 发表于 2024-11-25 19:50
我现在使用的就是这种，在某种情况下和电脑环境下 会断开 。

论坛里hpsocket例子N多，抄就行

chenboss

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

启动线程 (&检测, , )

子程序名	返回值类型	公开	备 注
检测

变量名	类 型	静态	数组	备 注
exe	文本型
s	整数型

exe ＝ “aa.exe”  ' 切换注释，编成成bb.exe
' exe ＝ “bb.exe”  ' 切换注释，编成成aa.exe
如果真 (进程_是否存在 (exe, ) ＝ 假)
运行 (exe, 假, )
写到文件 (取特定目录 (11) ＋ “montior”, 到字节集 (取执行文件名 ()))
判断循环首 (可视)
延时 (1000)
如果 (到文本 (读入文件 (取特定目录 (11) ＋ “montior”)) ＝ exe)
写到文件 (取特定目录 (11) ＋ “montior”, 到字节集 (取执行文件名 ()))
s ＝ 0
s ＝ s ＋ 1
如果真 (s ＞ 3)
跳出循环 ()

判断循环尾 ()
信息框 (到文本 (exe) ＋ “隔壁老王挂了，我也溜了”, 0, , )
结束 ()

i支持库列表	支持库注释
EThread	多线程支持库
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 shell<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 启动线程 (&检测, , )<br /> <br /> <br /> .子程序 检测<br /> .局部变量 exe, 文本型<br /> .局部变量 s, 整数型<br /> <br /> exe ＝ “aa.exe”  ' 切换注释，编成成bb.exe<br /> ' exe ＝ “bb.exe”  ' 切换注释，编成成aa.exe<br /> .如果真 (进程_是否存在 (exe, ) ＝ 假)<br />     运行 (exe, 假, )<br />     写到文件 (取特定目录 (11) ＋ “montior”, 到字节集 (取执行文件名 ()))<br /> .如果真结束<br /> .判断循环首 (可视)<br />     延时 (1000)<br />     .如果 (到文本 (读入文件 (取特定目录 (11) ＋ “montior”)) ＝ exe)<br />         写到文件 (取特定目录 (11) ＋ “montior”, 到字节集 (取执行文件名 ()))<br />         s ＝ 0<br />     .否则<br />         s ＝ s ＋ 1<br />     .如果结束<br />     .如果真 (s ＞ 3)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> 信息框 (到文本 (exe) ＋ “隔壁老王挂了，我也溜了”, 0, , )<br /> 结束 ()

cobi

.版本 2
.支持库 eAPI
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_首次激活

.判断开始 (程序B是否已启动 ())  ' 若是程序B先运行那就在程序B中检测
    检测程序B假死卡死未响应 ()  ' 添加一个子程序作为循环判断，检测到程序B假死卡死未响应三次就先关闭掉程序B，然后结束自身。
.默认
    .判断开始 (运行 (取运行目录 () ＋ “\程序B.exe”, 假, ))
        检测程序B假死卡死未响应 ()
    .默认
        结束 ()  ' 如果程序B运行失败就结束程序A自身。
    .判断结束

.判断结束


.子程序 程序B是否已启动, 逻辑型
.局部变量 进程组, 进程信息, , "0"
.局部变量 i
.局部变量 返回值, 逻辑型

进程组 ＝ 取系统进程列表 ()
.计次循环首 (取数组成员数 (进程组), i)
    .如果真 (进程组 .进程名称 ＝ “程序B.exe”)
        返回值 ＝ 真
        跳出循环 ()
    .如果真结束

.计次循环尾 ()
返回 (返回值)

.子程序 检测程序B假死卡死未响应
.局部变量 i

.循环判断首 ()
    .如果真 (你的检测代码 ())
        i ＝ i ＋ 1
        .如果真 (i ＝ 3)
            .如果真 (信息框 (“程序B运行异常，是否结束程序？”, #询问图标 ＋ #是否钮, , ) ＝ #是钮)
                结束 ()
            .如果真结束

        .如果真结束

    .如果真结束
    延迟 (1000)
.循环判断尾 (i ＜ 3)

.子程序 你的检测代码, 逻辑型
.局部变量 返回值, 逻辑型

' 你的检测代码
' 返回值 = 真
' 返回值 = 假
返回 (返回值)




补充内容 (2024-11-25 20:53):
这个忘了粘贴到易代码里哈哈~

cobi

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_首次激活

判断 (程序B是否已启动 ())  ' 若是程序B先运行那就在程序B中检测
检测程序B假死卡死未响应 ()  ' 添加一个子程序作为循环判断，检测到程序B假死卡死未响应三次就先关闭掉程序B，然后结束自身。
判断 (运行 (取运行目录 () ＋ “\程序B.exe”, 假, ))
检测程序B假死卡死未响应 ()
结束 ()  ' 如果程序B运行失败就结束程序A自身。

子程序名	返回值类型	公开	备 注
程序B是否已启动	逻辑型

变量名	类 型	静态	数组	备 注
进程组	进程信息		0
i
返回值	逻辑型

进程组 ＝ 取系统进程列表 ()
计次循环首 (取数组成员数 (进程组), i)
如果真 (进程组 [i].进程名称 ＝ “程序B.exe”)
返回值 ＝ 真
跳出循环 ()

计次循环尾 ()
返回 (返回值)

子程序名	返回值类型	公开	备 注
检测程序B假死卡死未响应

变量名	类 型	静态	数组	备 注
i

循环判断首 ()
如果真 (你的检测代码 ())
i ＝ i ＋ 1
如果真 (i ＝ 3)
如果真 (信息框 (“程序B运行异常，是否结束程序？”, #询问图标 ＋ #是否钮, , ) ＝ #是钮 )
结束 ()


延迟 (1000)
循环判断尾 (i ＜ 3)

子程序名	返回值类型	公开	备 注
你的检测代码	逻辑型

变量名	类 型	静态	数组	备 注
返回值	逻辑型

' 你的检测代码
' 返回值 = 真
' 返回值 = 假
返回 (返回值)

i支持库列表	支持库注释
eAPI	应用接口支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 eAPI<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_首次激活<br /> <br /> .判断开始 (程序B是否已启动 ())  ' 若是程序B先运行那就在程序B中检测<br />     检测程序B假死卡死未响应 ()  ' 添加一个子程序作为循环判断，检测到程序B假死卡死未响应三次就先关闭掉程序B，然后结束自身。<br /> .默认<br />     .判断开始 (运行 (取运行目录 () ＋ “\程序B.exe”, 假, ))<br />         检测程序B假死卡死未响应 ()<br />     .默认<br />         结束 ()  ' 如果程序B运行失败就结束程序A自身。<br />     .判断结束<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 程序B是否已启动, 逻辑型<br /> .局部变量 进程组, 进程信息, , "0"<br /> .局部变量 i<br /> .局部变量 返回值, 逻辑型<br /> <br /> 进程组 ＝ 取系统进程列表 ()<br /> .计次循环首 (取数组成员数 (进程组), i)<br />     .如果真 (进程组 <i>.进程名称 ＝ “程序B.exe”)<br />         返回值 ＝ 真<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (返回值)<br /> <br /> .子程序 检测程序B假死卡死未响应<br /> .局部变量 i<br /> <br /> .循环判断首 ()<br />     .如果真 (你的检测代码 ())<br />         i ＝ i ＋ 1<br />         .如果真 (i ＝ 3)<br />             .如果真 (信息框 (“程序B运行异常，是否结束程序？”, #询问图标 ＋ #是否钮, , ) ＝ #是钮)<br />                 结束 ()<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br />     延迟 (1000)<br /> .循环判断尾 (i ＜ 3)<br /> <br /> .子程序 你的检测代码, 逻辑型<br /> .局部变量 返回值, 逻辑型<br /> <br /> ' 你的检测代码<br /> ' 返回值 = 真<br /> ' 返回值 = 假<br /> 返回 (返回值)

766711831

你这我经常干。我是用来做看门狗的程序闪退就重新启动，原理就是使用看门狗程序启动你的程序，启动后使用心跳的方法来检测有没有闪退，传输方式有很多种，直接用服务器和客户Duan来互相传输就可以了，很方便