我需要一个监控文件大小的功能

1015441689

兄弟们，我发现我的一些 .exe 中了病毒，当我将他们打开之后，就会立即感染我的【易语言】程序的 【e.exe】文件，当我打开我的正常源代码的时候，就会提示【 我上传的图片】。

我想写一个程序，自动监控我的【易语言】e.exe 文件大小，当我打开其他程序的时候，就会立刻出现提示框，告诉我当前我打开的 文件感染了 易语言。

简称：我需要一个监控文件大小的功能

拜托各位论坛的大神了！！！！

飞羽软件

找个合适的 自校验 ,https://bbs.ijingyi.com/search.h ... %E9%AA%8C&fid=0

youximeng88

你这是中蠕虫了

白宝宝

蠕虫,去吾爱找一下专杀的工具 火绒貌似也可以,不太记得 建议2个一起使用,先杀蠕虫再用火绒! 别写什么检测大小了,中毒了还写这干嘛

杰西卡技术传媒

属性改为只读

bttp0059

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
监控路径	文本型
基准大小	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

如果 (文件是否存在 (取运行目录 () ＋ “\watch.ini”))  ' 尝试加载上次保存的配置，若没有则选择
读取配置 ()
按钮1.可视 ＝ 真

时钟1.时钟周期 ＝ 0

子程序名	返回值类型	公开	备 注
_按钮1_被单击

通用对话框1.过滤器 ＝ “可执行文件(*.exe)|*.exe”
通用对话框1.打开 ()
如果真 (通用对话框1.文件名 ≠ “”)
监控路径 ＝ 通用对话框1.文件名
基准大小 ＝ 到文本 (取文件尺寸 (监控路径))
编辑框1.内容 ＝ 监控路径
标签1.标题 ＝ “文件已选择，大小：” ＋ 基准大小
保存配置 (监控路径, 基准大小)
时钟1.时钟周期 ＝ 3000  ' 启动监控

子程序名	返回值类型	公开	备 注
保存配置
参数名	类 型	参考	可空	数组	备 注
路径	文本型
大小	文本型

写到文件 (取运行目录 () ＋ “\watch.ini”, 到字节集 (路径 ＋ “|” ＋ 大小))

子程序名	返回值类型	公开	备 注
读取配置

变量名	类 型	静态	数组	备 注
内容	文本型
分隔位置	整数型

内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\watch.ini”))
如果真 (内容 ＝ “”)
返回 ()

分隔位置 ＝ 倒找文本 (内容, “|”, , 假)
如果真 (分隔位置 ≠ -1)
监控路径 ＝ 取文本左边 (内容, 分隔位置 － 1)
基准大小 ＝ 取文本右边 (内容, 取文本长度 (内容) － 分隔位置)
如果 (文件是否存在 (监控路径))
编辑框1.内容 ＝ 监控路径
标签1.标题 ＝ “上次大小：” ＋ 基准大小 ＋ #换行符 ＋ “当前大小：” ＋ 到文本 (取文件尺寸 (监控路径))
时钟1.时钟周期 ＝ 3000
标签1.标题 ＝ “监控的文件已不存在”

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
当前大小	文本型

时钟1.时钟周期 ＝ 0  ' 防止事件重入
如果 (文件是否存在 (监控路径))
当前大小 ＝ 到文本 (取文件尺寸 (监控路径))
标签1.标题 ＝ “上次大小（基准）：” ＋ 基准大小 ＋ #换行符 ＋ “当前大小：” ＋ 当前大小
如果真 (基准大小 ≠ 当前大小)
信息框 (“警告：文件已被篡改，监控已自动停止，请人工检查！”, #错误图标, “安全警报”, )  ' 立刻停止监控，不更新基准，不保存配置
时钟1.时钟周期 ＝ 0
返回 ()

标签1.标题 ＝ “监控的文件已不存在，停止监控”
返回 ()
时钟1.时钟周期 ＝ 3000  ' 正常情况重新开启时钟

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 监控路径, 文本型<br /> .程序集变量 基准大小, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> .如果 (文件是否存在 (取运行目录 () ＋ “\watch.ini”))  ' 尝试加载上次保存的配置，若没有则选择<br />     读取配置 ()<br /> .否则<br />     按钮1.可视 ＝ 真<br /> .如果结束<br /> <br /> 时钟1.时钟周期 ＝ 0<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 通用对话框1.过滤器 ＝ “可执行文件(*.exe)|*.exe”<br /> 通用对话框1.打开 ()<br /> .如果真 (通用对话框1.文件名 ≠ “”)<br />     监控路径 ＝ 通用对话框1.文件名<br />     基准大小 ＝ 到文本 (取文件尺寸 (监控路径))<br />     编辑框1.内容 ＝ 监控路径<br />     标签1.标题 ＝ “文件已选择，大小：” ＋ 基准大小<br />     保存配置 (监控路径, 基准大小)<br />     时钟1.时钟周期 ＝ 3000  ' 启动监控<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 保存配置<br /> .参数 路径, 文本型<br /> .参数 大小, 文本型<br /> <br /> 写到文件 (取运行目录 () ＋ “\watch.ini”, 到字节集 (路径 ＋ “|” ＋ 大小))<br /> <br /> .子程序 读取配置<br /> .局部变量 内容, 文本型<br /> .局部变量 分隔位置, 整数型<br /> <br /> 内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\watch.ini”))<br /> .如果真 (内容 ＝ “”)<br />     返回 ()<br /> .如果真结束<br /> <br /> 分隔位置 ＝ 倒找文本 (内容, “|”, , 假)<br /> .如果真 (分隔位置 ≠ -1)<br />     监控路径 ＝ 取文本左边 (内容, 分隔位置 － 1)<br />     基准大小 ＝ 取文本右边 (内容, 取文本长度 (内容) － 分隔位置)<br />     .如果 (文件是否存在 (监控路径))<br />         编辑框1.内容 ＝ 监控路径<br />         标签1.标题 ＝ “上次大小：” ＋ 基准大小 ＋ #换行符 ＋ “当前大小：” ＋ 到文本 (取文件尺寸 (监控路径))<br />         时钟1.时钟周期 ＝ 3000<br />     .否则<br />         标签1.标题 ＝ “监控的文件已不存在”<br />     .如果结束<br /> <br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 当前大小, 文本型<br /> <br /> 时钟1.时钟周期 ＝ 0  ' 防止事件重入<br /> .如果 (文件是否存在 (监控路径))<br />     当前大小 ＝ 到文本 (取文件尺寸 (监控路径))<br />     标签1.标题 ＝ “上次大小（基准）：” ＋ 基准大小 ＋ #换行符 ＋ “当前大小：” ＋ 当前大小<br />     .如果真 (基准大小 ≠ 当前大小)<br /> <br />         信息框 (“警告：文件已被篡改，监控已自动停止，请人工检查！”, #错误图标, “安全警报”, )  ' 立刻停止监控，不更新基准，不保存配置<br />         时钟1.时钟周期 ＝ 0<br />         返回 ()<br />     .如果真结束<br /> <br /> .否则<br />     标签1.标题 ＝ “监控的文件已不存在，停止监控”<br />     返回 ()<br /> .如果结束<br /> 时钟1.时钟周期 ＝ 3000  ' 正常情况重新开启时钟

呐,  AI写的

cxl

装上火绒吧 对易语言还算你友好不会一直乱杀