易语言软件运行检测工具源码

易语言软件运行检测工具源码

@五杀

.版本 2

.子程序 _时钟1_周期事件
.局部变量 i, 整数型
.局部变量 句柄数组, 整数型, , "0"
.局部变量 局_句柄, 整数型
.局部变量 局_句柄2, 整数型
.局部变量 s, 整数型
.局部变量 判断的窗口数组, 整数型, , "0"
.局部变量 f, 整数型
.局部变量 非法程序数组, 整数型, , "0"
.局部变量 非法程序句柄数组, 整数型, , "0"
.局部变量 ff, 整数型

.如果 (局_句柄 ＝ 窗口_取句柄 (, , “可自己修改”, “可自己修改”))  ' 需要判断的窗口类名和标题。可以自己修改，精益助手获取
    ' 程序未运行就执行
.否则
    ' 程序运行就执行
    清除数组 (判断的窗口数组)  ' 需要关闭的窗口数组
    枚举窗口 (句柄数组)
    .计次循环首 (取数组成员数 (句柄数组), i)

        .如果真 (取标题 (句柄数组 [i]) ＝ “可自己修改”)  ' 程序的句柄。
            加入成员 (判断的窗口数组, 句柄数组 [i])
        .如果真结束

    .计次循环尾 ()
    s ＝ 0
    .计次循环首 (取数组成员数 (判断的窗口数组), s)

        窗口销毁 (判断的窗口数组 [s])

    .计次循环尾 ()
    清除数组 (非法程序数组)
    枚举窗口 (非法程序句柄数组)  ' 枚举所有辅助程序。
    .计次循环首 (取数组成员数 (非法程序句柄数组), ff)

        .如果真 (取标题 (非法程序句柄数组 [ff]) ＝ “可自己修改”)  ' 程序的句柄。
            加入成员 (非法程序数组, 非法程序句柄数组 [ff])
        .如果真结束

    .计次循环尾 ()

    f ＝ 0
    .计次循环首 (取数组成员数 (非法程序数组), f)

        窗口销毁 (非法程序数组 [f])

    .计次循环尾 ()

    信息框 (“检测到非法程序，请关闭！”, 0, “友情提示”, )

.如果结束

.如果 (局_句柄 ＝ 窗口_取句柄 (, , “可自己修改”, “可自己修改”))  ' 需要判断的窗口类名和标题。可以自己修改，精益助手获取，这个和上面那个一样，只是有两个程序我写了两段，新手不知道如何优化，勿喷，哈哈哈~
    ' 程序未运行就执行
    ' 程序运行就执行
.否则
    清除数组 (判断的窗口数组)
    枚举窗口 (句柄数组)
    .计次循环首 (取数组成员数 (句柄数组), i)

        .如果真 (取标题 (句柄数组 [i]) ＝ “可自己修改”)  ' 程序的句柄。
            加入成员 (判断的窗口数组, 句柄数组 [i])
        .如果真结束

    .计次循环尾 ()
    s ＝ 0
    .计次循环首 (取数组成员数 (判断的窗口数组), s)

        窗口销毁 (判断的窗口数组 [s])

    .计次循环尾 ()

    信息框 (“检测到非法程序，请关闭！”, 0, “友情提示”, )

.如果结束