读取到了当前运行的程序目录如何能结束指定路径的程序呢?

374608888

读取到了当前运行的程序目录如何能结束指定路径的程序呢?

或者 将当前指定的路径的程序窗口切换出来

咪兔

1.获取进程列表
2.寻找路径与进程相同的程序进程
3.终止进程

374608888

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

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

_枚举进程文件路径 ()

子程序名	返回值类型	公开	备 注
_枚举进程文件路径

变量名	类 型	静态	数组	备 注
cb	整数型
cbNeeded	整数型
NumElements	整数型
ProcessIDs	整数型		0
cbNeeded2	整数型
NumElements2	整数型
Modules	整数型		255
lret	整数型
ModuleName	文本型
nSize	整数型
hProcess	整数型
i	整数型

cb ＝ 8
cbNeeded ＝ 96
判断循环首 (cb ≤ cbNeeded)
cb ＝ cb × 2
重定义数组 (ProcessIDs, 假, cb ÷ 4)
lret ＝ 枚举进程_ (ProcessIDs [1], cb, cbNeeded)
判断循环尾 ()
NumElements ＝ cbNeeded ÷ 4
变量循环首 (1, NumElements, 1, i)
hProcess ＝ 打开进程_ (位或 ( #PROCESS_QUERY_INFORMATION, #PROCESS_VM_READ ), 0, ProcessIDs [i])
如果真 (hProcess ≠ 0)
lret ＝ 枚举进程模块_ (hProcess, Modules [1], 255, cbNeeded2)
如果真 (lret ≠ 0)
ModuleName ＝ 取空白文本 (255)
nSize ＝ 255
lret ＝ 取模块文件名扩展_ (hProcess, Modules [1], ModuleName, 255)
_启动窗口1.列表框10.加入项目 (ModuleName, )


变量循环尾 ()
关闭内核对象_ (hProcess)
_启动窗口1.标签10.标题 ＝ “当前可获取进程路径：” ＋ 到文本 (_启动窗口1.列表框10.取项目数 ())

子程序名	返回值类型	公开	备 注
_列表框10_双击选择

_启动窗口.标签9.标题 ＝ 列表框10.取项目文本 (列表框10.现行选中项)
销毁 ()

i支持库列表	支持库注释
const	(未知支持库)

.版本 2<br /> .支持库 const<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 __启动窗口1_创建完毕<br /> <br /> _枚举进程文件路径 ()<br /> <br /> .子程序 _枚举进程文件路径, , 公开<br /> .局部变量 cb, 整数型<br /> .局部变量 cbNeeded, 整数型<br /> .局部变量 NumElements, 整数型<br /> .局部变量 ProcessIDs, 整数型, , "0"<br /> .局部变量 cbNeeded2, 整数型<br /> .局部变量 NumElements2, 整数型<br /> .局部变量 Modules, 整数型, , "255"<br /> .局部变量 lret, 整数型<br /> .局部变量 ModuleName, 文本型<br /> .局部变量 nSize, 整数型<br /> .局部变量 hProcess, 整数型<br /> .局部变量 i, 整数型<br /> <br /> cb ＝ 8<br /> cbNeeded ＝ 96<br /> .判断循环首 (cb ≤ cbNeeded)<br />     cb ＝ cb × 2<br />     重定义数组 (ProcessIDs, 假, cb ÷ 4)<br />     lret ＝ 枚举进程_ (ProcessIDs [1], cb, cbNeeded)<br /> .判断循环尾 ()<br /> NumElements ＝ cbNeeded ÷ 4<br /> .变量循环首 (1, NumElements, 1, i)<br />     hProcess ＝ 打开进程_ (位或 (#PROCESS_QUERY_INFORMATION, #PROCESS_VM_READ), 0, ProcessIDs <i>)<br />     .如果真 (hProcess ≠ 0)<br />         lret ＝ 枚举进程模块_ (hProcess, Modules [1], 255, cbNeeded2)<br />         .如果真 (lret ≠ 0)<br />             ModuleName ＝ 取空白文本 (255)<br />             nSize ＝ 255<br />             lret ＝ 取模块文件名扩展_ (hProcess, Modules [1], ModuleName, 255)<br />             _启动窗口1.列表框10.加入项目 (ModuleName, )<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .变量循环尾 ()<br /> 关闭内核对象_ (hProcess)<br /> _启动窗口1.标签10.标题 ＝ “当前可获取进程路径：” ＋ 到文本 (_启动窗口1.列表框10.取项目数 ())<br /> <br /> .子程序 _列表框10_双击选择<br /> <br /> _启动窗口.标签9.标题 ＝ 列表框10.取项目文本 (列表框10.现行选中项)<br /> 销毁 ()

========== 这是 枚举进程路径的源码=======================

  

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

如果真 (标签9.标题 ＝ “”)
信息框 (“温馨提示：请按浏览按钮选择启动路径，谢谢！”, 0, “请选择执行路径：”)
返回 ()
超级列表框2.插入表项 (-1, , , , , )
超级列表框2.置标题 (超级列表框2.取表项数 () － 1, 0, 到文本 (超级列表框2.取表项数 ()))
超级列表框2.置标题 (超级列表框2.取表项数 () － 1, 1, 到文本 (取日期 (日期框1.今天)) ＋ 编辑框2.内容)
超级列表框2.置标题 (超级列表框2.取表项数 () － 1, 2, “未运行”)
超级列表框2.置标题 (超级列表框2.取表项数 () － 1, 3, 标签9.标题)

子程序名	返回值类型	公开	备 注
数组_输出

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

弹出菜单 (右键超级列表, 取鼠标水平位置 (), 取鼠标垂直位置 ())

子程序名	返回值类型	公开	备 注
_时钟2_周期事件

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

标签10.标题 ＝ 到文本 (取现行时间 ())
计次循环首 (超级列表框2.取表项数 (), i)
如果真 (超级列表框2.取标题 (i － 1, 1) ＝ 到文本 (取现行时间 ()))
执行 (4, 超级列表框2.取标题 (i － 1, 3), , , 2)
超级列表框2.置标题 (i － 1, 2, “已运行”)

计次循环尾 ()

子程序名	返回值类型	公开	备 注
_调节器2_调节钮被按下
参数名	类 型	参考	可空	数组	备 注
按钮值1	整数型

变量名	类 型	静态	数组	备 注
数组1	文本型		0

如果 (编辑框2.可有焦点 ())
加入成员 (数组1, 取文本左边 (编辑框2.内容, 寻找文本 (编辑框2.内容, “时”, , 假) － 1))
加入成员 (数组1, 取文本中间 (编辑框2.内容, 寻找文本 (编辑框2.内容, “时”, , 假) ＋ 2, 寻找文本 (编辑框2.内容, “分”, , 假) － 2 － 寻找文本 (编辑框2.内容, “时”, , 假)))
加入成员 (数组1, 取文本中间 (编辑框2.内容, 寻找文本 (编辑框2.内容, “分”, , 假) ＋ 2, 取文本长度 (编辑框2.内容) － 寻找文本 (编辑框2.内容, “分”, , 假) － 3))
判断 (编辑框2.起始选择位置 ≤ 寻找文本 (编辑框2.内容, “时”, , 假))
数组1 [1] ＝ 到文本 (到数值 (数组1 [1]) ＋ 按钮值1)
如果真 (数组1 [1] ＝ “24”)
数组1 [1] ＝ “0”
如果真 (数组1 [1] ＝ “-1”)
数组1 [1] ＝ “23”
编辑框2.内容 ＝ 数组1 [1] ＋ “时” ＋ 数组1 [2] ＋ “分” ＋ 数组1 [3] ＋ “秒”
编辑框2.起始选择位置 ＝ 寻找文本 (编辑框2.内容, “时”, , 假) － 1
判断 (编辑框2.起始选择位置 ＞ 寻找文本 (编辑框2.内容, “时”, , 假) 且 编辑框2.起始选择位置 ≤ 寻找文本 (编辑框2.内容, “分”, , 假))
数组1 [2] ＝ 到文本 (到数值 (数组1 [2]) ＋ 按钮值1)
如果真 (数组1 [2] ＝ “60”)
数组1 [2] ＝ “0”
如果真 (数组1 [2] ＝ “-1”)
数组1 [2] ＝ “59”
编辑框2.内容 ＝ 数组1 [1] ＋ “时” ＋ 数组1 [2] ＋ “分” ＋ 数组1 [3] ＋ “秒”
编辑框2.起始选择位置 ＝ 寻找文本 (编辑框2.内容, “分”, , 假) － 1
判断 (编辑框2.起始选择位置 ＞ 倒找文本 (编辑框2.内容, “ ：”, , 假))
数组1 [3] ＝ 到文本 (到数值 (数组1 [3]) ＋ 按钮值1)
如果真 (数组1 [3] ＝ “60”)
数组1 [3] ＝ “0”
如果真 (数组1 [3] ＝ “-1”)
数组1 [3] ＝ “59”
编辑框2.内容 ＝ 数组1 [1] ＋ “时” ＋ 数组1 [2] ＋ “分” ＋ 数组1 [3] ＋ “秒”
编辑框2.起始选择位置 ＝ 寻找文本 (编辑框2.内容, “秒”, , 假) － 1



信息框 (“温馨提示：请点击要改变的时间部分！谢谢！”, 0, “请选择时间部分：”)

i支持库列表	支持库注释
iext	扩展界面支持库一
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮3_被单击<br /> <br /> .如果真 (标签9.标题 ＝ “”)<br />     信息框 (“温馨提示：请按浏览按钮选择启动路径，谢谢！”, 0, “请选择执行路径：”)<br />     返回 ()<br /> .如果真结束<br /> 超级列表框2.插入表项 (-1, , , , , )<br /> 超级列表框2.置标题 (超级列表框2.取表项数 () － 1, 0, 到文本 (超级列表框2.取表项数 ()))<br /> 超级列表框2.置标题 (超级列表框2.取表项数 () － 1, 1, 到文本 (取日期 (日期框1.今天)) ＋ 编辑框2.内容)<br /> 超级列表框2.置标题 (超级列表框2.取表项数 () － 1, 2, “未运行”)<br /> 超级列表框2.置标题 (超级列表框2.取表项数 () － 1, 3, 标签9.标题)<br /> <br /> <br /> <br /> .子程序 数组_输出<br /> <br /> <br /> <br /> .子程序 _超级列表框2_右键单击表项<br /> <br /> 弹出菜单 (右键超级列表, 取鼠标水平位置 (), 取鼠标垂直位置 ())<br /> <br /> <br /> .版本 2<br /> .支持库 iext<br /> .支持库 shell<br /> <br /> <br /> <br /> .子程序 _时钟2_周期事件<br /> .局部变量 i, 整数型<br /> <br /> <br /> 标签10.标题 ＝ 到文本 (取现行时间 ())<br /> .计次循环首 (超级列表框2.取表项数 (), i)<br />     .如果真 (超级列表框2.取标题 (i － 1, 1) ＝ 到文本 (取现行时间 ()))<br />         执行 (4, 超级列表框2.取标题 (i － 1, 3), , , 2)<br />         超级列表框2.置标题 (i － 1, 2, “已运行”)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> <br /> .子程序 _调节器2_调节钮被按下<br /> .参数 按钮值1, 整数型<br /> .局部变量 数组1, 文本型, , "0"<br /> <br /> <br /> .如果 (编辑框2.可有焦点 ())<br />     加入成员 (数组1, 取文本左边 (编辑框2.内容, 寻找文本 (编辑框2.内容, “时”, , 假) － 1))<br />     加入成员 (数组1, 取文本中间 (编辑框2.内容, 寻找文本 (编辑框2.内容, “时”, , 假) ＋ 2, 寻找文本 (编辑框2.内容, “分”, , 假) － 2 － 寻找文本 (编辑框2.内容, “时”, , 假)))<br />     加入成员 (数组1, 取文本中间 (编辑框2.内容, 寻找文本 (编辑框2.内容, “分”, , 假) ＋ 2, 取文本长度 (编辑框2.内容) － 寻找文本 (编辑框2.内容, “分”, , 假) － 3))<br />     .判断开始 (编辑框2.起始选择位置 ≤ 寻找文本 (编辑框2.内容, “时”, , 假))<br />         数组1 [1] ＝ 到文本 (到数值 (数组1 [1]) ＋ 按钮值1)<br />         .如果真 (数组1 [1] ＝ “24”)<br />             数组1 [1] ＝ “0”<br />         .如果真结束<br />         .如果真 (数组1 [1] ＝ “-1”)<br />             数组1 [1] ＝ “23”<br />         .如果真结束<br />         编辑框2.内容 ＝ 数组1 [1] ＋ “时” ＋ 数组1 [2] ＋ “分” ＋ 数组1 [3] ＋ “秒”<br />         编辑框2.起始选择位置 ＝ 寻找文本 (编辑框2.内容, “时”, , 假) － 1<br />     .判断 (编辑框2.起始选择位置 ＞ 寻找文本 (编辑框2.内容, “时”, , 假) 且 编辑框2.起始选择位置 ≤ 寻找文本 (编辑框2.内容, “分”, , 假))<br />         数组1 [2] ＝ 到文本 (到数值 (数组1 [2]) ＋ 按钮值1)<br />         .如果真 (数组1 [2] ＝ “60”)<br />             数组1 [2] ＝ “0”<br />         .如果真结束<br />         .如果真 (数组1 [2] ＝ “-1”)<br />             数组1 [2] ＝ “59”<br />         .如果真结束<br />         编辑框2.内容 ＝ 数组1 [1] ＋ “时” ＋ 数组1 [2] ＋ “分” ＋ 数组1 [3] ＋ “秒”<br />         编辑框2.起始选择位置 ＝ 寻找文本 (编辑框2.内容, “分”, , 假) － 1<br />     .判断 (编辑框2.起始选择位置 ＞ 倒找文本 (编辑框2.内容, “ ：”, , 假))<br />         数组1 [3] ＝ 到文本 (到数值 (数组1 [3]) ＋ 按钮值1)<br />         .如果真 (数组1 [3] ＝ “60”)<br />             数组1 [3] ＝ “0”<br />         .如果真结束<br />         .如果真 (数组1 [3] ＝ “-1”)<br />             数组1 [3] ＝ “59”<br />         .如果真结束<br />         编辑框2.内容 ＝ 数组1 [1] ＋ “时” ＋ 数组1 [2] ＋ “分” ＋ 数组1 [3] ＋ “秒”<br />         编辑框2.起始选择位置 ＝ 寻找文本 (编辑框2.内容, “秒”, , 假) － 1<br />     .默认<br /> <br />     .判断结束<br /> <br /> .否则<br />     信息框 (“温馨提示：请点击要改变的时间部分！谢谢！”, 0, “请选择时间部分：”)

===============这是定时后加入到列表框的源码== 现在是执行的==========

求高手 帮写下 变成 关闭这个程序的

374608888

求高手 帮写下 变成 关闭这个程序的