mdlsystemoptimizer.bas

一款比较专业

            CreateStringValue HKEY_LOCAL_MACHINE, _
                 "SOFTWARE\Microsoft\Dfrg\BootOptimizeFunction\", "Enable", "N"
        End If
        If .Item(16).Checked = True Then
            CreateDwordValue HKEY_LOCAL_MACHINE, _
                 "SOFTWARE\Microsoft\Windows\CurrentVersion\OptimalLayout\", _
                 "EnableAutoLayout", 1
        Else
            CreateDwordValue HKEY_LOCAL_MACHINE, _
                 "SOFTWARE\Microsoft\Windows\CurrentVersion\OptimalLayout\", _
                 "EnableAutoLayout", 0
        End If
        If .Item(17).Checked = True Then
            CreateStringValue HKEY_CURRENT_USER, "Control Panel\Desktop\", _
                 "MenuShowDelay", "1"
            CreateStringValue HKEY_USERS, ".DEFAULT\Control Panel\Desktop\", _
                 "MenuShowDelay", "1"
        Else
            CreateStringValue HKEY_CURRENT_USER, "Control Panel\Desktop\", _
                 "MenuShowDelay", "400"
            CreateStringValue HKEY_USERS, ".DEFAULT\Control Panel\Desktop\", _
                 "MenuShowDelay", "400"
        End If
        If .Item(18).Checked = True Then
            CreateStringValue HKEY_LOCAL_MACHINE, _
                 "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\", _
                "EnableQuickReboot", ""
        Else
            DeleteValue HKEY_LOCAL_MACHINE, _
                 "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\", _
                 "EnableQuickReboot"
        End If
        If .Item(19).Checked = True Then
            CreateDwordValue HKEY_CURRENT_USER _
                , "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\", _
                 "NoStartMenuEjectPC", 1
            CreateDwordValue HKEY_LOCAL_MACHINE, _
                 "SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\", _
                 "NoStartMenuEjectPC", 1
        Else
            CreateDwordValue HKEY_CURRENT_USER, _
                 "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\", _
                 "NoStartMenuEjectPC", 0
            CreateDwordValue HKEY_LOCAL_MACHINE, _
                 "SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\", _
                 "NoStartMenuEjectPC", 0
        End If
        If .Item(20).Checked = True Then
            CreateDwordValue HKEY_CURRENT_USER, _
                 "Software\Microsoft\Windows\CurrentVersion\Internet Setting\Cache\", _
                 "Persistent", 0
            CreateDwordValue HKEY_LOCAL_MACHINE, _
                 "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Setting\Cache\", _
                 "Persistent", 0
        Else
            CreateDwordValue HKEY_CURRENT_USER, _
                 "Software\Microsoft\Windows\CurrentVersion\Internet Setting\Cache\", _
                 "Persistent", 1
            CreateDwordValue HKEY_LOCAL_MACHINE, _
                 "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Setting\Cache\", _
                 "Persistent", 1
        End If
        If .Item(21).Checked = True Then
            CreateDwordValue HKEY_CURRENT_USER, _
                 "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\", _
                 "NoDriveTypeAutoRun", 99
        Else
            CreateDwordValue HKEY_CURRENT_USER, _
                 "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\", _
                 "NoDriveTypeAutoRun", 0
        End If
        If .Item(22).Checked = True Then
            CreateDwordValue HKEY_LOCAL_MACHINE, _
                 "SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\", _
                 "LargeSystemCache", 1
        Else
            CreateDwordValue HKEY_LOCAL_MACHINE, _
                 "SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\", _
                 "LargeSystemCache", 0
        End If
    End With
End Sub

Public Sub Clean_Registry()
    On Error Resume Next
    CreateDwordValue HKEY_CURRENT_USER, _
        "Software\Microsoft\Windows\CurrentVersion\Policies\System", _
        "DisableRegistryTools", 0
    CreateDwordValue HKEY_LOCAL_MACHINE, _
        "SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", _
        "DisableRegistryTools", 0
    CreateDwordValue HKEY_CURRENT_USER, _
         "Software\Microsoft\Windows\CurrentVersion\Policies\System\", _
         "DisableTaskMgr", 0
    CreateDwordValue HKEY_LOCAL_MACHINE, _
         "SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\", _
        "DisableTaskMgr", 0
    CreateDwordValue HKEY_CURRENT_USER, _
        "Software\Policies\Microsoft\Windows\System", _
        "DisableCMD", 0
    CreateDwordValue HKEY_CURRENT_USER, _
        "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", _
        "NoFolderOptions", 0
    CreateDwordValue HKEY_LOCAL_MACHINE, _
        "SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer", _
        "NoFolderOptions", 0
    DeleteValue HKEY_LOCAL_MACHINE, _
        "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", _
        "Shell"
    CreateStringValue HKEY_CLASSES_ROOT, _
        "exefile\shell\open\command", "", Chr(&H22) & "%1" & Chr(&H22) & " %*"
    CreateStringValue HKEY_CLASSES_ROOT, _
        "lnkfile\shell\open\command", "", Chr(&H22) & "%1" & Chr(&H22) & " %*"
    CreateStringValue HKEY_CLASSES_ROOT, _
        "piffile\shell\open\command", "", Chr(&H22) & "%1" & Chr(&H22) & " %*"
    CreateStringValue HKEY_CLASSES_ROOT, _
        "batfile\shell\open\command", "", Chr(&H22) & "%1" & Chr(&H22) & " %*"
    CreateStringValue HKEY_CLASSES_ROOT, _
        "comfile\shell\open\command", "", Chr(&H22) & "%1" & Chr(&H22) & " %*"
    CreateStringValue HKEY_CLASSES_ROOT, _
        "cmdfile\shell\open\command", "", Chr(&H22) & "%1" & Chr(&H22) & " %*"
    CreateStringValue HKEY_CLASSES_ROOT, _
        "scrfile\shell\open\command", "", Chr(&H22) & "%1" & Chr(&H22) & " %*"
    CreateStringValue HKEY_CLASSES_ROOT, _
        "regfile\shell\open\command", "", "regedit.exe %1"
    CreateStringValue HKEY_LOCAL_MACHINE, _
        "SYSTEM\CurrentControlSet\Control\SafeBoot\", "AlternateShell", "cmd.exe"
    CreateStringValue HKEY_LOCAL_MACHINE, _
        "SOFTWARE\Microsoft\Windows NT\CurrentVersion\AeDebug", "Auto", "0"
    CreateDwordValue HKEY_CURRENT_USER, _
        "Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp\", _
        "Disabled", 0
    CreateDwordValue HKEY_LOCAL_MACHINE, _
        "SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\WinOldApp\", _
        "Disabled", 0
    CreateStringValue HKEY_CLASSES_ROOT, _
        "exefile", "", "Application"
    CreateDwordValue HKEY_LOCAL_MACHINE, _
        "SOFTWARE\Policies\Microsoft\Windows NT\SystemRestore", "DisableConfig", 0
    CreateDwordValue HKEY_LOCAL_MACHINE, _
        "SOFTWARE\Policies\Microsoft\Windows NT\SystemRestore", "DisableSR", 0
    CreateDwordValue HKEY_LOCAL_MACHINE, _
        "SOFTWARE\Policies\Microsoft\Windows\Installer", _
        "LimitSystemRestoreCheckpointing", 0
    CreateDwordValue HKEY_LOCAL_MACHINE, _
        "SOFTWARE\Policies\Microsoft\Windows\Installer", "DisableMSI", 0
    CreateDwordValue HKEY_CURRENT_USER, _
        "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoClose", 0
    CreateDwordValue HKEY_CURRENT_USER, _
        "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDesktop", 0
    CreateDwordValue HKEY_CURRENT_USER, _
        "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", _
        "NoDriveTypeAutoRun", 0
    CreateDwordValue HKEY_CURRENT_USER, _
        "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoRun", 0
    CreateDwordValue HKEY_CURRENT_USER, _
        "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoLogoff", 0
    CreateDwordValue HKEY_CURRENT_USER, _
        "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoFind", 0
    CreateDwordValue HKEY_CURRENT_USER, _
        "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", _
        "NoTrayContextMenu", 0
    CreateDwordValue HKEY_CURRENT_USER, _
        "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", _
        "NoViewContextMenu", 0
    CreateDwordValue HKEY_CURRENT_USER, _
        "Software\Microsoft\Windows\CurrentVersion\Policies\System", _
        "NoDispSettingsPage", 0
    CreateDwordValue HKEY_CURRENT_USER, _
        "Software\Microsoft\Windows\CurrentVersion\Policies\System", _
        "NoDispBackgroundPage", 0
    CreateDwordValue HKEY_CURRENT_USER, _
        "Software\Microsoft\Windows\CurrentVersion\Policies\System", "NoScrSavPage", 0
    CreateDwordValue HKEY_CURRENT_USER, _
        "Software\Microsoft\Windows\CurrentVersion\Policies\System", _
        "NoDispApprearancePage", 0
    CreateDwordValue HKEY_CURRENT_USER, _
        "Software\Microsoft\Windows\CurrentVersion\Policies\System", "NoDispCpl", 0
    CreateStringValue HKEY_CURRENT_USER, "Control Panel\Desktop\", "SCRNSAVE.EXE", ""
    CreateDwordValue HKEY_CURRENT_USER, _
        "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\", _
        "HideFileExt", 1
    CreateDwordValue HKEY_CURRENT_USER, _
        "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\", "Hidden", 1
    CreateDwordValue HKEY_CURRENT_USER, _
        "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\", _
        "ShowSuperHidden", 1
    DeleteValue HKEY_CURRENT_USER, _
        "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDrive"
    DeleteValue HKEY_LOCAL_MACHINE, _
        "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDrive"
    DeleteValue HKEY_CURRENT_USER, _
        "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", _
        "DisableRegistryTools"
    DeleteValue HKEY_LOCAL_MACHINE, _
         "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", _
         "DisableRegistryTools"
    DeleteValue HKEY_LOCAL_MACHINE, _
         "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", _
         "shutdownwithoutlogon"
    DeleteValue HKEY_LOCAL_MACHINE, _
        "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", _
        "undockwithoutlogon"
End Sub

Public Function EmptyTheRecycle(hwnd As Long) As Long
    On Error Resume Next
    EmptyTheRecycle = SHEmptyRecycleBin(hwnd, vbNullString, WITHOUT_ANY)
End Function

Public Sub ClearJunkFile()
    On Error Resume Next
    Kill GetWindowsPath & "Prefetch\*.*"
    Kill GetWindowsPath & "Temp\*.*"
    Kill GetSpecialFolder(CSIDL_RECENT) & "\*.*"
    Kill GetSpecialFolder(CSIDL_HISTORY) & "\*.*"
    Kill GetSpecialFolder(CSIDL_PROFILER) & "\Cookies\*.*"
    Kill GetSpecialFolder(CSIDL_PROFILER) & "\Local Settings\Temp\*.*"
    Kill GetSpecialFolder(CSIDL_PROFILER) & _
        "\Local Settings\Temporary Internet Files\*.*"
End Sub