易语言软件运行检测工具源码
.版本 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, “友情提示”, )
.如果结束
ヽ(●-`Д´-)ノ…………………..这套源码好像是我写的,,,,,这里是和论坛互通的吗?
易语言判断软件是否运行源码
e语言检测程序运行