|

分享源码
界面截图: |
|
是否带模块: |
- |
备注说明: |
简单系统垃圾清理 10步完成 喜欢的朋友可以看看 |
[e].版本 2
.支持库 iext
.支持库 spec
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.子程序 _按钮1_被单击
.局部变量 A, 整数型
.局部变量 B, 文本型
A = 0
B = 系统_取用户名 ()
信息.标题 = “删除系统备份区多余的垃圾”
运行 (“sfc.exe /purgecache”, 假, )
标签2.宽度 = 标签2.宽度 + 10
A = A + 10
进度.标题 = 到文本 (A) + “%”
延迟 (1000)
信息.标题 = “删除系统多余的驱动配置”
删除文件 (“c:\windows\drivercache\i386\driver.cab”)
标签2.宽度 = 标签2.宽度 + 10
A = A + 10
进度.标题 = 到文本 (A) + “%”
延迟 (1000)
信息.标题 = “删除系统多余的驱动配置”
删除文件 (“c:\windows\drivercache\i386\driver.cab”)
标签2.宽度 = 标签2.宽度 + 10
A = A + 10
进度.标题 = 到文本 (A) + “%”
延迟 (1000)
信息.标题 = “删除临时备份文件”
删除文件 (“c:\windows\” + B + “.log”)
标签2.宽度 = 标签2.宽度 + 10
A = A + 10
进度.标题 = 到文本 (A) + “%”
延迟 (1000)
信息.标题 = “删除系统升级留下的文件”
删除目录 (“c:\windows\windowsupdate”)
标签2.宽度 = 标签2.宽度 + 10
A = A + 10
进度.标题 = 到文本 (A) + “%”
延迟 (1000) ' 5
信息.标题 = “删除补丁反安装程序”
删除文件 (“c:\windows\$” + B)
标签2.宽度 = 标签2.宽度 + 10
A = A + 10
进度.标题 = 到文本 (A) + “%”
延迟 (1000) ' 6
信息.标题 = “删除不要的鼠标指针”
删除文件 (“c:\windows\cursors\” + B)
标签2.宽度 = 标签2.宽度 + 10
A = A + 10
进度.标题 = 到文本 (A) + “%”
延迟 (1000) ' 7
信息.标题 = “删除不喜欢的桌面背景”
删除文件 (“c:\windows\web\wallpaper\” + B)
标签2.宽度 = 标签2.宽度 + 10
A = A + 10
进度.标题 = 到文本 (A) + “%”
延迟 (1000) ' 8
信息.标题 = “删除系统错误报告”
删除目录 (“c:\windows\system32\”)
标签2.宽度 = 标签2.宽度 + 10
A = A + 10
进度.标题 = 到文本 (A) + “%”
延迟 (1000) ' 9
信息.标题 = “删除系统错误报告”
删除文件 (“c:\windows\software distribution\download\” + B)
标签2.宽度 = 标签2.宽度 + 10
A = A + 10
进度.标题 = 到文本 (A) + “%”
信息框 (“清理完毕!”, 0, )
结束 ()
[/e]
萝卜白菜,各有所爱,想不想要是你的事,不逼你要.
123.rar
(92.47 KB, 下载次数: 193)
补充内容 (2013-7-3 23:14):
请慎用啊,这东西出毛病了 |
|