精易模块 进程_名取句柄

汉族

      由于  用到了 这个命令  发现 很慢  结果 看了代码 发现  是由于方案写法太死板了。且 默认 还要  100毫秒的时间 处理，个人模块版本是  6.3，打开源码版本是6.8[也没有优化改善]



优化方案 可以直接  毫秒显示 不等待……当然 可能存在优化，建议收录；
无任何3方库，直接精易模块命令和核心库


本人的优化写法是  ：(刚才的 句柄 显示 非  主窗口  所以 这次优化 修改了一下)

  

子程序名	返回值类型	公开	备 注
进程名取句柄	整数型		支持单个  汉族   响应时间10毫秒多  比 精易原版要快8-10倍
参数名	类 型	参考	可空	数组	备 注
进程名	文本型

变量名	类 型	静态	数组	备 注
window	精易_窗口信息		0
pcs	整数型
a	整数型
jcmz	文本型		0
pidz	整数型		0
hwnd	整数型
tp	整数型

pcs ＝ 进程_枚举 (jcmz, pidz)
计次循环首 (pcs, a)
如果真 (进程名 ＝ jcmz [a])  ' 存在多个进程 这个 就得自己判断了  比如枚举进程数组判断  这是单处理子程序
tp ＝ pidz [a]‘如果 后面 加   跳出循环（）   就是取第一个出现的位置
处理事件 ()
计次循环尾 ()
pcs ＝ 窗口_枚举 (window)
计次循环首 (pcs, a)
如果真 (window [a].进程ID ＝ tp)
hwnd ＝ 窗口_取祖句柄 (window [a].窗口句柄)
跳出循环 ()
处理事件 ()
计次循环尾 ()
返回 (hwnd)

.版本 2<br /> <br /> .子程序 进程名取句柄, 整数型, , 支持单个  汉族   响应时间10毫秒多  比 精易原版要快8-10倍<br /> .参数 进程名, 文本型<br /> .局部变量 window, 精易_窗口信息, , "0"<br /> .局部变量 pcs, 整数型<br /> .局部变量 a, 整数型<br /> .局部变量 jcmz, 文本型, , "0"<br /> .局部变量 pidz, 整数型, , "0"<br /> .局部变量 hwnd, 整数型<br /> .局部变量 tp, 整数型<br /> <br /> pcs ＝ 进程_枚举 (jcmz, pidz)<br /> .计次循环首 (pcs, a)<br />     .如果真 (进程名 ＝ jcmz [a])  ' 存在多个进程 这个 就得自己判断了  比如枚举进程数组判断  这是单处理子程序<br />         tp ＝ pidz [a]‘如果 后面 加   跳出循环（）   就是取第一个出现的位置<br />     .如果真结束<br />     处理事件 ()<br /> .计次循环尾 ()<br /> pcs ＝ 窗口_枚举 (window)<br /> .计次循环首 (pcs, a)<br />     .如果真 (window [a].进程ID ＝ tp)<br />         hwnd ＝ 窗口_取祖句柄 (window [a].窗口句柄)<br />         跳出循环 ()<br />     .如果真结束<br />     处理事件 ()<br /> .计次循环尾 ()<br /> 返回 (hwnd)

增加 针对多个相同进程 的取法

  

子程序名	返回值类型	公开	备 注
进程名取句柄	整数型		支持单个  汉族   响应时间10毫秒多  比 精易原版要快8-10倍
参数名	类 型	参考	可空	数组	备 注
进程名	文本型
PID	整数型				为了更加精准定位每个不同进程句柄   必须和 进程对应

变量名	类 型	静态	数组	备 注
window	精易_窗口信息		0
pcs	整数型
a	整数型
jcmz	文本型		0
pidz	整数型		0
hwnd	整数型
tp	整数型

pcs ＝ 进程_枚举 (jcmz, pidz)
计次循环首 (pcs, a)
如果真 (进程名 ＝ jcmz [a])  ' 存在多个进程 这个 就得自己判断了  比如枚举进程数组判断  这是单处理子程序
tp ＝ pidz [a]
如果真 (是否为空 (PID) ≠ 真)  ' 表示纯在值
如果真 (PID ＝ pidz [a])
tp ＝ pidz [a]
跳出循环 ()


处理事件 ()
计次循环尾 ()
' 调试输出 (tp, “PID”)
pcs ＝ 窗口_枚举 (window)
计次循环首 (pcs, a)
如果真 (window [a].进程ID ＝ tp)
hwnd ＝ 窗口_取祖句柄 (window [a].窗口句柄)
跳出循环 ()
处理事件 ()
计次循环尾 ()
返回 (hwnd)

.版本 2<br /> <br /> .子程序 进程名取句柄, 整数型, , 支持单个  汉族   响应时间10毫秒多  比 精易原版要快8-10倍<br /> .参数 进程名, 文本型<br /> .参数 PID, 整数型, 可空, 为了更加精准定位每个不同进程句柄   必须和 进程对应<br /> .局部变量 window, 精易_窗口信息, , "0"<br /> .局部变量 pcs, 整数型<br /> .局部变量 a, 整数型<br /> .局部变量 jcmz, 文本型, , "0"<br /> .局部变量 pidz, 整数型, , "0"<br /> .局部变量 hwnd, 整数型<br /> .局部变量 tp, 整数型<br /> <br /> pcs ＝ 进程_枚举 (jcmz, pidz)<br /> .计次循环首 (pcs, a)<br />     .如果真 (进程名 ＝ jcmz [a])  ' 存在多个进程 这个 就得自己判断了  比如枚举进程数组判断  这是单处理子程序<br />         tp ＝ pidz [a]<br />         .如果真 (是否为空 (PID) ≠ 真)  ' 表示纯在值<br />             .如果真 (PID ＝ pidz [a])<br />                 tp ＝ pidz [a]<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br />     处理事件 ()<br /> .计次循环尾 ()<br /> ' 调试输出 (tp, “PID”)<br /> pcs ＝ 窗口_枚举 (window)<br /> .计次循环首 (pcs, a)<br />     .如果真 (window [a].进程ID ＝ tp)<br />         hwnd ＝ 窗口_取祖句柄 (window [a].窗口句柄)<br />         跳出循环 ()<br />     .如果真结束<br />     处理事件 ()<br /> .计次循环尾 ()<br /> 返回 (hwnd)

附上测试代码： 后台模式.e (689.02 KB, 下载次数: 46)

2018-12-17 12:46 上传

点击文件名下载附件

项目部002

已收录，感谢分享

Bong

错了错了 我用的不是这个命令。我给忘了。我用的是ID取句柄