mdlsystemoptimizer.bas

一款比较专业

            .ListItems.Item(11).Checked = False
        Else
            .ListItems.Item(11).Checked = True
        End If
        lDword = GetDWORDValue(HKEY_CURRENT_USER, _
            "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", _
            "NoRecycleFiles")
        If Val(lDword) <> 1 Then
            .ListItems.Item(12).Checked = False
        Else
            .ListItems.Item(12).Checked = True
        End If
        lDword = GetDWORDValue(HKEY_CURRENT_USER, _
            "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", _
            "NoWelcomeScreen")
        If Val(lDword) <> 1 Then
            .ListItems.Item(13).Checked = False
        Else
            .ListItems.Item(13).Checked = True
        End If
        lDword = GetDWORDValue(HKEY_CURRENT_USER, _
            "Software\Microsoft\Windows\CurrentVersion\Explorer", _
            "DesktopProcess")
        If Val(lDword) <> 1 Then
            .ListItems.Item(14).Checked = False
        Else
            .ListItems.Item(14).Checked = True
        End If
        sRegStrOpt = GetSTRINGValue(HKEY_LOCAL_MACHINE, _
            "SOFTWARE\Microsoft\Dfrg\BootOptimizeFunction", "Enable")
        If Left(sRegStrOpt, 1) <> "Y" Then
            .ListItems.Item(15).Checked = False
        Else
            .ListItems.Item(15).Checked = True
        End If
        lDword = GetDWORDValue(HKEY_LOCAL_MACHINE, _
            "SOFTWARE\Microsoft\Windows\CurrentVersion\OptimalLayout", _
            "EnableAutoLayout")
        If Val(lDword) <> 1 Then
            .ListItems.Item(16).Checked = False
        Else
            .ListItems.Item(16).Checked = True
        End If
        sRegStrOpt = GetSTRINGValue(HKEY_CURRENT_USER, "Control Panel\Desktop", _
            "MenuShowDelay")
        If Val(sRegStrOpt) <> 1 Then
            .ListItems.Item(17).Checked = False
        Else
            .ListItems.Item(17).Checked = True
        End If
        sRegStrOpt = GetSTRINGValue(HKEY_LOCAL_MACHINE, _
            "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", _
            "EnableQuickReboot")
        If Left(sRegStrOpt, 1) <> "" Then
            .ListItems.Item(18).Checked = False
        Else
            .ListItems.Item(18).Checked = True
        End If
        lDword = GetDWORDValue(HKEY_LOCAL_MACHINE, _
            "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", _
            "NoStartMenuEjectPC")
        If Val(lDword) <> 1 Then
            .ListItems.Item(19).Checked = False
        Else
            .ListItems.Item(19).Checked = True
        End If
        lDword = GetDWORDValue(HKEY_LOCAL_MACHINE, _
            "Software\Microsoft\Windows\CurrentVersion\Internet Setting\Cache", _
            "Persistent")
        If Val(lDword) <> 1 Then
            .ListItems.Item(20).Checked = True
        Else
            .ListItems.Item(20).Checked = False
        End If
        lDword = GetDWORDValue(HKEY_CURRENT_USER, _
            "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", _
            "NoDriveTypeAutoRun")
        If Val(lDword) <> 99 Then
            .ListItems.Item(21).Checked = False
        Else
            .ListItems.Item(21).Checked = True
        End If
        lDword = GetDWORDValue(HKEY_LOCAL_MACHINE, _
            "SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management", _
            "LargeSystemCache")
        If Val(lDword) <> 1 Then
            .ListItems.Item(22).Checked = False
        Else
            .ListItems.Item(22).Checked = True
        End If
    End With
End Sub

Public Sub ExecuteOptimizer(lvw As ListView)
    With lvw.ListItems
        If .Item(1).Checked = True Then
            CreateStringValue HKEY_LOCAL_MACHINE, _
                "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AlwaysUnloadDLL", _
                "", "1"
        Else
            CreateStringValue HKEY_LOCAL_MACHINE, _
                "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AlwaysUnloadDLL", _
                 "", "0"
        End If
        If .Item(2).Checked = True Then
            CreateStringValue HKEY_USERS, _
                 ".DEFAULT\Control Panel\Desktop\", "AutoEndTasks", "1"
            CreateStringValue HKEY_CURRENT_USER, "Control Panel\Desktop\", _
                 "AutoEndTasks", "1"
        Else
            CreateStringValue HKEY_USERS, ".DEFAULT\Control Panel\Desktop\", _
                 "AutoEndTasks", "0"
            CreateStringValue HKEY_CURRENT_USER, "Control Panel\Desktop\", _
                 "AutoEndTasks", "0"
        End If
        If .Item(3).Checked = True Then
            CreateDwordValue HKEY_CURRENT_USER, _
                 "Software\Microsoft\Windows\CurrentVersion\Explorer\", _
                 "CleanShutdown", 1
        Else
            CreateDwordValue HKEY_CURRENT_USER, _
                 "Software\Microsoft\Windows\CurrentVersion\Explorer\", _
                 "CleanShutdown", 0
        End If
        If .Item(4).Checked = True Then
            CreateDwordValue HKEY_LOCAL_MACHINE, _
                 "SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\", _
                 "ClearPageFileAtShutdown", 1
        Else
            CreateDwordValue HKEY_LOCAL_MACHINE, _
                 "SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\", _
                 "ClearPageFileAtShutdown", 0
        End If
        If .Item(5).Checked = True Then
            CreateDwordValue HKEY_CURRENT_USER, _
                 "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\", _
                 "ClearRecentDocsOnExit", 1
        Else
            CreateDwordValue HKEY_CURRENT_USER _
                , "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\", _
                 "ClearRecentDocsOnExit", 0
        End If
        If .Item(6).Checked = True Then
            CreateDwordValue HKEY_LOCAL_MACHINE, _
                 "SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\", _
                 "DisablePagingExecutive", 1
        Else
            CreateDwordValue HKEY_LOCAL_MACHINE, _
                 "SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\", _
                 "DisablePagingExecutive", 0
        End If
        If .Item(7).Checked = True Then
            CreateDwordValue HKEY_CURRENT_USER, _
                 "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\", _
                 "NoDesktopCleanupWizard", 1
        Else
            CreateDwordValue HKEY_CURRENT_USER, _
                 "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\", _
                 "NoDesktopCleanupWizard", 0
        End If
        If .Item(8).Checked = True Then
            CreateDwordValue HKEY_CURRENT_USER, _
                "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\", _
                 "NoLowDiskSpaceChecks", 1
        Else
            CreateDwordValue HKEY_CURRENT_USER, _
                 "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\", _
                 "NoLowDiskSpaceChecks", 0
        End If
        If .Item(9).Checked = True Then
            CreateDwordValue HKEY_CURRENT_USER, _
                 "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\", _
                 "NoRecentDocsHistory", 1
        Else
            CreateDwordValue HKEY_CURRENT_USER, _
                 "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\", _
                 "NoRecentDocsHistory", 0
        End If
        If .Item(10).Checked = True Then
            CreateStringValue HKEY_CURRENT_USER, _
                 "Control Panel\Desktop\WindowMetrics\", "MinAnimate", "0"
        Else
            CreateStringValue HKEY_CURRENT_USER, _
                 "Control Panel\Desktop\WindowMetrics\", "MinAnimate", "1"
        End If
        If .Item(11).Checked = True Then
            CreateDwordValue HKEY_LOCAL_MACHINE, _
                 "SYSTEM\ControlCurrentSet\Control\CrashControl\", "AutoReboot", 1
        Else
            CreateDwordValue HKEY_LOCAL_MACHINE, _
                 "SYSTEM\ControlCurrentSet\Control\CrashControl\", "AutoReboot", 0
        End If
        If .Item(12).Checked = True Then
            CreateDwordValue HKEY_CURRENT_USER, _
                 "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\", _
                 "NoRecycleFiles", 1
        Else
            CreateDwordValue HKEY_CURRENT_USER, _
                 "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\", _
                 "NoRecycleFiles", 0
        End If
        If .Item(13).Checked = True Then
            CreateDwordValue HKEY_CURRENT_USER, _
                 "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\", _
                 "NoWelcomeScreen", 1
        Else
            CreateDwordValue HKEY_CURRENT_USER, _
                 "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\", _
                 "NoWelcomeScreen", 0
        End If
        If .Item(14).Checked = True Then
            CreateDwordValue HKEY_CURRENT_USER, _
                 "Software\Microsoft\Windows\CurrentVersion\Explorer\", _
                 "DesktopProcess", 1
        Else
            CreateDwordValue HKEY_CURRENT_USER, _
                 "Software\Microsoft\Windows\CurrentVersion\Explorer\", _
                 "DesktopProcess", 0
        End If
        If .Item(15).Checked = True Then
            CreateStringValue HKEY_LOCAL_MACHINE, _
                 "SOFTWARE\Microsoft\Dfrg\BootOptimizeFunction\", "Enable", "Y"
        Else