|
分享源码
界面截图: |
- |
是否带模块: |
- |
备注说明: |
- |
.版本 2
.支持库 iext
.子程序 _启动全部_被单击
.局部变量 hwnds, 文本型
.局部变量 hwnd_array, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 hwnd, 整数型
hwnds = 全局大漠.EnumWindowByProcess (“notepad.exe”, “无标题 - 记事本”, “”, 1 + 8 + 16 + 32)
.如果真 (取文本长度 (hwnds) = 0)
日志输出 (“枚举窗口失败”)
返回 ()
.如果真结束
hwnd_array = 分割文本 (hwnds, “,”, )
.计次循环首 (取数组成员数 (hwnd_array), i)
hwnd = 到整数 (hwnd_array [i ])
hwnd = 全局大漠.GetWindow (hwnd, 1)
.如果真 (多线程_启动 (hwnd) = 假)
全局大漠.TerminateProcess (全局大漠.GetWindowProcessId (hwnd))
.如果真结束
.计次循环尾 ()
.子程序 _停止全部_被单击
.局部变量 列表索引, 整数型
.局部变量 主序号, 整数型
.局部变量 总共表项数, 整数型
.局部变量 i, 整数型
总共表项数 = 窗口列表.取表项数 ()
.如果真 (总共表项数 = 0)
日志输出 (“没有窗口”)
返回 ()
.如果真结束
i = 总共表项数 - 1
' 先全部设置结束标记,这样可加快结束的速度
.判断循环首 (i ≥ 0)
列表索引 = i
主序号 = 到整数 (窗口列表.取标题 (列表索引, 2))
多线程_设置结束标记 (主序号)
i = i - 1
.判断循环尾 ()
' 这里我们从最后一个开始,因为结束时,会删除表项
i = 总共表项数 - 1
.判断循环首 (i ≥ 0)
列表索引 = i
主序号 = 到整数 (窗口列表.取标题 (列表索引, 2))
多线程_结束 (主序号)
i = i - 1
.判断循环尾 ()
|
|