精易论坛

标题: 易语言新手小白学习dm [打印本页]

作者: he3811 时间: 2023-11-10 21:41
标题: 易语言新手小白学习dm

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

多线程.png (24.84 KB, 下载次数: 0)