监控监测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, 下载次数: 299)

2018-2-7 14:45 上传

点击文件名下载附件
下载积分: 精币 -2 枚

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

2018-2-7 14:44 上传

点击文件名下载附件
下载积分: 精币 -2 枚

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

2018-2-7 14:44 上传

点击文件名下载附件
下载积分: 精币 -2 枚

小啊白

打卡学习打卡学习打卡学习打卡学习打卡学习打卡学习打卡学习打卡学习打卡学习打卡学习打卡学习打卡学习打卡学习打卡学习

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.内容)

小文集团

看着十分不错的样子

小文集团

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