关于超级列表框取指定进程的问题

sn7039764

原帖：https://bbs.ijingyi.com/forum.ph ... 14864110&extra=







如图  我想实现 比如现在有两个为“测试.exe”的进程和三个为"功能.exe"的进程已经加入到了超级列表框中 那么现在我又打开一个“测试.exe”进程名  我现在想实现 在不删除前5个已经存在的再在超级列表框中加入这个新打开的"测试.exe"的进程  然后我可以右键操作选中的进程并进程标记 比如在超级列表框中的进程和窗口标题后面显示我标记的数字 比如1 或2 或3等等  PS：标记数字后要备份  并且再打开其它进程刷新时要存在标记的数字


求大佬再帮改改


@zainex

zainex

  

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

变量名	类 型	静态	数组	备 注
数组	文本型		0
进程ID	整数型		0
目标	字节集		0
数	整数型
索引	整数型
值	整数型
正则	正则表达式
备份	文本型		0
数量	整数型
量	整数型
存在	逻辑型
表达式	字节集

进程_枚举 (数组, 进程ID)
' 目标 ＝ { “e(.*)\.exe”, “测试(.*)\.exe”, “功能(.*)\.exe” }
' 调试输出 (到字节集 (“e(.*)\.exe”), 到字节集 (“测试(.*)\.exe”), 到字节集 (“功能(.*)\.exe”))
表达式 ＝ { 101, 40, 46, 42, 41, 92, 46, 101, 120, 101 }
加入成员 (目标, 表达式)
表达式 ＝ { 178, 226, 202, 212, 40, 46, 42, 41, 92, 46, 101, 120, 101 }
加入成员 (目标, 表达式)
表达式 ＝ { 185, 166, 196, 220, 40, 46, 42, 41, 92, 46, 101, 120, 101 }
加入成员 (目标, 表达式)
数量 ＝ 超级列表框1.取表项数 ()
如果真 (数量 ＞ 0)
重定义数组 (备份, 假, 数量, 4)
计次循环首 (数量, 数)
备份 [数] [1] ＝ 超级列表框1.取标题 (数 － 1, 0)
备份 [数] [2] ＝ 超级列表框1.取标题 (数 － 1, 1)
备份 [数] [4] ＝ 超级列表框1.取标题 (数 － 1, 2)
计次循环尾 ()
计次循环首 (取数组成员数 (数组), 数)
计次循环首 (取数组成员数 (目标), 值)
正则.创建 (到小写 (到文本 (目标 [值])), )
如果真 (正则.匹配 (到小写 (数组 [数])))
存在 ＝ 假
计次循环首 (数量, 量)
如果真 (备份 [量] [1] ＝ 到文本 (进程ID [数]))
存在 ＝ 真
备份 [量] [3] ＝ “保留”
跳出循环 ()

计次循环尾 ()
如果真 (存在 ＝ 假)
数量 ＝ 数量 ＋ 1
重定义数组 (备份, 真, 数量, 4)
备份 [数量] [1] ＝ 到文本 (进程ID [数])
备份 [数量] [2] ＝ 数组 [数] ＋ “|” ＋ 窗口_取标题 (进程_ID取窗口句柄 (进程ID [数]))
备份 [数量] [3] ＝ “保留”


计次循环尾 ()
计次循环尾 ()
调试输出 (“------”)
超级列表框1.全部删除 ()
计次循环首 (数量, 数)
调试输出 (备份 [数] [1], 备份 [数] [2], 备份 [数] [3])
如果真 (备份 [数] [3] ＝ “保留”)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 备份 [数] [1])
超级列表框1.置标题 (索引, 1, 备份 [数] [2])
超级列表框1.置标题 (索引, 2, 备份 [数] [4])

计次循环尾 ()

子程序名	返回值类型	公开	备 注
_标记_被选择

变量名	类 型	静态	数组	备 注
结果	文本型

如果真 (输入框 (, “请输入标记”, 超级列表框1.取标题 (超级列表框1.现行选中项, 2), 结果, #输入文本, _启动窗口.取窗口句柄 ()))
超级列表框1.置标题 (超级列表框1.现行选中项, 2, 结果)

i支持库列表	支持库注释
RegEx	正则表达式支持库
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 RegEx<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 进程ID, 整数型, , "0"<br /> .局部变量 目标, 字节集, , "0"<br /> .局部变量 数, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 值, 整数型<br /> .局部变量 正则, 正则表达式<br /> .局部变量 备份, 文本型, , "0"<br /> .局部变量 数量, 整数型<br /> .局部变量 量, 整数型<br /> .局部变量 存在, 逻辑型<br /> .局部变量 表达式, 字节集<br /> <br /> 进程_枚举 (数组, 进程ID)<br /> ' 目标 ＝ { “e(.*)\.exe”, “测试(.*)\.exe”, “功能(.*)\.exe” }<br /> ' 调试输出 (到字节集 (“e(.*)\.exe”), 到字节集 (“测试(.*)\.exe”), 到字节集 (“功能(.*)\.exe”))<br /> 表达式 ＝ { 101, 40, 46, 42, 41, 92, 46, 101, 120, 101 }<br /> 加入成员 (目标, 表达式)<br /> 表达式 ＝ { 178, 226, 202, 212, 40, 46, 42, 41, 92, 46, 101, 120, 101 }<br /> 加入成员 (目标, 表达式)<br /> 表达式 ＝ { 185, 166, 196, 220, 40, 46, 42, 41, 92, 46, 101, 120, 101 }<br /> 加入成员 (目标, 表达式)<br /> 数量 ＝ 超级列表框1.取表项数 ()<br /> .如果真 (数量 ＞ 0)<br />     重定义数组 (备份, 假, 数量, 4)<br /> .如果真结束<br /> .计次循环首 (数量, 数)<br />     备份 [数] [1] ＝ 超级列表框1.取标题 (数 － 1, 0)<br />     备份 [数] [2] ＝ 超级列表框1.取标题 (数 － 1, 1)<br />     备份 [数] [4] ＝ 超级列表框1.取标题 (数 － 1, 2)<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (数组), 数)<br />     .计次循环首 (取数组成员数 (目标), 值)<br />         正则.创建 (到小写 (到文本 (目标 [值])), )<br />         .如果真 (正则.匹配 (到小写 (数组 [数])))<br />             存在 ＝ 假<br />             .计次循环首 (数量, 量)<br />                 .如果真 (备份 [量] [1] ＝ 到文本 (进程ID [数]))<br />                     存在 ＝ 真<br />                     备份 [量] [3] ＝ “保留”<br />                     跳出循环 ()<br />                 .如果真结束<br /> <br />             .计次循环尾 ()<br />             .如果真 (存在 ＝ 假)<br />                 数量 ＝ 数量 ＋ 1<br />                 重定义数组 (备份, 真, 数量, 4)<br />                 备份 [数量] [1] ＝ 到文本 (进程ID [数])<br />                 备份 [数量] [2] ＝ 数组 [数] ＋ “|” ＋ 窗口_取标题 (进程_ID取窗口句柄 (进程ID [数]))<br />                 备份 [数量] [3] ＝ “保留”<br /> <br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 调试输出 (“------”)<br /> 超级列表框1.全部删除 ()<br /> .计次循环首 (数量, 数)<br />     调试输出 (备份 [数] [1], 备份 [数] [2], 备份 [数] [3])<br />     .如果真 (备份 [数] [3] ＝ “保留”)<br />         索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />         超级列表框1.置标题 (索引, 0, 备份 [数] [1])<br />         超级列表框1.置标题 (索引, 1, 备份 [数] [2])<br />         超级列表框1.置标题 (索引, 2, 备份 [数] [4])<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _标记_被选择<br /> .局部变量 结果, 文本型<br /> <br /> .如果真 (输入框 (, “请输入标记”, 超级列表框1.取标题 (超级列表框1.现行选中项, 2), 结果, #输入文本, _启动窗口.取窗口句柄 ()))<br />     超级列表框1.置标题 (超级列表框1.现行选中项, 2, 结果)

完整例子.zip (1.21 MB, 下载次数: 2)

2025-12-9 23:01 上传

点击文件名下载附件

sn7039764

@zainex  大佬帮帮忙