进程隐藏源码

显示全部楼层 · 发表于 2010-3-10 18:10:30

.版本 2
.支持库 xplib
.支持库 iext

.程序集窗口程序集1
.程序集变量进程信息, 进程信息_, , "0"
.程序集变量进程数, 整数型
.程序集变量 a, 整数型

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

XP风格 (3)

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

超级列表框_进程.全部删除 ()
进程数＝进程枚举 (进程信息)
.计次循环首 (进程数, a)
超级列表框_进程.插入表项 (, 到文本 (进程信息 [a].进程名称), , , , )
超级列表框_进程.置标题 (a － 1, 1, 到文本 (进程信息 [a].进程ID))
超级列表框_进程.置标题 (a － 1, 2, 进程取路径及命令行参数 (进程信息 [a].进程ID))
.计次循环尾 ()
标签_进程数.标题＝ “进程数：” ＋到文本 (进程数)

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

.如果 (进程终止 (超级列表框_进程.取标题 (超级列表框_进程.现行选中项, 0)))
_按钮1_被单击 ()
.否则
总在最前＝假
信息框 (“无法结束该进程!”, #错误图标, “提示”)
总在最前＝真
.如果结束

.子程序 _按钮2_被单击
.局部变量进程ID, 整数型

进程ID ＝到数值 (超级列表框_进程.取标题 (超级列表框_进程.现行选中项, 1))
进程隐藏 (进程ID, )
_按钮1_被单击 ()

.子程序 _超级列表框_进程_左键单击表项
.局部变量进程ID, 整数型

进程ID ＝到数值 (超级列表框_进程.取标题 (超级列表框_进程.现行选中项, 1))
标签_进程数1.标题＝ “进程ID：” ＋到文本 (进程ID)

不会吧这么简单的代码也要辅助海模块