监控监测E易语言崩溃自动重启

yh3215

[e=0].版本 2
.支持库 EThread
.支持库 shell
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 t, 整数型, , "0"

监测 ＝ 真
按钮1.禁止 ＝ 真


.子程序 __启动窗口_创建完毕

接收端_初始化 (取窗口句柄 ())
接收端_开始监听 (“接收端_信息2390517751”, &收到信息)

编辑框1.内容 ＝ 读配置项 (“.\\sz.ini”, “设置”, “延时”, )
编辑框2.内容 ＝ 读配置项 (“.\\sz.ini”, “设置”, “路径”, )
许可证 ＝ 创建进入许可证 ()
启动线程 (&子程序1, , )

.子程序 子程序1
.局部变量 i, 整数型
.局部变量 重启时间, 日期时间型
.局部变量 时间, 日期时间型
.局部变量 值, 整数型
.局部变量 延时重启, 整数型

.循环判断首 ()
    .如果 (监测 且 启动)
        进入许可区 (许可证)
        时间 ＝ 刷新时间
        退出许可区 (许可证)
        值 ＝ 取绝对值 (取时间间隔 (取现行时间 (), 时间, #秒))
        标签3.标题 ＝ “正常通信：” ＋ 到文本 (值)
        .如果 (到整数 (编辑框1.内容) ＜ 3)
            延时重启 ＝ 3
        .否则
            延时重启 ＝ 到整数 (编辑框1.内容)
        .如果结束
        .如果 (值 ≥ 延时重启)
            .如果真 (取绝对值 (取时间间隔 (取现行时间 (), 重启时间, #秒)) ≥ 10)
                重启时间 ＝ 取现行时间 ()
                执行 (, 编辑框2.内容, , , )
            .如果真结束
            延时 (1000)
        .否则
            延时 (1000)
        .如果结束

    .否则
        延时 (1000)
        时间 ＝ 取现行时间 ()
        .如果 (监测)
            标签3.标题 ＝ “软件方未启动”
        .否则
            标签3.标题 ＝ “未监测”
        .如果结束

    .如果结束

.循环判断尾 (真)

.子程序 _按钮2_被单击

监测 ＝ 假
按钮1.禁止 ＝ 假

.子程序 收到信息
.局部变量 数据, 字节集

数据 ＝ 接收端_取出数据 (“接收端_信息”)
进入许可区 (许可证)
刷新时间 ＝ 取现行时间 ()
退出许可区 (许可证)
调试输出 (到文本 (数据))
.如果真 (监测)
    .如果 (到文本 (数据) ＝ “2”)
        启动 ＝ 假
    .否则
        启动 ＝ 真
    .如果结束

.如果真结束
接收端_清除数据 (“接收端_信息”)

.子程序 _编辑框2_内容被改变

写配置项 (“.\\sz.ini”, “设置”, “路径”, 编辑框2.内容)

.子程序 _编辑框1_内容被改变

写配置项 (“.\\sz.ini”, “设置”, “延时”, 编辑框1.内容)
进程通信_模块.e (12.97 KB, 下载次数: 297)

2018-2-7 14:45 上传

点击文件名下载附件

监测模块.e (4.94 KB, 下载次数: 261)

2018-2-7 14:44 上传

点击文件名下载附件

E崩溃自动重启.e (9.44 KB, 下载次数: 359)

2018-2-7 14:44 上传

点击文件名下载附件

feige11

有没有教程

feige11

这玩意怎么用

feige11

真牛啊。。。。。。

shenhaiwen0316

666666666666666666 我需要这个

shenhaiwen0316

666666666666666666 我需要这个啊阿斯顿

shenhaiwen0316

666666666666666666 我需要这个

shenhaiwen0316

本帖最后由 yh3215 于 2018-2-7 14:48 编辑   [e=0].版本 2 .支持库 EThread .支持库 shell .支持库 spec  .子程序 _按钮1_被单击 .局部变量 t, 整数型, , "0"  监测 ＝ 真 按钮1.禁止 ＝ 真   .子程序 __启动窗口_创建完毕  接收端_初始化 (取窗口句柄 ()) 接收端_开始监听 (“接收端_信息2390517751”, &收到信息)  编辑框1.内容 ＝ 读配置项 (“.\\sz.ini”, “设置”, “延时”, ) 编辑框2.内容 ＝ 读配置项 (“.\\sz.ini”, “设置”, “路径”, ) 许可证 ＝ 创建进入许可证 () 启动线程 (&子程序1, , )  .子程序 子程序1 .局部变量 i, 整数型 .局部变量 重启时间, 日期时间型 .局部变量 时间, 日期时间型 .局部变量 值, 整数型 .局部变量 延时重启, 整数型  .循环判断首 ()     .如果 (监测 且 启动)         进入许可区 (许可证)         时间 ＝ 刷新时间         退出许可区 (许可证)         值 ＝ 取绝对值 (取时间间隔 (取现行时间 (), 时间, #秒))         标签3.标题 ＝ “正常通信：” ＋ 到文本 (值)         .如果 (到整数 (编辑框1.内容) ＜ 3)             延时重启 ＝ 3         .否则             延时重启 ＝ 到整数 (编辑框1.内容)         .如果结束         .如果 (值 ≥ 延时重启)             .如果真 (取绝对值 (取时间间隔 (取现行时间 (), 重启时间, #秒)) ≥ 10)                 重启时间 ＝ 取现行时间 ()                 执行 (, 编辑框2.内容, , , )             .如果真结束             延时 (1000)         .否则             延时 (1000)         .如果结束      .否则         延时 (1000)         时间 ＝ 取现行时间 ()         .如果 (监测)             标签3.标题 ＝ “软件方未启动”         .否则             标签3.标题 ＝ “未监测”         .如果结束      .如果结束  .循环判断尾 (真)  .子程序 _按钮2_被单击  监测 ＝ 假 按钮1.禁止 ＝ 假  .子程序 收到信息 .局部变量 数据, 字节集  数据 ＝ 接收端_取出数据 (“接收端_信息”) 进入许可区 (许可证) 刷新时间 ＝ 取现行时间 () 退出许可区 (许可证) 调试输出 (到文本 (数据)) .如果真 (监测)     .如果 (到文本 (数据) ＝ “2”)         启动 ＝ 假     .否则         启动 ＝ 真     .如果结束  .如果真结束 接收端_清除数据 (“接收端_信息”)  .子程序 _编辑框2_内容被改变  写配置项 (“.\\sz.ini”, “设置”, “路径”, 编辑框2.内容)

小文集团

看着十分不错的样子

小文集团

嘿嘿哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈

小文集团