磁盘清理小工具

WuKai198786

反正这个是自己写的，一个小白。大部分功能都是调用的官方模块。大家看看还有没有什么需要修改的功能，我完善一下
这里说下用到的相关模块
官方:精易模块[v9.4.5]
自写:子目录相关操作,VX缓存目录,微E聊缓存目录,没用的目录,QQ缓存目录,已经上传到附件
子目录相关操作.e (3.4 KB, 下载次数: 12)

2021-11-8 18:19 上传

点击文件名下载附件
下载积分: 精币 -2 枚

没用的目录.e (905.83 KB, 下载次数: 11)

2021-11-8 18:28 上传

点击文件名下载附件
下载积分: 精币 -2 枚

QQ缓存路径.e (4.25 KB, 下载次数: 9)

2021-11-8 18:28 上传

点击文件名下载附件
下载积分: 精币 -2 枚

VX缓存目录.e (905.62 KB, 下载次数: 14)

2021-11-8 18:28 上传

点击文件名下载附件
下载积分: 精币 -2 枚

微E聊缓存目录.e (908.39 KB, 下载次数: 10)

2021-11-8 18:29 上传

点击文件名下载附件
下载积分: 精币 -2 枚

运维辅助工具.e (925.96 KB, 下载次数: 22)

2021-11-8 18:33 上传

点击文件名下载附件
下载积分: 精币 -2 枚

最终编译出的程序好像不支持上传，所以各位自己编译一下，感觉没啥太复杂的功能

友情提示:我是冲了点小钱的，不然普通编译出来的会报错哦，因为我用了EXUI
以下是核心代码,把上述的这些个模块加进去就可以编译了应该。

  

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

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

标签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 /> .判断结束

zxhui1996

支持开源~！感谢分享

ghost12

大神，请收下我的膝盖

miger

界面不错.很好看

miger

界面不错.很好看

junhai

谢谢支持开源

jiang7825

得意须尽欢

666666666666666666666666666666666

APPLEUFO

搞得好长 你可以把功能分一分，弄成几个子程序 没必要在一个循环里写完  运行速度也快不了

wjswzj0

谢谢支持开源