求助各位大佬 一个很简单的进程问题

cvhnjust

之前已经有大佬帮忙写出来的例子，还是有点问题。启动易语言程序后，写一个死循环。就是检测“果果高原.exe”这个进程，首次启动易语言程序，无论是否检测到“果果高原.exe”这个进程，都不会（销毁）易语言程序自身。启动1次“果果高原.exe”这个进程之后，如果关闭。则在30秒内自动（销毁）易语言自身，如果在关闭“果果高原.exe”这个进程之后，在30秒内再次启动则不会（销毁）易语言自身。一个很简单的问题，希望路过的大佬帮忙完善一下。实在弄不懂！



补充内容 (2024-11-24 04:40):
易语言智能识别这个进程之后，保持运行。不销毁易语言自身。如果关闭这个进程之后，在30秒内没有重新运行，则30秒后自动销毁易语言自身。

b0y

1.e (957.28 KB, 下载次数: 1)

2024-11-24 05:53 上传

点击文件名下载附件

chenboss

  

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

启动线程 (&检测, , )

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

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

判断循环首 (真)
调试输出 (s)
如果 (进程_是否存在 (“果果高原.exe”, ))
s ＝ 0
s ＝ s ＋ 1
如果真 (s ＞ 30)
销毁 (假)
延时 (1000)
判断循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 启动线程 (&检测, , )<br /> <br /> <br /> .子程序 检测<br /> .局部变量 s, 整数型<br /> <br /> .判断循环首 (真)<br />     调试输出 (s)<br />     .如果 (进程_是否存在 (“果果高原.exe”, ))<br />         s ＝ 0<br />     .否则<br />         s ＝ s ＋ 1<br />     .如果结束<br />     .如果真 (s ＞ 30)<br />         销毁 (假)<br />     .如果真结束<br />     延时 (1000)<br /> .判断循环尾 ()

cvhnjust

chenboss 发表于 2024-11-24 04:54
[e=0].版本 2
.支持库 EThread
.支持库 spec

谢谢大佬啊，总算解决了。但是有个问题啊，死循环这种，销毁窗口后，因为还在计数，死循环没检测到易语言窗口，销毁不了。就会报错，有办法能解决吗？



补充内容 (2024-11-24 05:20):
大佬大佬，如果易语言销毁自身后，就执行退出死循环。这个要怎么写呢，不退出死循环，会报错。

补充内容 (2024-11-24 05:24):
还有就是能不能在易语言程序中加一个文字标签，显示计数30秒的倒计时。（未检测到进程，将在30秒后关闭程序）如果检测到进程（进程已经在运行）

补充内容 (2024-11-24 05:25):
求大佬指点帮帮忙，解决问题+分谢谢！

咪兔

  

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

变量名	类 型	静态	数组	备 注
进程是否运行过	逻辑型
超时	整数型

进程是否运行过 ＝ 进程_是否存在 (“果果高原.exe”, )
判断循环首 (真)
判断 (进程是否运行过 ＝ 假)
如果真 (进程_是否存在 (“果果高原.exe”, ))
进程是否运行过 ＝ 真

判断 (进程_是否存在 (“果果高原.exe”, ))
超时 ＝ 0
超时 ＝ 超时 ＋ 1
如果真 (超时 ≥ 30)
结束 ()

程序_延时 (1, 1)
判断循环尾 ()

.版本 2<br /> <br /> .子程序 检测<br /> .局部变量 进程是否运行过, 逻辑型<br /> .局部变量 超时, 整数型<br /> <br /> 进程是否运行过 ＝ 进程_是否存在 (“果果高原.exe”, )<br /> .判断循环首 (真)<br />     .判断开始 (进程是否运行过 ＝ 假)<br />         .如果真 (进程_是否存在 (“果果高原.exe”, ))<br />             进程是否运行过 ＝ 真<br />         .如果真结束<br /> <br />     .判断 (进程_是否存在 (“果果高原.exe”, ))<br />         超时 ＝ 0<br />     .默认<br />         超时 ＝ 超时 ＋ 1<br />         .如果真 (超时 ≥ 30)<br />             结束 ()<br />         .如果真结束<br /> <br />     .判断结束<br />     程序_延时 (1, 1)<br /> .判断循环尾 ()

咪兔

  

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

变量名	类 型	静态	数组	备 注
进程是否运行过	逻辑型
超时	整数型

进程是否运行过 ＝ 进程_是否存在 (“Taskmgr.exe”, )
标签1.标题 ＝ “进程未运行”
判断循环首 (真)
销毁 (假)
判断 (进程是否运行过 ＝ 假)
如果真 (进程_是否存在 (“Taskmgr.exe”, ))
进程是否运行过 ＝ 真

判断 (进程_是否存在 (“Taskmgr.exe”, ))
超时 ＝ 0
标签1.标题 ＝ “进程已经在运行”
标签1.标题 ＝ “未检测到进程，将在” ＋ 到文本 (30 － 超时) ＋ “秒后关闭程序”
超时 ＝ 超时 ＋ 1
如果真 (超时 ≥ 30)
程序_延时 (1, 1)
' 销毁 (假)
' 跳出循环 ()
' 销毁 (真)
结束 ()

程序_延时 (1, 1)
判断循环尾 ()

.版本 2<br /> <br /> .子程序 检测<br /> .局部变量 进程是否运行过, 逻辑型<br /> .局部变量 超时, 整数型<br /> <br /> 进程是否运行过 ＝ 进程_是否存在 (“Taskmgr.exe”, )<br /> 标签1.标题 ＝ “进程未运行”<br /> .判断循环首 (真)<br />     销毁 (假)<br /> <br />     .判断开始 (进程是否运行过 ＝ 假)<br />         .如果真 (进程_是否存在 (“Taskmgr.exe”, ))<br />             进程是否运行过 ＝ 真<br />         .如果真结束<br /> <br />     .判断 (进程_是否存在 (“Taskmgr.exe”, ))<br />         超时 ＝ 0<br />         标签1.标题 ＝ “进程已经在运行”<br />     .默认<br />         标签1.标题 ＝ “未检测到进程，将在” ＋ 到文本 (30 － 超时) ＋ “秒后关闭程序”<br />         超时 ＝ 超时 ＋ 1<br />         .如果真 (超时 ≥ 30)<br />             程序_延时 (1, 1)<br /> <br />             ' 销毁 (假)<br />             ' 跳出循环 ()<br /> <br />             ' 销毁 (真)<br /> <br />             结束 ()<br />         .如果真结束<br /> <br />     .判断结束<br />     程序_延时 (1, 1)<br /> .判断循环尾 ()

补充内容 (2024-11-24 05:53):
要么 销毁（假）然后 跳出循环（）要么 销毁（真） 要么 结束（）

chenboss

cvhnjust 发表于 2024-11-24 05:07
谢谢大佬啊，总算解决了。但是有个问题啊，死循环这种，销毁窗口后，因为还在计数，死循环没检测到易语言 ...

  

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

启动线程 (&检测, , )

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

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

判断循环首 (可视)
标签1.标题 ＝ “退出倒计时：” ＋ 到文本 (30 － s)
如果 (进程_是否存在 (“果果高原.exe”, ))
s ＝ 0
s ＝ s ＋ 1
如果真 (s ＞ 30)
调试输出 (“时间到已退出”)
结束 ()
延时 (1000)
判断循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 启动线程 (&检测, , )<br /> <br /> .子程序 检测<br /> .局部变量 s, 整数型<br /> <br /> .判断循环首 (可视)<br />     标签1.标题 ＝ “退出倒计时：” ＋ 到文本 (30 － s)<br />     .如果 (进程_是否存在 (“果果高原.exe”, ))<br />         s ＝ 0<br />     .否则<br />         s ＝ s ＋ 1<br />     .如果结束<br />     .如果真 (s ＞ 30)<br />         调试输出 (“时间到已退出”)<br />         结束 ()<br />     .如果真结束<br />     延时 (1000)<br /> .判断循环尾 ()

chenboss

检测进程30s退出.e (853.13 KB, 下载次数: 1, 售价: 1 枚 精币)

2024-11-24 06:37 上传

点击文件名下载附件

我很低调

[JavaScript] 纯文本查看 复制代码

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

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

启动线程 (&检测, , )


.子程序 检测
.局部变量 s, 整数型

.判断循环首 (真)
    调试输出 (s)
    .如果 (进程_是否存在 (“果果高原.exe”, ))
        s ＝ 0
    .否则
        s ＝ s ＋ 1
    .如果结束
    .如果真 (s ＞ 30)
       跳出循环
    .如果真结束
    延时 (1000)
.判断循环尾 ()
结束