求助 关于超级列表框的问题

sn7039764

我想在超级列表框中显示指定进程的窗口标题及进程名 比如(“e.exe”  要大小写都能取到 有时可能是"E.exe") 然后可以进行选中操作 比如结束选中的进程等 求大佬给写个源码

zainex

  

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

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

变量名	类 型	静态	数组	备 注
数组	文本型		0
进程ID	整数型		0
目标	文本型
数	整数型
索引	整数型

进程_枚举 (数组, 进程ID)
目标 ＝ 编辑框1.内容
超级列表框1.全部删除 ()
计次循环首 (取数组成员数 (数组), 数)
如果真 (到小写 (数组 [数]) ＝ 到小写 (目标))
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (进程ID [数]))
超级列表框1.置标题 (索引, 1, 数组 [数] ＋ “|” ＋ 窗口_取标题 (进程_ID取窗口句柄 (进程ID [数])))

计次循环尾 ()

子程序名	返回值类型	公开	备 注
_超级列表框1_右键单击表项

如果真 (超级列表框1.现行选中项 ＝ -1)
返回 ()
弹出菜单 (菜单, , )

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

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

PID ＝ 到整数 (超级列表框1.取标题 (超级列表框1.现行选中项, 0))
如果真 (进程_结束 (PID))
超级列表框1.删除表项 (超级列表框1.现行选中项)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 进程ID, 整数型, , "0"<br /> .局部变量 目标, 文本型<br /> .局部变量 数, 整数型<br /> .局部变量 索引, 整数型<br /> <br /> 进程_枚举 (数组, 进程ID)<br /> 目标 ＝ 编辑框1.内容<br /> 超级列表框1.全部删除 ()<br /> .计次循环首 (取数组成员数 (数组), 数)<br />     .如果真 (到小写 (数组 [数]) ＝ 到小写 (目标))<br />         索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />         超级列表框1.置标题 (索引, 0, 到文本 (进程ID [数]))<br />         超级列表框1.置标题 (索引, 1, 数组 [数] ＋ “|” ＋ 窗口_取标题 (进程_ID取窗口句柄 (进程ID [数])))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _超级列表框1_右键单击表项<br /> <br /> .如果真 (超级列表框1.现行选中项 ＝ -1)<br />     返回 ()<br /> .如果真结束<br /> 弹出菜单 (菜单, , )<br /> <br /> <br /> .子程序 _结束_被选择<br /> .局部变量 PID, 整数型<br /> <br /> PID ＝ 到整数 (超级列表框1.取标题 (超级列表框1.现行选中项, 0))<br /> .如果真 (进程_结束 (PID))<br />     超级列表框1.删除表项 (超级列表框1.现行选中项)<br /> .如果真结束

效果:

例子.zip (1.69 KB, 下载次数: 5)

2025-8-26 14:44 上传

点击文件名下载附件

LEOONL

https://bbs.ijingyi.com/forum.ph ... 1%E7%AE%A1%E7%90%86