易语言新手小白学习dm

he3811

.版本 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
.判断循环尾 ()

小齐啊

支持分享

pipicool

学习一下

zaozi

学习了，谢谢楼主

查过

全都是大佬~

豆豆灰常开心

下个学习一下

一指温柔

感谢分享

按键大师

#在这里快速回复#6666666666666666666

枫叶成霜

我这么多年的手了，都看不懂。

ZHuanR

我这么多年的手了，都看不懂。