求大佬delphi转换成易语言代码

大木易

原理：先获取打开的软件进程，然后搜索标题是搜有这些文字，再搜索按钮、标签等等，是否有这些文字，有的话关闭打开的软件就行！

LEOONL

  

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

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

启动线程（&监视）

子程序名	返回值类型	公开	备 注
监视

变量名	类 型	静态	数组	备 注
句柄组1	文本型		0
w	整数型
句柄组2	整数型		0
n	整数型
名组	文本型
q	整数型

判断循环首 (真)
句柄组1 ＝ 取所有窗口列表 ()
计次循环首 (取数组成员数 (句柄组1), w)
窗口_枚举所有子窗口 (到数值 (句柄组1 [w]), 句柄组2)
名组 ＝ 分割文本 (“aa,bb,cc”, “,”, )
计次循环首 (取数组成员数 (句柄组2), n)
计次循环首 (取数组成员数 (名组), q)
如果真 (寻找文本 (窗口_取标题 (句柄组2 [n]), 名组 [q], , 假) ＞ 0 或 寻找文本 (窗口_取控件内容 (句柄组2 [n]), 名组 [q], , 假) ＞ 0 或 寻找文本 (窗口_取标题 (到数值 (句柄组1 [w])), 名组 [q], , 假) ＞ 0)
进程_结束 (窗口_句柄取进程ID (到数值 (句柄组1 [w])))

计次循环尾 ()
计次循环尾 ()
计次循环尾 ()
延时 (100)
判断循环尾 ()

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 启动线程（&监视）<br /> <br /> .子程序 监视<br /> .局部变量 句柄组1, 文本型, , "0"<br /> .局部变量 w, 整数型<br /> .局部变量 句柄组2, 整数型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 名组, 文本型<br /> .局部变量 q, 整数型<br /> <br /> .判断循环首 (真)<br />     句柄组1 ＝ 取所有窗口列表 ()<br />     .计次循环首 (取数组成员数 (句柄组1), w)<br />         窗口_枚举所有子窗口 (到数值 (句柄组1 [w]), 句柄组2)<br />         名组 ＝ 分割文本 (“aa,bb,cc”, “,”, )<br />         .计次循环首 (取数组成员数 (句柄组2), n)<br />             .计次循环首 (取数组成员数 (名组), q)<br />                 .如果真 (寻找文本 (窗口_取标题 (句柄组2 [n]), 名组 [q], , 假) ＞ 0 或 寻找文本 (窗口_取控件内容 (句柄组2 [n]), 名组 [q], , 假) ＞ 0 或 寻找文本 (窗口_取标题 (到数值 (句柄组1 [w])), 名组 [q], , 假) ＞ 0)<br />                     进程_结束 (窗口_句柄取进程ID (到数值 (句柄组1 [w])))<br />                 .如果真结束<br /> <br />             .计次循环尾 ()<br />         .计次循环尾 ()<br />     .计次循环尾 ()<br />     延时 (100)<br /> .判断循环尾 ()

LEOONL

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
句柄数组	整数型
n	整数型
名组	文本型
q	整数型

窗口_枚举所有子窗口 (进程_名取句柄 (“1.exe”), 句柄数组, )
名组 ＝ 分割文本 (“aa，bb，cc”, , )
计次循环首 (取数组成员数 (句柄数组), n)
计次循环首 (取数组成员数 (名组), q)
如果真 (寻找文本 (窗口_取标题 (句柄数组 [n]), 名组 [q], , 假) ＞ 0)
进程_结束 (“1.exe”)

计次循环尾 ()
计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 句柄数组, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 名组, 文本型<br /> .局部变量 q, 整数型<br /> <br /> 窗口_枚举所有子窗口 (进程_名取句柄 (“1.exe”), 句柄数组, )<br /> 名组 ＝ 分割文本 (“aa，bb，cc”, , )<br /> .计次循环首 (取数组成员数 (句柄数组), n)<br />     .计次循环首 (取数组成员数 (名组), q)<br />         .如果真 (寻找文本 (窗口_取标题 (句柄数组 [n]), 名组 [q], , 假) ＞ 0)<br />             进程_结束 (“1.exe”)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()

大木易

LEOONL 发表于 2024-11-19 15:04
[e=0].版本 2

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

大佬我的意思是   我这个程序会一直运行。打开我这个程序后列举出所有的软件标题，如果有这个标题那就关闭这个程序，如果没有继续监视，再打开新的程序也一样会监视，还有就是不止是标题，还有按钮、标签等只要是有这些文字那就关闭程序。

大木易

LEOONL 发表于 2024-11-19 15:29
[e=0].版本 2
.支持库 eAPI

还差一点点大佬，就是模糊搜索。

LEOONL

zhaidong 发表于 2024-11-19 15:49
还差一点点大佬，就是模糊搜索。

还什么模糊 这就是模糊