磁盘清理小工具 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

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

标签EX1.标题＝ “”

子程序名	返回值类型	公开	备注
_一键清理磁盘_鼠标左键单击	整数型
参数名	类型	参考	可空	数组	备注
坐标x	整数型
坐标y	整数型
保留参数1	整数型
保留参数2	整数型

变量名	类型	静态	数组	备注
本机用户名	文本型
时间戳差值	整数型
可能存在的WeChatFiles所在目录数组型路径	文本型		0
真实存在的WeChatFiles所在目录数组型路径	文本型		0
账号所在目录数组	文本型		0
缓存所在目录数组	文本型		0
缓存下级子目录	文本型		0
欲删除的缓存目录路径	文本型		0
欲删除的缓存文件路径	文本型		0
外部索引	整数型
内部索引	整数型
临时文本	文本型
时间格式化	文本型
QQ账号可能存在的目录	文本型		0
QQ账号所在目录文本	文本型
QQ账号所在目录	文本型		0
微E聊缓存目录	文本型		0
没用的目录	文本型		0

本机用户名＝系统_取用户名 ()
' 首先判断桌面文件是否过大::超过5个G如果超过5个G就建议

如果真 (目录_取大小 (“C:\Users\” ＋本机用户名＋ “\Desktop”) ＞ 5368709120)

信息框Ex (, “提示”, , “检测到当前目录大小超过5G,建议先将桌面文件放置空闲盘中,如果没空闲空间，当我没说”, , , , , , , )

' 用户点击按钮后,禁用按钮防止多次点击造成不必要的bug
一键清理磁盘.禁止＝真
一键清理磁盘.鼠标光标＝到字节集 (32648)
' 先结束要清理的软件进程
进程_终止进程 (“WeChat.exe”)
进程_终止进程 (“QQ.exe”)
延迟 (100)
' VX清理
' 1.先将文本变成数组
可能存在的WeChatFiles所在目录数组型路径＝分割文本 (目录_VX账号 (), “,”, )
' 2.找到真实存在的WeChat Files路径并将其保存在数组中

计次循环首 (取数组成员数 (可能存在的WeChatFiles所在目录数组型路径), 外部索引)

如果真 (目录_是否存在 (可能存在的WeChatFiles所在目录数组型路径 [外部索引]))

加入成员 (真实存在的WeChatFiles所在目录数组型路径, 可能存在的WeChatFiles所在目录数组型路径 [外部索引])

计次循环尾 ()
' 3.获取账号所在目录,并将其路径保存在数组中

计次循环首 (取数组成员数 (真实存在的WeChatFiles所在目录数组型路径), 外部索引)

目录_枚举子目录 (真实存在的WeChatFiles所在目录数组型路径 [外部索引], 账号所在目录数组, 真, 真)

计次循环尾 ()
' 4.过滤不符合条件的目录，因为All Users目录和Applet目录一般不会超过100M,所以100M以下就不删了,其实小于100M删了也没多大意义

计次循环首 (取数组成员数 (账号所在目录数组), 外部索引)

如果真 (目录_取大小 (账号所在目录数组 [外部索引]) ≥ 104857600 且目录_取大小 (账号所在目录数组 [外部索引]) ≤ 629145600)

标签EX1.标题＝ “正在清理缓存大于100M小于600M的账号” ＋账号所在目录数组 [外部索引]

目录_删除目录 (账号所在目录数组 [外部索引])

进度条EX1.位置＝进度条EX1.位置＋ 1

延迟 (100)

计次循环尾 ()
' 5.获得Cache,File,Image,Video所在目录,并保存在数组中

计次循环首 (取数组成员数 (账号所在目录数组), 外部索引)

如果真 (目录_是否存在 (账号所在目录数组 [外部索引] ＋ “\FileStorage\Cache”))

加入成员 (缓存所在目录数组, 账号所在目录数组 [外部索引] ＋ “\FileStorage\Cache”)

如果真 (目录_是否存在 (账号所在目录数组 [外部索引] ＋ “\FileStorage\File”))

加入成员 (缓存所在目录数组, 账号所在目录数组 [外部索引] ＋ “\FileStorage\File”)

如果真 (目录_是否存在 (账号所在目录数组 [外部索引] ＋ “\FileStorage\Image”))

加入成员 (缓存所在目录数组, 账号所在目录数组 [外部索引] ＋ “\FileStorage\Image”)

如果真 (目录_是否存在 (账号所在目录数组 [外部索引] ＋ “\FileStorage\Video”))

加入成员 (缓存所在目录数组, 账号所在目录数组 [外部索引] ＋ “\FileStorage\Video”)

计次循环尾 ()
' 6.获得2021-11这类目录的路径,并保存在数组中

计次循环首 (取数组成员数 (缓存所在目录数组), 外部索引)

目录_枚举子目录 (缓存所在目录数组 [外部索引], 缓存下级子目录, 真, 真)

计次循环尾 ()
' 7.过滤掉不符合条件的目录，如果超过一个月的聊天记录就删除。

计次循环首 (取数组成员数 (缓存下级子目录), 外部索引)

时间戳差值＝到数值 (时间_到时间戳 (, 真, )) －到数值 (时间_到时间戳 (目录_取创建时间 (缓存下级子目录 [外部索引]), 真, ))

' 如果说超过一个月的聊天记录就直接干掉完事:: 但是改进版的需要拿到下级文件的路径,所以这里不能直接执行删除操作

如果真 (到整数 (时间戳差值＼ 2678400) ≥ 1)

加入成员 (欲删除的缓存目录路径, 缓存下级子目录 [外部索引])

计次循环尾 ()
' 8.获得最终要删除的文件路径，完事

计次循环首 (取数组成员数 (欲删除的缓存目录路径), 外部索引)

文件_枚举1 (欲删除的缓存目录路径 [外部索引], “*.*”, &子程序1)

计次循环尾 ()
' 9.删除文件
欲删除的缓存文件路径＝分割文本 (欲删除的缓存文件路径文本, “,”, )

计次循环首 (取数组成员数 (欲删除的缓存文件路径), 外部索引)

标签EX1.标题＝ “正在清理” ＋欲删除的缓存文件路径 [外部索引]

文件_删除 (欲删除的缓存文件路径 [外部索引])

进度条EX1.位置＝进度条EX1.位置＋ 1

延迟 (10)

计次循环尾 ()
' 10.删除目录 ,这一步是因为只删除了下层文件，但目录并未删除，所以再删一遍。

计次循环首 (取数组成员数 (欲删除的缓存目录路径), 外部索引)

标签EX1.标题＝ “正在清理” ＋欲删除的缓存目录路径 [外部索引]

目录_删除目录 (欲删除的缓存目录路径 [外部索引])

进度条EX1.位置＝进度条EX1.位置＋ 1

延迟 (100)

计次循环尾 ()
' 为何要遍历到根目录加延迟，想着是为了防止卡死，但是不知道有没有效果。试试呗
' QQ清理
' 1.将可能存在的 Tencent Files目录存为一个数组
QQ账号可能存在的目录＝分割文本 (目录_QQ缓存 (), “,”, )
' 2.过滤出存在的Tencent Files目录,并将其下级子目录获取到存入文本中

计次循环首 (取数组成员数 (QQ账号可能存在的目录), 外部索引)

如果真 (目录_是否存在 (QQ账号可能存在的目录 [外部索引]))

QQ账号所在目录文本＝ QQ账号所在目录文本＋目录_取下级子目录路径 (QQ账号可能存在的目录 [外部索引]) ＋ “,”

计次循环尾 ()
' 3.将QQ账号所在目录文本转换为数组::QQ就不往下遍历了，太繁琐了
QQ账号所在目录＝分割文本 (QQ账号所在目录文本, “,”, )

计次循环首 (取数组成员数 (QQ账号所在目录), 外部索引)

如果真 (目录_取大小 (QQ账号所在目录 [外部索引]) ≥ 104857600)

标签EX1.标题＝ “正在清理” ＋ QQ账号所在目录 [外部索引]

目录_删除目录 (QQ账号所在目录 [外部索引])

进度条EX1.位置＝进度条EX1.位置＋ 1

延迟 (30)

计次循环尾 ()
' 微E聊清理
' 1.将可能存在的微E聊缓存目录转换为数组
微E聊缓存目录＝分割文本 (目录_微E聊缓存 (), “,”, )
' 2.循环遍历，如果存在直接干就完事了

计次循环首 (取数组成员数 (微E聊缓存目录), 外部索引)

如果真 (目录_是否存在 (微E聊缓存目录 [外部索引]))

标签EX1.标题＝ “正在清理” ＋微E聊缓存目录 [外部索引]

目录_强力清空 (微E聊缓存目录 [外部索引])

进度条EX1.位置＝进度条EX1.位置＋ 1

延迟 (30)

计次循环尾 ()
' 没用的目录清理
' 1.将可能存在的没用的目录转换为数组
没用的目录＝分割文本 (目录_没用的目录 (), “,”, )
' 2.直接删除存在的目录即可

计次循环首 (取数组成员数 (没用的目录), 外部索引)

如果真 (目录_是否存在 (没用的目录 [外部索引]))

标签EX1.标题＝ “正在清理” ＋没用的目录 [外部索引]

目录_删除目录 (没用的目录 [外部索引])

进度条EX1.位置＝进度条EX1.位置＋ 1

延迟 (30)

计次循环尾 ()
' 系统临时文件清理 :: 等等让我想想怎么清理
标签EX1.标题＝ “正在清理回收站”
系统_清空回收站 (假)
延迟 (30)
标签EX1.标题＝ “正在清理系统临时目录”
系统_清空系统临时目录 ()
延迟 (30)
标签EX1.标题＝ “正在清理” ＋ “C:\Users\” ＋本机用户名＋ “\AppData\Local\Temp”
目录_强力清空 (“C:\Users\” ＋本机用户名＋ “\AppData\Local\Temp”)
延迟 (30)
' 最后给个判断,如果

如果真 (进度条EX1.位置＜ 100)

进度条EX1.位置＝ 100

标签EX1.标题＝ “清理完成”
信息框Ex (, “提示”, , “清理完成”, , , , , , , )

子程序名	返回值类型	公开	备注
子程序1
参数名	类型	参考	可空	数组	备注
目录	文本型
文件名	文本型

欲删除的缓存文件路径文本＝欲删除的缓存文件路径文本＋目录＋文件名＋ “,”

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

标签EX2.左边＝标签EX2.左边－ 2

判断 (标签EX2.左边＝ 0 －标签EX2.宽度)

标签EX2.左边＝ _启动窗口.宽度

i支持库列表	支持库注释
ExuiKrnln	(未知支持库)
spec	特殊功能支持库

.版本 2<br />
.支持库 ExuiKrnln<br />
.支持库 spec<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
标签EX1.标题 ＝ “”<br />
<br />
.子程序 _一键清理磁盘_鼠标左键单击, 整数型<br />
.参数 坐标x, 整数型<br />
.参数 坐标y, 整数型<br />
.参数 保留参数1, 整数型<br />
.参数 保留参数2, 整数型<br />
.局部变量 本机用户名, 文本型<br />
.局部变量 时间戳差值, 整数型<br />
.局部变量 可能存在的WeChatFiles所在目录数组型路径, 文本型, , "0"<br />
.局部变量 真实存在的WeChatFiles所在目录数组型路径, 文本型, , "0"<br />
.局部变量 账号所在目录数组, 文本型, , "0"<br />
.局部变量 缓存所在目录数组, 文本型, , "0"<br />
.局部变量 缓存下级子目录, 文本型, , "0"<br />
.局部变量 欲删除的缓存目录路径, 文本型, , "0"<br />
.局部变量 欲删除的缓存文件路径, 文本型, , "0"<br />
.局部变量 外部索引, 整数型<br />
.局部变量 内部索引, 整数型<br />
.局部变量 临时文本, 文本型<br />
.局部变量 时间格式化, 文本型<br />
.局部变量 QQ账号可能存在的目录, 文本型, , "0"<br />
.局部变量 QQ账号所在目录文本, 文本型<br />
.局部变量 QQ账号所在目录, 文本型, , "0"<br />
.局部变量 微E聊缓存目录, 文本型, , "0"<br />
.局部变量 没用的目录, 文本型, , "0"<br />
<br />
<br />
本机用户名 ＝ 系统_取用户名 ()<br />
<br />
' 首先判断桌面文件是否过大::超过5个G如果超过5个G就建议<br />
.如果真 (目录_取大小 (“C:\Users\” ＋ 本机用户名 ＋ “\Desktop”) ＞ 5368709120)<br />
    信息框Ex (, “提示”, , “检测到当前目录大小超过5G,建议先将桌面文件放置空闲盘中,如果没空闲空间，当我没说”, , , , , , , )<br />
.如果真结束<br />
<br />
' 用户点击按钮后,禁用按钮 防止多次点击造成不必要的bug<br />
一键清理磁盘.禁止 ＝ 真<br />
一键清理磁盘.鼠标光标 ＝ 到字节集 (32648)<br />
<br />
' 先结束要清理的软件进程<br />
进程_终止进程 (“WeChat.exe”)<br />
进程_终止进程 (“QQ.exe”)<br />
延迟 (100)<br />
<br />
' VX清理<br />
' 1.先将文本变成数组<br />
可能存在的WeChatFiles所在目录数组型路径 ＝ 分割文本 (目录_VX账号 (), “,”, )<br />
<br />
' 2.找到真实存在的WeChat Files路径并将其保存在数组中<br />
.计次循环首 (取数组成员数 (可能存在的WeChatFiles所在目录数组型路径), 外部索引)<br />
    .如果真 (目录_是否存在 (可能存在的WeChatFiles所在目录数组型路径 [外部索引]))<br />
        加入成员 (真实存在的WeChatFiles所在目录数组型路径, 可能存在的WeChatFiles所在目录数组型路径 [外部索引])<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
<br />
' 3.获取账号所在目录,并将其路径保存在数组中<br />
.计次循环首 (取数组成员数 (真实存在的WeChatFiles所在目录数组型路径), 外部索引)<br />
    目录_枚举子目录 (真实存在的WeChatFiles所在目录数组型路径 [外部索引], 账号所在目录数组, 真, 真)<br />
.计次循环尾 ()<br />
<br />
' 4.过滤不符合条件的目录，因为All Users目录和Applet目录一般不会超过100M,所以100M以下就不删了,其实小于100M删了也没多大意义<br />
.计次循环首 (取数组成员数 (账号所在目录数组), 外部索引)<br />
    .如果真 (目录_取大小 (账号所在目录数组 [外部索引]) ≥ 104857600 且 目录_取大小 (账号所在目录数组 [外部索引]) ≤ 629145600)<br />
        标签EX1.标题 ＝ “正在清理缓存大于100M小于600M的账号” ＋ 账号所在目录数组 [外部索引]<br />
        目录_删除目录 (账号所在目录数组 [外部索引])<br />
        进度条EX1.位置 ＝ 进度条EX1.位置 ＋ 1<br />
        延迟 (100)<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
<br />
' 5.获得Cache,File,Image,Video所在目录,并保存在数组中<br />
.计次循环首 (取数组成员数 (账号所在目录数组), 外部索引)<br />
    .如果真 (目录_是否存在 (账号所在目录数组 [外部索引] ＋ “\FileStorage\Cache”))<br />
        加入成员 (缓存所在目录数组, 账号所在目录数组 [外部索引] ＋ “\FileStorage\Cache”)<br />
<br />
    .如果真结束<br />
    .如果真 (目录_是否存在 (账号所在目录数组 [外部索引] ＋ “\FileStorage\File”))<br />
        加入成员 (缓存所在目录数组, 账号所在目录数组 [外部索引] ＋ “\FileStorage\File”)<br />
<br />
    .如果真结束<br />
    .如果真 (目录_是否存在 (账号所在目录数组 [外部索引] ＋ “\FileStorage\Image”))<br />
        加入成员 (缓存所在目录数组, 账号所在目录数组 [外部索引] ＋ “\FileStorage\Image”)<br />
<br />
    .如果真结束<br />
    .如果真 (目录_是否存在 (账号所在目录数组 [外部索引] ＋ “\FileStorage\Video”))<br />
        加入成员 (缓存所在目录数组, 账号所在目录数组 [外部索引] ＋ “\FileStorage\Video”)<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
<br />
' 6.获得2021-11这类目录的路径,并保存在数组中<br />
.计次循环首 (取数组成员数 (缓存所在目录数组), 外部索引)<br />
    目录_枚举子目录 (缓存所在目录数组 [外部索引], 缓存下级子目录, 真, 真)<br />
.计次循环尾 ()<br />
<br />
' 7.过滤掉不符合条件的目录，如果超过一个月的聊天记录就删除。<br />
.计次循环首 (取数组成员数 (缓存下级子目录), 外部索引)<br />
    时间戳差值 ＝ 到数值 (时间_到时间戳 (, 真, )) － 到数值 (时间_到时间戳 (目录_取创建时间 (缓存下级子目录 [外部索引]), 真, ))<br />
    ' 如果说超过一个月的聊天记录就直接干掉完事:: 但是改进版的需要拿到下级文件的路径,所以这里不能直接执行删除操作<br />
    .如果真 (到整数 (时间戳差值 ＼ 2678400) ≥ 1)<br />
        加入成员 (欲删除的缓存目录路径, 缓存下级子目录 [外部索引])<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
<br />
' 8.获得最终要删除的文件路径，完事<br />
.计次循环首 (取数组成员数 (欲删除的缓存目录路径), 外部索引)<br />
    文件_枚举1 (欲删除的缓存目录路径 [外部索引], “*.*”, &子程序1)<br />
.计次循环尾 ()<br />
<br />
' 9.删除文件<br />
欲删除的缓存文件路径 ＝ 分割文本 (欲删除的缓存文件路径文本, “,”, )<br />
.计次循环首 (取数组成员数 (欲删除的缓存文件路径), 外部索引)<br />
    标签EX1.标题 ＝ “正在清理” ＋ 欲删除的缓存文件路径 [外部索引]<br />
    文件_删除 (欲删除的缓存文件路径 [外部索引])<br />
    进度条EX1.位置 ＝ 进度条EX1.位置 ＋ 1<br />
    延迟 (10)<br />
.计次循环尾 ()<br />
<br />
' 10.删除目录 ,这一步是因为只删除了下层文件，但目录并未删除，所以再删一遍。<br />
.计次循环首 (取数组成员数 (欲删除的缓存目录路径), 外部索引)<br />
    标签EX1.标题 ＝ “正在清理” ＋ 欲删除的缓存目录路径 [外部索引]<br />
    目录_删除目录 (欲删除的缓存目录路径 [外部索引])<br />
    进度条EX1.位置 ＝ 进度条EX1.位置 ＋ 1<br />
    延迟 (100)<br />
.计次循环尾 ()<br />
' 为何要遍历到根目录加延迟，想着是为了防止卡死，但是不知道有没有效果。试试呗<br />
<br />
<br />
<br />
' QQ清理<br />
' 1.将可能存在的 Tencent Files目录存为一个数组<br />
QQ账号可能存在的目录 ＝ 分割文本 (目录_QQ缓存 (), “,”, )<br />
<br />
' 2.过滤出存在的Tencent Files目录,并将其下级子目录获取到存入文本中<br />
.计次循环首 (取数组成员数 (QQ账号可能存在的目录), 外部索引)<br />
    .如果真 (目录_是否存在 (QQ账号可能存在的目录 [外部索引]))<br />
        QQ账号所在目录文本 ＝ QQ账号所在目录文本 ＋ 目录_取下级子目录路径 (QQ账号可能存在的目录 [外部索引]) ＋ “,”<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
<br />
' 3.将QQ账号所在目录文本转换为数组::QQ就不往下遍历了，太繁琐了<br />
QQ账号所在目录 ＝ 分割文本 (QQ账号所在目录文本, “,”, )<br />
<br />
.计次循环首 (取数组成员数 (QQ账号所在目录), 外部索引)<br />
<br />
    .如果真 (目录_取大小 (QQ账号所在目录 [外部索引]) ≥ 104857600)<br />
        标签EX1.标题 ＝ “正在清理” ＋ QQ账号所在目录 [外部索引]<br />
        目录_删除目录 (QQ账号所在目录 [外部索引])<br />
        进度条EX1.位置 ＝ 进度条EX1.位置 ＋ 1<br />
        延迟 (30)<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
<br />
' 微E聊清理<br />
' 1.将可能存在的微E聊缓存目录转换为数组<br />
微E聊缓存目录 ＝ 分割文本 (目录_微E聊缓存 (), “,”, )<br />
<br />
' 2.循环遍历，如果存在直接干就完事了<br />
.计次循环首 (取数组成员数 (微E聊缓存目录), 外部索引)<br />
    .如果真 (目录_是否存在 (微E聊缓存目录 [外部索引]))<br />
        标签EX1.标题 ＝ “正在清理” ＋ 微E聊缓存目录 [外部索引]<br />
        目录_强力清空 (微E聊缓存目录 [外部索引])<br />
        进度条EX1.位置 ＝ 进度条EX1.位置 ＋ 1<br />
        延迟 (30)<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
<br />
<br />
' 没用的目录清理<br />
' 1.将可能存在的没用的目录转换为数组<br />
没用的目录 ＝ 分割文本 (目录_没用的目录 (), “,”, )<br />
<br />
' 2.直接删除存在的目录即可<br />
.计次循环首 (取数组成员数 (没用的目录), 外部索引)<br />
    .如果真 (目录_是否存在 (没用的目录 [外部索引]))<br />
        标签EX1.标题 ＝ “正在清理” ＋ 没用的目录 [外部索引]<br />
        目录_删除目录 (没用的目录 [外部索引])<br />
        进度条EX1.位置 ＝ 进度条EX1.位置 ＋ 1<br />
        延迟 (30)<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
<br />
<br />
' 系统临时文件清理 :: 等等让我想想怎么清理<br />
<br />
标签EX1.标题 ＝ “正在清理 回收站”<br />
系统_清空回收站 (假)<br />
延迟 (30)<br />
<br />
标签EX1.标题 ＝ “正在清理 系统临时目录”<br />
系统_清空系统临时目录 ()<br />
延迟 (30)<br />
<br />
标签EX1.标题 ＝ “正在清理” ＋ “C:\Users\” ＋ 本机用户名 ＋ “\AppData\Local\Temp”<br />
目录_强力清空 (“C:\Users\” ＋ 本机用户名 ＋ “\AppData\Local\Temp”)<br />
延迟 (30)<br />
<br />
' 最后给个判断,如果<br />
.如果真 (进度条EX1.位置 ＜ 100)<br />
    进度条EX1.位置 ＝ 100<br />
.如果真结束<br />
<br />
标签EX1.标题 ＝ “清理完成”<br />
信息框Ex (, “提示”, , “清理完成”, , , , , , , )<br />
<br />
<br />
.子程序 子程序1<br />
.参数 目录, 文本型<br />
.参数 文件名, 文本型<br />
<br />
欲删除的缓存文件路径文本 ＝ 欲删除的缓存文件路径文本 ＋ 目录 ＋ 文件名 ＋ “,”<br />
<br />
.子程序 _时钟1_周期事件<br />
<br />
标签EX2.左边 ＝ 标签EX2.左边 － 2<br />
.判断开始 (标签EX2.左边 ＝ 0 － 标签EX2.宽度)<br />
    标签EX2.左边 ＝ _启动窗口.宽度<br />
.默认<br />
<br />
.判断结束