当前位置:首页 → Vb(Visual Basic) → 仿Windows优化大师




功能概述
仿Windows优化大师综合了Windows系统中常用的三个功能,它们分别是:1、启动程序检测,2、卸载信息检测, 3、垃圾文件清理,下面分别叙述:
1、启动程序检测
Windows在启动时会自动执行一些程序,使程序能够随系统的运行而自动运行,为广大用户 提供了方便。例如:常用的“计划任务”,防病素,防火墙等程序,在安装之后,就会随着系统的启动而自动运行。但也有一些没有必要的程序利用系统的这一特性,将自身设为启动程序,造成用户开机时间延长,占用用户系统资源。更有甚者,如木马,病素等有害程序也会利用这一点来进行破坏。
最强XP设置能够检测出随系统启动的程序的名称,以及该启载程序所在的位置,用户可以删除掉不需要的启动项目,也可以创建自己需要的启动程序。
按钮描述:
新键 选择需要的程序,将其设为自启动项目。
删除 删除列表中被选中的不需要的起运项目。
2、卸载程序检测
按钮描述:
卸载 用软件自已的反安装程序,卸载掉选中的软件
删除 用于删除反安装程序已损坏,但仍在系统中保留的软件的反安装信息
3、垃圾文件清理
操作系统和一些软件在使用过程中会产生各种临时文件,以方便操作系统和软件更好的运行,但这些临时文件会随着系统的运行不断的增多,占据用户的硬盘空间,并影响系统的运行速度。
最强XP设置可以根据文件扩展名,轻松的帮助用户搜索出指定的文件夹内的临时文件并予以删除。下面列出最强XP设置默认搜索的系统中经常产生的垃圾文件的文件类型:
*.??$ 临时文件
*.?? 临时文件
*.~* 临时文件
*.bak 临时备份文件
*.chk 丢失簇的恢复文件
*.ftg 帮助的临时文件
*.fts 帮助的临时文件
*.gid 帮助的临时文件
*.old 旧备份文件
*.tmp 临时文件
*._mp 临时文件
*.syd 临时文件
*.wbk Word备份文件
*.xlk Excel备份文件
*.$$$ 异常的临时文件
*.@@@ 异常的临时文件
*.--- 安装临时文件
按钮描述:
扫描 根据选中的扫描类型扫描垃圾文件。
删除 将扫描结果中选中的文件删除到回收站。
全部删除 将扫描结果中所有的文件删除到回收站。
硬盘信息 以矩形图的方式显示出当前的硬盘使用情况。
文件类型 此处为扫描的垃圾文件类型,最强XP设置已经定义了一些常用的垃圾文件类型。您也可以自行添加需要的垃圾文件类型,例如:要添加Pascal语言编译过程中产生的临时文件“*.~pa”,您就可以在和程序在同一目录下的set.ini文件中添加 *.~pa=Pascal语言临时文件的字符。单击“推荐”按钮,最强XP设置将为您推荐常见的可以安全删除的垃圾文件类型。
最强XP设置一共包括三个窗体它们分别是:1、frmabout 关于窗体,2、 frmmain 程序主窗体,3、frmnew 新建启动程序窗体;包括五个模块它们分别是:1、mapi 程序用到的API,2、mClear 垃圾文件清理的模块,3、mstart 启动程序的模块,4、msubmain Sub Main()模块;包括三个类模块它们分别是:1、cBrowseForFolder,2、cCaptureBF,3、ICaptureBF 这三个类模块被用于在程序中显示选择文件夹对话框。包括资源文件:SuperXP.res
程序运行时由Sub Main()函数开始,首先显示frmabout,将frmmain载入内存中但不显示,然后读取注册表中的启动程序和卸载程序并写入对应的列表框中,然后卸载frmabout,显示frmmain主窗体。
当主窗体显示后,首先显示的是“启动程序”,用户可以点击“卸载程序”、“垃圾文件清理”和“关于”来执行其相对应的模块.
第一部分:窗体
1、frmabout(关于窗体)
2、frmmain(主窗体)
frmmain窗体为软件的主窗体,在运行时不可以改
程序代码
第一部分:窗体
1、frmabout(关于窗体)
Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
End Sub
2、frmmain(主窗体)
下面为项详细代码:
Dim nficondata As NOTIFYICONDATA '用于向任栏加图标
Private m_sCurrentFolder As String '保存选择的文件夹
Implements ICaptureBF '类接口
Private Sub enter()
Dim startname As String '启动程序的名称
Dim startfile As String '启动程序的文件地址
Dim regstartH As Long '启动程序写入注册表的根键名称
Dim regstartM As String '启动程序写入注册表的子键名称
Dim SecurityAttribute As SECURITY_ATTRIBUTES '
...................