系统优化与设置`这程序做起来怎么这么麻烦呀

afan · 发表于 2010-7-5 13:27:48

这东西用批处理的概率也很高，到时候我给LZ整个无敌的“伪” bat2au3 ~ 就不用包含那些bat文件了

hzxymkb · 发表于 2010-7-5 13:29:51

这东西用批处理的概率也很高，到时候我给LZ整个无敌的“伪” bat2au3 ~ 就不用包含那些bat文件了
afan 发表于 2010-7-5 13:27

afan准备出精品咯！期待中。。。。

辣椒龙 · 发表于 2010-7-5 14:55:28

过去整过一个类似的东西，纯给自己用的，可能一些项目不合适大部分人，楼主自己斟酌……
由于涉及到界面显示，所以可能有些代码：赋值什么的不是楼主关心的，我懒得删了……
第一段：用于判断系统相应功能是否已经优化，另外还有一些项目图标设置（有删减）

        ;建立需要设置的节点
        ;************重要设置
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\atapi\Parameters", "EnableBigLba")
        $MyOptions[1][1][3] = "开启137GB大硬盘支持"
        $MyOptions[1][1][1] = "开启对容量超过137GB的大硬盘的寻址支持，如关闭可能引起永久性的数据丢失，建议在装好系统后立即开启。"
        If $Temp = "1" Then
                $MyOptions[1][1][1] = $MyOptions[1][1][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[1][1][2] = 0;不需要设置
        Else
                $MyOptions[1][1][2] = 1;需要设置
        EndIf
        $MyOptions[1][0][1] = "应该使用的项目"
        $MyOptions[1][0][2] = $MyOptions[1][1][2]
        If $MyOptions[1][0][2] <> 0 Then;需要设置
                $MyOptions[1][0][0] = GUICtrlCreateTreeViewItem("重要设置", $treeview)
                GUICtrlSetColor(-1, 0x0000C0)
                GUICtrlSetState(-1, $GUI_CHECKED)
                $MyOptions[1][1][0] = GUICtrlCreateTreeViewItem($MyOptions[1][1][3], $MyOptions[1][0][0])
                GUICtrlSetState(-1, $GUI_CHECKED)
                GUICtrlSetState($MyOptions[1][0][0], $GUI_EXPAND)
        EndIf
        ;********************
        ;**********资源管理器
        $i = 1
        $j = 0
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "HideFileExt")
        $MyOptions[2][$i][3] = "显示已知文件的扩展名"
        $MyOptions[2][$i][1] = "显示已知文件的扩展名，默认不显示系统可识别文件的扩展名，但显示所有文件的扩展名更利于文件管理。"
        If $Temp = "0" Then
                $MyOptions[2][$i][1] = $MyOptions[2][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[2][$i][2] = 0
        Else
                $MyOptions[2][$i][2] = 1
        EndIf
        $j += $MyOptions[2][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CabinetState", "FullPath")
        $MyOptions[2][$i][3] = "在标题栏显示完整路径"
        $MyOptions[2][$i][1] = "在标题栏显示完整路径，默认不在标题栏显示完整路径，仅显示当前一级目录名，但显示完整路径更加直观。"
        If $Temp = "1" Then
                $MyOptions[2][$i][1] = $MyOptions[2][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[2][$i][2] = 0
        Else
                $MyOptions[2][$i][2] = 1
        EndIf
        $j += $MyOptions[2][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CabinetState", "FullPathAddress")
        $MyOptions[2][$i][3] = "在地址栏中显示完整路径"
        $MyOptions[2][$i][1] = "在地址栏中显示完整路径，默认不在地址栏中显示完整路径，但显示完整路径可更容易的定位目录。"
        If $Temp = "1" Then
                $MyOptions[2][$i][1] = $MyOptions[2][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[2][$i][2] = 0
        Else
                $MyOptions[2][$i][2] = 1
        EndIf
        $j += $MyOptions[2][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\WebView\BarricadedFolders", "shell:SystemDriveRootFolder")
        $MyOptions[2][$i][3] = "启动分区内容照常显示"
        $MyOptions[2][$i][1] = "启动分区内容照常显示，默认不显示启动分区的内容，但为更方便文件管理可使启动分区内容照常显示。"
        If $Temp = "0" Then
                $MyOptions[2][$i][1] = $MyOptions[2][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[2][$i][2] = 0
        Else
                $MyOptions[2][$i][2] = 1
        EndIf
        $j += $MyOptions[2][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "StatusBarOther")
        $MyOptions[2][$i][3] = "资源管理器显示状态栏"
        $MyOptions[2][$i][1] = "资源管理器显示状态栏，默认资源管理器不显示状态栏，但为方便方便查看更多信息可使资源管理器显示状态栏。"
        If $Temp = "1" Then
                $MyOptions[2][$i][1] = $MyOptions[2][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[2][$i][2] = 0
        Else
                $MyOptions[2][$i][2] = 1
        EndIf
        $j += $MyOptions[2][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "ShowAttribCol")
        $MyOptions[2][$i][3] = "查看详细信息时显示属性（需重启）"
        $MyOptions[2][$i][1] = "查看详细信息时显示属性，默认资源管理器查看详细信息时不显示属性栏，但为方便方便查看更多信息可使用此功能。"
        If $Temp = "1" Then
                $MyOptions[2][$i][1] = $MyOptions[2][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[2][$i][2] = 0
        Else
                $MyOptions[2][$i][2] = 1
        EndIf

        $j += $MyOptions[2][$i][2]

        $MyOptions[2][0][1] = "与资源管理器显示相关的项目"
        Select
                Case $j = 0
                        $MyOptions[2][0][2] = 0;该类都已启用
                Case $j = $i
                        $MyOptions[2][0][2] = 1;该类都未启用
                Case Else
                        $MyOptions[2][0][2] = 2;该类有启用的也有未启用的
        EndSelect
        If $MyOptions[2][0][2] <> 0 Then;需要设置
                $MyOptions[2][0][0] = GUICtrlCreateTreeViewItem("资源管理器", $treeview)
                GUICtrlSetColor(-1, 0x0000C0)
                For $j = 1 To $i
                        If $MyOptions[2][$j][2] = 1 Then
                                $MyOptions[2][$j][0] = GUICtrlCreateTreeViewItem($MyOptions[2][$j][3], $MyOptions[2][0][0])
                                GUICtrlSetState(-1, $GUI_CHECKED)
                        EndIf
                Next
                GUICtrlSetState($MyOptions[2][0][0], $GUI_EXPAND + $GUI_CHECKED)
        EndIf
        ;********************
        ;****************网络
        $i = 1
        $j = 0
        ;网络中加入一个时间服务器3.asia.pool.ntp.org
        $MyOptions[3][$i][2] = 1;临时使用
        $Temp1 = "-1";最大序号,=-2表示不要进行任何设置
        Do
                $Temp = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\DateTime\Servers", $MyOptions[3][$i][2])
                If @error = -1 Then
                        ExitLoop
                EndIf
                If $Temp > $Temp1 Then $Temp1 = $Temp
                If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\DateTime\Servers", $Temp) = "3.asia.pool.ntp.org" Then
                        $Temp1 = "-2"
                        ExitLoop
                EndIf
                $MyOptions[3][$i][2] += 1
        Until 0
        $MyOptions[3][$i][3] = "设置Internet对时服务器"
        $MyOptions[3][$i][1] = "设置Internet对时服务器，默认NTP服务器难以访问，设置为“3.asia.pool.ntp.org”更容易成功对时。"
        If $Temp1 = "-2" Then
                $MyOptions[3][$i][1] = $MyOptions[3][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[3][$i][2] = 0
        Else
                $MyOptions[3][$i][2] = 1
        EndIf
        $j += $MyOptions[3][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa", "forceguest")
        $MyOptions[3][$i][3] = "不使用简单文件共享"
        $MyOptions[3][$i][1] = "不使用简单文件共享，默认使用简单文件共享，但此模式下无法改变文件安全等设置，不使用简单文件共享可以更加灵活地控制权限。"
        If $Temp = "0" Then
                $MyOptions[3][$i][1] = $MyOptions[3][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[3][$i][2] = 0
        Else
                $MyOptions[3][$i][2] = 1
        EndIf
        $j += $MyOptions[3][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "NoNetCrawling")
        $MyOptions[3][$i][3] = "不自动搜索网络文件夹和打印机"
        $MyOptions[3][$i][1] = "不自动搜索网络文件夹和打印机，默认会自动搜索网络文件夹和打印机，即定期扫描网络中的计算机，引起不必要的流量，不自动搜索网络文件夹和打印机可以降低流量。"
        If $Temp = "1" Then
                $MyOptions[3][$i][1] = $MyOptions[3][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[3][$i][2] = 0
        Else
                $MyOptions[3][$i][2] = 1
        EndIf
        $j += $MyOptions[3][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa", "limitblankpassworduse")
        $MyOptions[3][$i][3] = "使用空白密码的账户可以本地登录"
        $MyOptions[3][$i][1] = "使用空白密码的账户可以本地登录，默认使用空白密码的本地账户只允许进行控制台登录，使低安全级别下的共享变得繁琐，应用此功能可以更方便地访问网络上的其他计算机，但安全性有所下降。"
        If $Temp = "0" Then
                $MyOptions[3][$i][1] = $MyOptions[3][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[3][$i][2] = 0
        Else
                $MyOptions[3][$i][2] = 1
        EndIf
        $j += $MyOptions[3][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List", "137:UDP")
        $MyOptions[3][$i][1] = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List", "138:UDP")
        If $Temp <> "137:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22001" Or $MyOptions[3][$i][1] <> "138:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22002" Then
                $MyOptions[3][$i][2] = 1
        Else
                $MyOptions[3][$i][2] = 0
        EndIf
        If $MyOptions[3][$i][2] = 0 Then
                $Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List", "139:TCP")
                $MyOptions[3][$i][1] = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List", "445:TCP")
                If $Temp <> "139:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22004" Or $MyOptions[3][$i][1] <> "445:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22005" Then $MyOptions[3][$i][2] = 1
        EndIf
        $MyOptions[3][$i][3] = "允许文件和打印机共享"
        $MyOptions[3][$i][1] = "允许文件和打印机共享，防火墙默认关闭文件和打印机共享，使局域网访问不便，应用此功能可以更方便地访问网络上的其他计算机，但安全性有所下降。"
        If $MyOptions[3][$i][2] = "0" Then
                $MyOptions[3][$i][1] = $MyOptions[3][$i][1] & @CRLF & "目前系统上的该功能已开启。"
        EndIf
        $j += $MyOptions[3][$i][2]
        $i += 1
        RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\RemoteComputer\NameSpace\{D6277990-4C6A-11CF-87-00AA0060F5BF}", "")
        $Temp = @error
        RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\RemoteComputer\NameSpace\{D6277990-4C6A-11CF-8D87-00AA0060F5BF}", "")
        $Temp &= @error
        $MyOptions[3][$i][3] = "不显示网上邻居的计划任务"
        $MyOptions[3][$i][1] = "不显示网上邻居的计划任务，默认打开网上邻居时会搜索其计划任务，使访问变慢，应用此功能可以关闭这个特性。"
        If $Temp = "11" Then
                $MyOptions[3][$i][1] &= @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[3][$i][2] = 0
        Else
                $MyOptions[3][$i][2] = 1
        EndIf
        $j += $MyOptions[3][$i][2]

        $MyOptions[3][0][1] = "与网络相关的项目"
        Select
                Case $j = 0
                        $MyOptions[3][0][2] = 0;该类都已启用
                Case $j = $i
                        $MyOptions[3][0][2] = 1;该类都未启用
                Case Else
                        $MyOptions[3][0][2] = 2;该类有启用的也有未启用的
        EndSelect
        If $MyOptions[3][0][2] <> 0 Then;需要设置
                $MyOptions[3][0][0] = GUICtrlCreateTreeViewItem("网络", $treeview)
                GUICtrlSetColor(-1, 0x0000C0)
                For $j = 1 To $i
                        If $MyOptions[3][$j][2] = 1 Then
                                $MyOptions[3][$j][0] = GUICtrlCreateTreeViewItem($MyOptions[3][$j][3], $MyOptions[3][0][0])
                                GUICtrlSetState(-1, $GUI_CHECKED)
                        EndIf
                Next
                GUICtrlSetState($MyOptions[3][0][0], $GUI_EXPAND + $GUI_CHECKED)
        EndIf
        ;********************
        ;****************服务
        $i = 1
        $j = 0
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRestore", "DisableSR");1
        $Temp &= RegRead("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Srservice", "Start");4
        $MyOptions[4][$i][3] = "禁用系统还原"
        $MyOptions[4][$i][1] = "禁用系统还原，默认启用了系统还原功能，但此功能还原能力并不强，禁用系统还原可以获得更好的系统性能。"
        If $Temp = "14" Then
                $MyOptions[4][$i][1] = $MyOptions[4][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[4][$i][2] = 0
        Else
                $MyOptions[4][$i][2] = 1
        EndIf
        $j += $MyOptions[4][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ImapiService", "Start")
        $MyOptions[4][$i][3] = "禁用CD刻录服务"
        $MyOptions[4][$i][1] = "禁用CD刻录服务，默认打开了CD刻录服务，这会导致专业刻录软件运行时容易发生冲突，禁用CD刻录服务可以解决这个问题。"
        If $Temp = "4" Then
                $MyOptions[4][$i][1] = $MyOptions[4][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[4][$i][2] = 0
        Else
                $MyOptions[4][$i][2] = 1
        EndIf
        $j += $MyOptions[4][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ERSvc", "Start")
        $MyOptions[4][$i][3] = "禁用错误报告服务"
        $MyOptions[4][$i][1] = "禁用错误报告服务，它使服务和应用程序在非标准环境下运行时允许错误报告，为提高性能可以禁用它。"
        If $Temp = "4" Then
                $MyOptions[4][$i][1] = $MyOptions[4][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[4][$i][2] = 0
        Else
                $MyOptions[4][$i][2] = 1
        EndIf
        $j += $MyOptions[4][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\wscsvc", "Start")
        $MyOptions[4][$i][3] = "禁用安全中心服务"
        $MyOptions[4][$i][1] = "禁用安全中心服务，它监视系统安全设置和配置，为提高性能可以禁用它。"
        If $Temp = "4" Then
                $MyOptions[4][$i][1] = $MyOptions[4][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[4][$i][2] = 0
        Else
                $MyOptions[4][$i][2] = 1
        EndIf
        $j += $MyOptions[4][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ShellHWDetection", "Start")
        $MyOptions[4][$i][3] = "禁用自动播放服务"
        $MyOptions[4][$i][1] = "禁用自动播放服务，它为自动播放硬件事件提供通知，为提高性能可以禁用它。"
        If $Temp = "4" Then
                $MyOptions[4][$i][1] = $MyOptions[4][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[4][$i][2] = 0
        Else
                $MyOptions[4][$i][2] = 1
        EndIf
        $j += $MyOptions[4][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\RemoteRegistry", "Start")
        $MyOptions[4][$i][3] = "手动远程注册表服务"
        $MyOptions[4][$i][1] = "手动远程注册表服务，默认打开了远程注册表服务，这会引起一些安全隐患，手动远程注册表服务可以解决这个问题。"
        If $Temp <> "2" Then
                $MyOptions[4][$i][1] = $MyOptions[4][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[4][$i][2] = 0
        Else
                $MyOptions[4][$i][2] = 1
        EndIf
        $j += $MyOptions[4][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SCardSvr", "Start")
        $MyOptions[4][$i][3] = "手动智能卡的取读服务"
        $MyOptions[4][$i][1] = "手动智能卡的取读服务，如果不是带有智能卡插槽的计算机，可以手动智能卡的取读访问。"
        If $Temp <> "2" Then
                $MyOptions[4][$i][1] = $MyOptions[4][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[4][$i][2] = 0
        Else
                $MyOptions[4][$i][2] = 1
        EndIf
        $j += $MyOptions[4][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\WZCSVC", "Start")
        $MyOptions[4][$i][3] = "手动无线网络自动配置"
        $MyOptions[4][$i][1] = "手动无线网络自动配置，如果不是带有无线网卡的计算机，可以手动无线网络自动配置。"
        If $Temp <> "2" Then
                $MyOptions[4][$i][1] = $MyOptions[4][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[4][$i][2] = 0
        Else
                $MyOptions[4][$i][2] = 1
        EndIf
        $j += $MyOptions[4][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\helpsvc", "Start")
        $MyOptions[4][$i][3] = "手动帮助服务"
        $MyOptions[4][$i][1] = "手动帮助服务，它负责启用在此计算机上运行帮助和支持中心，为提高性能可以手动它。"
        If $Temp <> "2" Then
                $MyOptions[4][$i][1] = $MyOptions[4][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[4][$i][2] = 0
        Else
                $MyOptions[4][$i][2] = 1
        EndIf
        $j += $MyOptions[4][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\PolicyAgent", "Start")
        $MyOptions[4][$i][3] = "手动IP安全策略服务"
        $MyOptions[4][$i][1] = "手动IP安全策略服务，它负责管理IP安全策略以及启动ISAKMP/Oakley(IKE)和IP安全驱动程序，为提高性能可以手动它。"
        If $Temp <> "2" Then
                $MyOptions[4][$i][1] = $MyOptions[4][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[4][$i][2] = 0
        Else
                $MyOptions[4][$i][2] = 1
        EndIf
        $j += $MyOptions[4][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Spooler", "Start")
        $MyOptions[4][$i][3] = "手动后台打印服务"
        $MyOptions[4][$i][1] = "手动后台打印服务，它负责将文件加载到内存中以便迟后打印，为提高性能可以手动它。"
        If $Temp <> "2" Then
                $MyOptions[4][$i][1] = $MyOptions[4][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[4][$i][2] = 0
        Else
                $MyOptions[4][$i][2] = 1
        EndIf
        $j += $MyOptions[4][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ProtectedStorage", "Start")
        $MyOptions[4][$i][3] = "手动受保护存放区服务"
        $MyOptions[4][$i][1] = "手动受保护存放区服务，它提供对敏感数据(如私钥)的保护性存储，为提高性能可以手动它。"
        If $Temp <> "2" Then
                $MyOptions[4][$i][1] = $MyOptions[4][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[4][$i][2] = 0
        Else
                $MyOptions[4][$i][2] = 1
        EndIf
        $j += $MyOptions[4][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\seclogon", "Start")
        $MyOptions[4][$i][3] = "手动二次登录服务"
        $MyOptions[4][$i][1] = "手动二次登录服务，它提供以另一个身份启用进程的功能，为提高性能可以手动它。"
        If $Temp <> "2" Then
                $MyOptions[4][$i][1] = $MyOptions[4][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[4][$i][2] = 0
        Else
                $MyOptions[4][$i][2] = 1
        EndIf
        $j += $MyOptions[4][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Schedule", "Start")
        $MyOptions[4][$i][3] = "手动计划任务服务"
        $MyOptions[4][$i][1] = "手动计划任务服务，它提供以另一个身份启用进程的功能，为提高性能可以手动它。"
        If $Temp <> "2" Then
                $MyOptions[4][$i][1] = $MyOptions[4][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[4][$i][2] = 0
        Else
                $MyOptions[4][$i][2] = 1
        EndIf
        $j += $MyOptions[4][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LmHosts", "Start")
        $MyOptions[4][$i][3] = "手动TCP/IP NetBIOS服务"
        $MyOptions[4][$i][1] = "手动TCP/IP NetBIOS服务，它提供以NetBIOS定位计算机功能，为提高性能可以手动它。"
        If $Temp <> "2" Then
                $MyOptions[4][$i][1] = $MyOptions[4][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[4][$i][2] = 0
        Else
                $MyOptions[4][$i][2] = 1
        EndIf
        $j += $MyOptions[4][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\WebClient", "Start")
        $MyOptions[4][$i][3] = "手动Web客户端服务（WebDav）"
        $MyOptions[4][$i][1] = "手动Web客户端服务（WebDav），它提供Web客户端服务，为提高性能可以手动它。"
        If $Temp <> "2" Then
                $MyOptions[4][$i][1] = $MyOptions[4][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[4][$i][2] = 0
        Else
                $MyOptions[4][$i][2] = 1
        EndIf
        $j += $MyOptions[4][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\MDM", "Start")
        $MyOptions[4][$i][3] = "手动调试管理服务（MDM）"
        $MyOptions[4][$i][1] = $MyOptions[4][$i][3] & "，它提供调试程序功能，为提高性能可以手动它。"
        If $Temp <> "2" Then
                $MyOptions[4][$i][1] = $MyOptions[4][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[4][$i][2] = 0
        Else
                $MyOptions[4][$i][2] = 1
        EndIf
        $j += $MyOptions[4][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Browser", "Start")
        $MyOptions[4][$i][3] = "手动计算机列表服务（Browser）"
        $MyOptions[4][$i][1] = $MyOptions[4][$i][3] & "，它允许本机维护网络上计算机的更新列表，为提高性能可以手动它。"
        If $Temp <> "2" Then
                $MyOptions[4][$i][1] = $MyOptions[4][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[4][$i][2] = 0
        Else
                $MyOptions[4][$i][2] = 1
        EndIf
        $j += $MyOptions[4][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\TrkWks", "Start")
        $MyOptions[4][$i][3] = "手动NTFS文件链接服务（TrkWks）"
        $MyOptions[4][$i][1] = $MyOptions[4][$i][3] & "，它在计算机内NTFS文件之间保持链接，为提高性能可以手动它。"
        If $Temp <> "2" Then
                $MyOptions[4][$i][1] = $MyOptions[4][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[4][$i][2] = 0
        Else
                $MyOptions[4][$i][2] = 1
        EndIf
        $j += $MyOptions[4][$i][2]

        $MyOptions[4][0][1] = "与服务相关的项目"
        Select
                Case $j = 0
                        $MyOptions[4][0][2] = 0;该类都已启用
                Case $j = $i
                        $MyOptions[4][0][2] = 1;该类都未启用
                Case Else
                        $MyOptions[4][0][2] = 2;该类有启用的也有未启用的
        EndSelect
        If $MyOptions[4][0][2] <> 0 Then;需要设置
                $MyOptions[4][0][0] = GUICtrlCreateTreeViewItem("服务", $treeview)
                GUICtrlSetColor(-1, 0x0000C0)
                For $j = 1 To $i
                        If $MyOptions[4][$j][2] = 1 Then
                                $MyOptions[4][$j][0] = GUICtrlCreateTreeViewItem($MyOptions[4][$j][3], $MyOptions[4][0][0])
                                GUICtrlSetState(-1, $GUI_CHECKED)
                        EndIf
                Next
                GUICtrlSetState($MyOptions[4][0][0], $GUI_EXPAND + $GUI_CHECKED)
        EndIf
        ;********************
        ;***Internet Explorer
        $i = 1
        $j = 0
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3", "1601")
        $MyOptions[5][$i][3] = "不提示向Internet发送消息"
        $MyOptions[5][$i][1] = "不提示向Internet发送消息，默认会提示向Internet发送消息，此功能可以在第一次提示前就关闭它。"
        If $Temp = "0" Then
                $MyOptions[5][$i][1] = $MyOptions[5][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[5][$i][2] = 0
        Else
                $MyOptions[5][$i][2] = 1
        EndIf
        $j += $MyOptions[5][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Start Page")
        $MyOptions[5][$i][3] = "使用空白主页"
        $MyOptions[5][$i][1] = "使用空白主页，默认不使用空白主页，打开IE就会进入一个网站，使用空白主页可以加快打开IE的速度。"
        If $Temp = "about:blank" Then
                $MyOptions[5][$i][1] = $MyOptions[5][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[5][$i][2] = 0
        Else
                $MyOptions[5][$i][2] = 1
        EndIf
        $j += $MyOptions[5][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Enable AutoImageResize")
        $MyOptions[5][$i][3] = "关闭IE自动缩图功能"
        $MyOptions[5][$i][1] = "关闭IE自动缩图功能，默认IE具有自动缩图功能，窗口无法完整显示的图片会被缩小，关闭IE自动缩图功能可以使图片以原始大小显示。"
        If $Temp = "no" Then
                $MyOptions[5][$i][1] = $MyOptions[5][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[5][$i][2] = 0
        Else
                $MyOptions[5][$i][2] = 1
        EndIf
        $j += $MyOptions[5][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "NotifyDownloadComplete")
        $MyOptions[5][$i][3] = "下载完成后自动关闭"
        $MyOptions[5][$i][1] = "下载完成后自动关闭，默认IE下载完成后还显示下载窗口，如果你不需要查看完成信息，可以设置下载完成后自动关闭。"
        If $Temp = "no" Then
                $MyOptions[5][$i][1] = $MyOptions[5][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[5][$i][2] = 0
        Else
                $MyOptions[5][$i][2] = 1
        EndIf
        $j += $MyOptions[5][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Security", "BlockXBM")
        $MyOptions[5][$i][3] = "显示验证码"
        $MyOptions[5][$i][1] = "显示验证码，默认IE在显示验证码图片时可能会出问题，可以设置显示验证码。"
        If $Temp = "0" Then
                $MyOptions[5][$i][1] = $MyOptions[5][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[5][$i][2] = 0
        Else
                $MyOptions[5][$i][2] = 1
        EndIf
        $j += $MyOptions[5][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoInternetIcon")
        $MyOptions[5][$i][3] = "桌面不显示IE图标"
        $MyOptions[5][$i][1] = "桌面不显示IE图标，默认在桌面显示IE图标，如果希望减少桌面图标数量，可以设置桌面不显示IE图标。"
        If $Temp = "1" Then
                $MyOptions[5][$i][1] = $MyOptions[5][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[5][$i][2] = 0
        Else
                $MyOptions[5][$i][2] = 1
        EndIf
        $j += $MyOptions[5][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\InformationBar", "FirstTime")
        $MyOptions[5][$i][3] = "不弹出提示控件安装窗口"
        $MyOptions[5][$i][1] = $MyOptions[5][$i][3] & "，默认IE会在需要安装控件时弹出提示窗口，可以设置不弹出提示控件安装窗口。"
        If $Temp = "0" Then
                $MyOptions[5][$i][1] = $MyOptions[5][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[5][$i][2] = 0
        Else
                $MyOptions[5][$i][2] = 1
        EndIf
        $j += $MyOptions[5][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbar\WebBrowser", "ITBar7Position")
        $Temp &= RegRead("HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Toolbar\WebBrowser", "ITBar7Position")
        $MyOptions[5][$i][3] = "IE8菜单移到地址栏上方"
        $MyOptions[5][$i][1] = "IE8菜单移到地址栏上方，默认IE8菜单在地址栏下方，此设置可以把IE8菜单移到地址栏上方。"
        If $Temp = "11" Then
                $MyOptions[5][$i][1] = $MyOptions[5][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[5][$i][2] = 0
        Else
                If RegRead($UnInstall & "ie8", "DisplayName") <> "Windows Internet Explorer 8" Then
                        $MyOptions[5][$i][1] = $MyOptions[5][$i][1] & @CRLF & "需要先安装Internet Explorer 8。"
                        $MyOptions[5][$i][2] = 0
                Else
                        $MyOptions[5][$i][2] = 1
                EndIf
        EndIf
        $j += $MyOptions[5][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TabbedBrowsing", "PopupsUseNewWindow")
        $Temp &= RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TabbedBrowsing", "ShortcutBehavior")
        $MyOptions[5][$i][3] = "IE8总在选项卡中打开新页面"
        $MyOptions[5][$i][1] = $MyOptions[5][$i][3] & "，默认IE8在新窗口中打开新页面，此设置可以让IE8总在选项卡中打开新页面。"
        If $Temp = "21" Then
                $MyOptions[5][$i][1] = $MyOptions[5][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[5][$i][2] = 0
        Else
                If RegRead($UnInstall & "ie8", "DisplayName") <> "Windows Internet Explorer 8" Then
                        $MyOptions[5][$i][1] = $MyOptions[5][$i][1] & @CRLF & "需要先安装Internet Explorer 8。"
                        $MyOptions[5][$i][2] = 0
                Else
                        $MyOptions[5][$i][2] = 1
                EndIf
        EndIf
        $j += $MyOptions[5][$i][2]
        $i += 1
        $Temp = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains"
        $TitleStr = RegRead($Temp & "com.cn\www.icbc", "http");添加http://www.icbc.com.cn
        $TitleStr &= RegRead($Temp & "com.cn\mybank.icbc", "https");添加https://mybank.icbc.com.cn
        $TitleStr &= RegRead($Temp & "ecitic.com\creditcard", "https");添加https://creditcard.ecitic.com
        $TitleStr &= RegRead($Temp & "ecitic.com\e.bank", "https");添加https://e.bank.ecitic.com
        $TitleStr &= RegRead($Temp & "ecitic.com\enterprise.bank", "https");添加https://enterprise.bank.ecitic.com
        $TitleStr &= RegRead($Temp & "microsoft.com\update", "http");添加http://update.microsoft.com
        $TitleStr &= RegRead($Temp & "microsoft.com\www.update", "http");添加http://www.update.microsoft.com
        $MyOptions[5][$i][3] = "添加一些受信任列表"
        $MyOptions[5][$i][1] = $MyOptions[5][$i][3] & "，此设置可以在受信任网站列表中添加工行、招行和微软更新网站。"
        If $TitleStr = "2222222" Then
                $MyOptions[5][$i][1] = $MyOptions[5][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[5][$i][2] = 0
        Else
                $MyOptions[5][$i][2] = 1
        EndIf
        $j += $MyOptions[5][$i][2]
        $MyOptions[5][0][1] = "与IE相关的项目"
        Select
                Case $j = 0
                        $MyOptions[5][0][2] = 0;该类都已启用
                Case $j = $i
                        $MyOptions[5][0][2] = 1;该类都未启用
                Case Else
                        $MyOptions[5][0][2] = 2;该类有启用的也有未启用的
        EndSelect
        If $MyOptions[5][0][2] <> 0 Then;需要设置
                $MyOptions[5][0][0] = GUICtrlCreateTreeViewItem("Internet Explorer", $treeview)
                GUICtrlSetColor(-1, 0x0000C0)
                For $j = 1 To $i
                        If $MyOptions[5][$j][2] = 1 Then
                                $MyOptions[5][$j][0] = GUICtrlCreateTreeViewItem($MyOptions[5][$j][3], $MyOptions[5][0][0])
                                GUICtrlSetState(-1, $GUI_CHECKED)
                        EndIf
                Next
                GUICtrlSetState($MyOptions[5][0][0], $GUI_EXPAND + $GUI_CHECKED)
        EndIf
        ;********************
        ;*************Desktop
        $i = 1
        $j = 0
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "ShellState")
        If StringLen($Temp) < 69 Then
                $Temp = "02"
        Else
                $Temp = StringMid($Temp, 67, 2);不经典为"02",经典为"00"
        EndIf
        $MyOptions[6][$i][3] = "显示经典开始菜单"
        $MyOptions[6][$i][1] = "显示经典开始菜单，默认显示XP样式的开始菜单，如果希望使用类似2000样式的开始菜单，此设置可以解决这个问题。"
        If $Temp = "00" Then
                $MyOptions[6][$i][1] = $MyOptions[6][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[6][$i][2] = 0
        Else
                $MyOptions[6][$i][2] = 1
        EndIf
        $j += $MyOptions[6][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CLASSES_ROOT\CLSID\{450D8FBA-AD25-11D0-98A8-0800361B1103}", "SortOrderIndex")
        $MyOptions[6][$i][3] = "把我的电脑放在我的文档之上"
        $MyOptions[6][$i][1] = "把我的电脑放在我的文档之上，默认桌面我的电脑图标放在我的文档图标之下，如果希望改变，此设置可以解决这个问题。"
        If $Temp = "84" Then
                $MyOptions[6][$i][1] = $MyOptions[6][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[6][$i][2] = 0
        Else
                $MyOptions[6][$i][2] = 1
        EndIf
        $j += $MyOptions[6][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "Link")
        $MyOptions[6][$i][3] = "禁止添加快捷方式字样"
        $MyOptions[6][$i][1] = "禁止添加快捷方式字样，默认新建快捷方式时会在名称中加入“快捷方式”字样，如果不希望加上这几个字，禁止添加快捷方式字样可以解决这个问题。"
        ;问题
        If $Temp = "0x00000000" Then
                $MyOptions[6][$i][1] = $MyOptions[6][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[6][$i][2] = 0
        Else
                $MyOptions[6][$i][2] = 1
        EndIf
        $j += $MyOptions[6][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "PaintDesktopVersion")
        $MyOptions[6][$i][3] = "桌面上显示Windows版本号"
        $MyOptions[6][$i][1] = "桌面上显示Windows版本号，默认不在桌面上显示Windows版本号，如果希望加上这个信息，可以设置在桌面上显示Windows版本号。"
        If $Temp = "1" Then
                $MyOptions[6][$i][1] = $MyOptions[6][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[6][$i][2] = 0
        Else
                $MyOptions[6][$i][2] = 1
        EndIf
        $j += $MyOptions[6][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\CleanupWiz", "NoRun")
        $MyOptions[6][$i][3] = "禁用桌面清理向导"
        $MyOptions[6][$i][1] = "禁用桌面清理向导，默认会定期运行桌面清理向导，以帮助用户减少桌面上的图标，此设置可以禁用桌面清理向导。"
        If $Temp = "1" Then
                $MyOptions[6][$i][1] = $MyOptions[6][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[6][$i][2] = 0
        Else
                $MyOptions[6][$i][2] = 1
        EndIf
        $j += $MyOptions[6][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Tour", "RunCount")
        $MyOptions[6][$i][3] = "禁止Windows漫游气球提醒"
        $MyOptions[6][$i][1] = "禁止Windows漫游气球提醒，默认Windows会显示几次漫游提醒，此设置可以禁止Windows漫游气球提醒。"
        If $Temp = "0" Then
                $MyOptions[6][$i][1] = $MyOptions[6][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[6][$i][2] = 0
        Else
                $MyOptions[6][$i][2] = 1
        EndIf
        $j += $MyOptions[6][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarGlomming")
        $MyOptions[6][$i][3] = "不分组相似任务栏按钮"
        $MyOptions[6][$i][1] = "不分组相似任务栏按钮，默认Windows会在任务栏合并显示同类窗口，此设置可以禁止Windows分组相似任务栏按钮。"
        If $Temp = "0" Then
                $MyOptions[6][$i][1] = $MyOptions[6][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[6][$i][2] = 0
        Else
                $MyOptions[6][$i][2] = 1
        EndIf
        $j += $MyOptions[6][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\WebView\BarricadedFolders", "shell:ControlPanelFolder")
        $MyOptions[6][$i][3] = "使用传统控制面板样式"
        $MyOptions[6][$i][1] = "使用传统控制面板样式，默认Windows分类显示控制面板项目，此设置可以使用传统控制面板样式。"
        If $Temp = "0" Then
                $MyOptions[6][$i][1] = $MyOptions[6][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[6][$i][2] = 0
        Else
                $MyOptions[6][$i][2] = 1
        EndIf
        $j += $MyOptions[6][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "ScreenSaverIsSecure")
        $MyOptions[6][$i][3] = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "NoAutoReturnToWelcome")
        $MyOptions[6][$i][1] = "退出屏保后不回到登录界面，默认Windows退出屏幕保护状态后会回到登录界面，此设置可以使得退出屏保后不回到登录界面。"
        If $Temp = "0" And $MyOptions[6][$i][3] = "1" Then
                $MyOptions[6][$i][1] = $MyOptions[6][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[6][$i][2] = 0
        Else
                $MyOptions[6][$i][2] = 1
        EndIf
        $MyOptions[6][$i][3] = "退出屏保后不回到登录界面"
        $j += $MyOptions[6][$i][2]
        $i += 1
        $Temp = StringMid(RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Power", "AcPolicy"), 163, 2)
        $MyOptions[6][$i][3] = "从待机状态恢复时不提示输入密码"
        $MyOptions[6][$i][1] = "从待机状态恢复时不提示输入密码，默认Windows从待机状态恢复时会提示输入密码，应用此设置可以直接回到桌面。"
        If $Temp = "00" Then
                $MyOptions[6][$i][1] = $MyOptions[6][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[6][$i][2] = 0
        Else
                $MyOptions[6][$i][2] = 1
        EndIf
        $j += $MyOptions[6][$i][2]
        $i += 1
        $k = 0
        $MyOptions[6][$i][2] = 0;假定已开启
        Do
                $k = $k + 1
                $Temp = RegEnumKey("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network", $k);遍历Network
                If @error = -1 Then ExitLoop
                If StringLeft($Temp, 1) = "{" And StringRight($Temp, 1) = "}" And StringLen($Temp) = 38 Then
                        $MyOptions[6][$i][1] = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network" & $Temp, "")
                        If $MyOptions[6][$i][1] = "网卡" Then
                                $MyOptions[6][$i][2] = 1;假定未开启
                                ExitLoop
                        EndIf
                EndIf
        Until 0
        If $MyOptions[6][$i][2] = 1 Then
                $MyOptions[6][$i][2] = 0;假定已开启
                $MyOptions[6][$i][3] = $Temp
                $MyOptions[0][0][0] = $Temp;备份以便设置时直接使用
                $k = 0
                Do
                        $k = $k + 1
                        $Temp = RegEnumKey("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network" & $MyOptions[6][$i][3], $k)
                        If @error = -1 Then ExitLoop
                        If StringLeft($Temp, 1) = "{" And StringRight($Temp, 1) = "}" And StringLen($Temp) = 38 Then
                                $MyOptions[6][$i][1] = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network" & $MyOptions[6][$i][3] & "" & $Temp & "\Connection", "ShowIcon")
                                If @error = -1 Or $MyOptions[6][$i][1] = "0" Then
                                        $MyOptions[6][$i][2] = "1";找到一个未开启的,下面的不用找了
                                        ExitLoop
                                EndIf
                        EndIf
                Until 0
        EndIf
        $MyOptions[6][$i][3] = "网络连接后显示图标"
        $MyOptions[6][$i][1] = "网络连接后显示图标，默认网络连接建立后不显示系统栏图标，此设置可以显示图标。"
        If $MyOptions[6][$i][2] = 0 Then
                $MyOptions[6][$i][1] = $MyOptions[6][$i][1] & @CRLF & "目前系统上的该功能已开启。"
        EndIf
        $j += $MyOptions[6][$i][2]
        $i += 1
        Run("RunDll32.exe shell32.dll,Options_RunDLL 1")
        MoveProgramsDir()
        Do
                Sleep($MySleep)
        Until WinExists("任务栏和「开始」菜单属性")
        WinSetState("任务栏和「开始」菜单属性", "", @SW_HIDE)
        Do
                Sleep($MySleep)
        Until ControlCommand("任务栏和「开始」菜单属性", "", "[ID:1107]", "IsEnabled", "") = 1
        Do
                Sleep($MySleep)
                $Temp = ControlCommand("任务栏和「开始」菜单属性", "", "[ID:1107]", "IsChecked", "")
        Until @error <> 1
        WinClose("任务栏和「开始」菜单属性", "")
        $MyOptions[6][$i][3] = "显示快速启动工具栏"
        $MyOptions[6][$i][1] = "显示快速启动工具栏，默认不在任务栏显示快速启动工具栏，此设置可以使得任务栏显示快速启动工具栏。"
        If $Temp = "1" Then
                $MyOptions[6][$i][1] = $MyOptions[6][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[6][$i][2] = 0
        Else
                $MyOptions[6][$i][2] = 1
        EndIf
        $j += $MyOptions[6][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "EnableAutoTray")
        $MyOptions[6][$i][3] = "隐藏不活动的图标"
        $MyOptions[6][$i][1] = "隐藏不活动的图标，，此设置可以使任务栏隐藏不活动的图标。"
        If $Temp <> "0" Then
                $MyOptions[6][$i][1] = $MyOptions[6][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[6][$i][2] = 0
        Else
                $MyOptions[6][$i][2] = 1
        EndIf
        $j += $MyOptions[6][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Control Panel\International", "sLongDate")
        $MyOptions[6][$i][3] = "任务栏时间悬停显示星期"
        $MyOptions[6][$i][1] = "任务栏时间悬停显示星期，默认任务栏时间悬停则显示年月日，此设置可以加上星期。"
        If $Temp = "yyyy'年'M'月'd'日'dddd" Then
                $MyOptions[6][$i][1] = $MyOptions[6][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[6][$i][2] = 0
        Else
                $MyOptions[6][$i][2] = 1
        EndIf

        $j += $MyOptions[6][$i][2]

        $MyOptions[6][0][1] = "桌面和外观类的设置"
        Select
                Case $j = 0
                        $MyOptions[6][0][2] = 0;该类都已启用
                Case $j = $i
                        $MyOptions[6][0][2] = 1;该类都未启用
                Case Else
                        $MyOptions[6][0][2] = 2;该类有启用的也有未启用的
        EndSelect
        If $MyOptions[6][0][2] <> 0 Then;需要设置
                $MyOptions[6][0][0] = GUICtrlCreateTreeViewItem("桌面和外观", $treeview)
                GUICtrlSetColor(-1, 0x0000C0)
                For $j = 1 To $i
                        If $MyOptions[6][$j][2] = 1 Then
                                $MyOptions[6][$j][0] = GUICtrlCreateTreeViewItem($MyOptions[6][$j][3], $MyOptions[6][0][0])
                                GUICtrlSetState(-1, $GUI_CHECKED)
                        EndIf
                Next
                GUICtrlSetState($MyOptions[6][0][0], $GUI_EXPAND + $GUI_CHECKED)
        EndIf
        ;********************
        ;****************优化
        $i = 1
        $j = 0
        $Temp = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E96A-E325-11CE-BFC1-08002BE10318}"
        $Temp1 = "0000"
        $MyOptions[7][$i][2] = 0;假定不需要关闭IDE通道
        Do
                $MyOptions[7][$i][1] = RegRead($Temp & $Temp1, "MasterDeviceType")
                If @error = "0" Then;存在此值项
                        If $MyOptions[7][$i][1] = "0" And RegRead($Temp & $Temp1, "UserMasterDeviceType") <> "3" Then $MyOptions[7][$i][2] = 1
                        If RegRead($Temp & $Temp1, "SlaveDeviceType") = "0" And RegRead($Temp & $Temp1, "UserSlaveDeviceType") <> "3" Then $MyOptions[7][$i][2] = 1
                EndIf
                $Temp1 = StringRight("0000" & String(Number($Temp1) + 1), 4)
                $MyOptions[7][$i][1] = RegRead($Temp & $Temp1, "MasterDeviceType")
        Until @error = 1 Or $MyOptions[7][$i][2] = 1
        $MyOptions[7][$i][3] = "关闭不使用的IDE通道"
        $MyOptions[7][$i][1] = "关闭不使用的IDE通道，默认Windows启动时会检测所有的IDE通道，如果关闭不使用的IDE通道，可以加快系统启动速度，但这会导致今后新增的IDE设备不被识别。"
        If $MyOptions[7][$i][2] = 0 Then
                $MyOptions[7][$i][1] = $MyOptions[7][$i][1] & @CRLF & "目前系统上的该功能已开启。"
        EndIf
        $j += $MyOptions[7][$i][2]
        $i += 1
        $MyOptions[7][$i][3] = RegRead("HKEY_CLASSES_ROOT\CLSID\{E88DCCE0-B7B3-11d1-A9F0-00AA0060FA31}", "")
        $Temp = RegRead("HKEY_CLASSES_ROOT\CLSID\{0CD7A5C0-9F37-11CE-AE65-08002B2E1262}", "")
        $MyOptions[7][$i][1] = "取消压缩文件支持，默认资源管理器将ZIP、CAB文件当作目录管理，且搜索时会搜索这些文件内的文件，如果希望提高系统性能，可以设置取消压缩文件支持。"
        If $MyOptions[7][$i][3] & $Temp = "" Then
                $MyOptions[7][$i][1] = $MyOptions[7][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[7][$i][2] = 0
        Else
                $MyOptions[7][$i][2] = 1
        EndIf
        $MyOptions[7][$i][3] = "取消压缩文件支持"
        $j += $MyOptions[7][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PrefetchParameters", "EnablePrefetcher")
        $MyOptions[7][$i][3] = "开启启动预读"
        $MyOptions[7][$i][1] = "开启启动预读，默认预读方式工作较慢，如果希望提高启动速度，可以设置开启启动预读。"
        If $Temp = "1" Then
                $MyOptions[7][$i][1] = $MyOptions[7][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[7][$i][2] = 0
        Else
                $MyOptions[7][$i][2] = 1
        EndIf
        $j += $MyOptions[7][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Power", "Heuristics")
        $MyOptions[7][$i][3] = "关闭休眠功能（重启后生效）"
        $MyOptions[7][$i][1] = "关闭休眠功能，默认可能打开了休眠功能，如果希望节省空间，可以设置关闭休眠功能。"
        If StringMid($Temp, 15, 2) = "00" Then
                $MyOptions[7][$i][1] = $MyOptions[7][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[7][$i][2] = 0
        Else
                $MyOptions[7][$i][2] = 1
        EndIf
        $j += $MyOptions[7][$i][2]
        $i += 1
        $Temp = StringMid(RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Power", "AcPolicy"), 27, 2)
        $MyOptions[7][$i][3] = "按下电源按钮时问我做什么"
        $MyOptions[7][$i][1] = "按下电源按钮时问我做什么，默认按下电源按钮时快速关闭系统，此设置可以改为问我做什么。"
        If $Temp = "08" Then
                $MyOptions[7][$i][1] = $MyOptions[7][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[7][$i][2] = 0
        Else
                $MyOptions[7][$i][2] = 1
        EndIf
        $j += $MyOptions[7][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AeDebug", "Auto")
        $Temp &= RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DrWatson", "AppendToLogFile")
        $Temp &= RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DrWatson", "CreateCrashDump")
        $Temp &= RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DrWatson", "DumpAllThreads")
        $MyOptions[7][$i][3] = "关闭Dr.Watson"
        $MyOptions[7][$i][1] = "关闭Dr.Watson，默认打开了Dr.Watson调试程序，如果希望提升性能，可以设置关闭Dr.Watson。"
        If $Temp = "0000" Then
                $MyOptions[7][$i][1] = $MyOptions[7][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[7][$i][2] = 0
        Else
                $MyOptions[7][$i][2] = 1
        EndIf
        $j += $MyOptions[7][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\CrashControl", "CrashDumpEnabled")
        $Temp &= RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\CrashControl", "AutoReboot")
        $Temp &= RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\CrashControl", "SendAlert")
        $Temp &= RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\CrashControl", "LogEvent")
        $MyOptions[7][$i][3] = "关闭系统失败信息（重启后生效）"
        $MyOptions[7][$i][1] = "关闭系统失败信息，默认记录系统失败信息，如果希望提升性能，可以设置关闭系统失败信息。"
        If $Temp = "0000" Then
                $MyOptions[7][$i][1] = $MyOptions[7][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[7][$i][2] = 0
        Else
                $MyOptions[7][$i][2] = 1
        EndIf
        $j += $MyOptions[7][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PCHealth\ErrorReporting", "DoReport")
        $Temp &= RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PCHealth\ErrorReporting", "ShowUI")
        $MyOptions[7][$i][3] = "关闭错误汇报（重启后生效）"
        $MyOptions[7][$i][1] = "关闭错误汇报，默认系统错误时汇报，如果希望提升性能，可以设置关闭错误汇报。"
        If $Temp = "01" Then
                $MyOptions[7][$i][1] = $MyOptions[7][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[7][$i][2] = 0
        Else
                $MyOptions[7][$i][2] = 1
        EndIf
        $j += $MyOptions[7][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "NoAutoUpdate")
        $MyOptions[7][$i][3] = "关闭自动更新（系统后台更新）"
        $MyOptions[7][$i][1] = "关闭自动更新，默认系统可以自动于后台进行关键更新，如果希望提升性能，可以设置关闭自动更新。"
        If $Temp = "1" Then
                $MyOptions[7][$i][1] = $MyOptions[7][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[7][$i][2] = 0
        Else
                $MyOptions[7][$i][2] = 1
        EndIf
        $j += $MyOptions[7][$i][2]
        $i += 1
        $k = 1
        $MyOptions[7][$i][2] = 0;假定已开启
        Do
                $k = $k + 1
                $Temp = StringUpper(RegRead("HKEY_CURRENT_USER\Keyboard Layout\preload", $k));遍历输入法
                If $Temp = "" Then ExitLoop
                If $Temp = "E0010804" Or $Temp = "E0030804" Or $Temp = "E0040804" Then
                        $MyOptions[7][$i][2] = 1;找到一个要删除的输入法
                        ExitLoop
                EndIf
        Until 0
        $MyOptions[7][$i][3] = "删除多余输入法（需重启）"
        $MyOptions[7][$i][1] = "删除多余输入法，默认系统安装了全拼、郑码、智能ABC输入法，如果希望提升性能，可以删除它们。"
        If $MyOptions[7][$i][2] = 0 Then
                $MyOptions[7][$i][1] = $MyOptions[7][$i][1] & @CRLF & "目前系统上的该功能已开启。"
        EndIf
        $j += $MyOptions[7][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "SourcePath")
        $MyOptions[7][$i][3] = "修改安装源路径（需重启）"
        $MyOptions[7][$i][1] = "修改安装源路径，默认系统从最初安装路径获得需要的重要文件，如果希望另外指定一个位置，可以设置修改安装源路径。"

        $MyOptions[7][$i][2] = 1;假定可以找到符合条件的安装源路径
        If DriveGetType($Temp) = "Fixed" Then;源路径是硬盘
                If FileExists($Temp & "\WINNT32.EXE") Then
                        $MyOptions[7][$i][2] = 0
                        $MyOptions[7][$i][1] = $MyOptions[7][$i][1] & @CRLF & "目前系统上的该功能已开启。" & @CRLF & "安装源路径是：" & $Temp
                EndIf
        EndIf
        If $MyOptions[7][$i][2] = 1 Then;要重新找一个
                $MyOptions[7][$i][2] = 0;假定找不到
                $IMEList = DriveGetDrive("FIXED")
                For $k = 1 To $IMEList[0]
                        If StringUpper($IMEList[$k]) = "C:" Then ContinueLoop
                        If FileExists($IMEList[$k] & "\OS\PWINXP\I386\WINNT32.EXE") Then
                                $MyOptions[7][$i][2] = 1
                                $MyOptions[7][$i][1] &= @CRLF & "可以设置为：" & $IMEList[$k] & "\OS\PWINXP\I386"
                        EndIf
                Next
                If $MyOptions[7][$i][2] = 0 Then $MyOptions[7][$i][1] &= @CRLF & "未找到合适的路径！"
        EndIf
        $j += $MyOptions[7][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects", "VisualFXSetting")
        $MyOptions[7][$i][3] = "降低视觉效果"
        $MyOptions[7][$i][1] = "降低视觉效果，默认系统应用了较多视觉效果，如果希望提升性能，可以设置降低视觉效果。"
        If $Temp = "3" Then
                $MyOptions[7][$i][1] = $MyOptions[7][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[7][$i][2] = 0
        Else
                $MyOptions[7][$i][2] = 1
        EndIf
        $j += $MyOptions[7][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Policies\Microsoft\Messenger\Client", "PreventRun")
        $Temp &= RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Outlook Express", "Hide Messenger")
        $MyOptions[7][$i][3] = "屏蔽Windows Messenger和MSN"
        $MyOptions[7][$i][1] = "屏蔽Windows Messenger和MSN，默认系统自带的Windows Messenger和MSN经常随其他软件启动，如果希望提升性能，可以设置禁止运行Windows Messenger、MSN不随OE运行。"
        If $Temp = "12" Then
                $MyOptions[7][$i][1] = $MyOptions[7][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[7][$i][2] = 0
        Else
                $MyOptions[7][$i][2] = 1
        EndIf
        $j += $MyOptions[7][$i][2]
        $i += 1
        $MyOptions[7][$i][2] = SetMouse()
        $MyOptions[7][$i][3] = "提升PS2鼠标性能"
        $MyOptions[7][$i][1] = "提升PS2鼠标性能，默认系统采用较保守的PS2鼠标性能参数，如果希望提升性能，可以应用此设置。"
        Switch $MyOptions[7][$i][2]
                Case 0
                        $MyOptions[7][$i][1] = $MyOptions[7][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                Case 2
                        $MyOptions[7][$i][1] = $MyOptions[7][$i][1] & @CRLF & "没有发现PS2鼠标！"
                        $MyOptions[7][$i][2] = 0
        EndSwitch
        $j += $MyOptions[7][$i][2]

        $MyOptions[7][0][1] = "性能优化类的设置"
        Select
                Case $j = 0
                        $MyOptions[7][0][2] = 0;该类都已启用
                Case $j = $i
                        $MyOptions[7][0][2] = 1;该类都未启用
                Case Else
                        $MyOptions[7][0][2] = 2;该类有启用的也有未启用的
        EndSelect
        If $MyOptions[7][0][2] <> 0 Then;需要设置
                $MyOptions[7][0][0] = GUICtrlCreateTreeViewItem("性能优化", $treeview)
                GUICtrlSetColor(-1, 0x0000C0)
                For $j = 1 To $i
                        If $MyOptions[7][$j][2] = 1 Then
                                $MyOptions[7][$j][0] = GUICtrlCreateTreeViewItem($MyOptions[7][$j][3], $MyOptions[7][0][0])
                                GUICtrlSetState(-1, $GUI_CHECKED)
                        EndIf
                Next
                GUICtrlSetState($MyOptions[7][0][0], $GUI_EXPAND + $GUI_CHECKED)
        EndIf

        EndIf

辣椒龙 · 发表于 2010-7-5 14:56:06

发不下，第一段-2

        ;********************
        ;**************便利性
        $i = 1
        $j = 0
        $Temp = RegRead("HKEY_CURRENT_USER\Control Panel\Keyboard", "InitialKeyboardIndicators")
        $MyOptions[8][$i][3] = "开启小键盘灯"
        $MyOptions[8][$i][1] = "开启小键盘灯，默认Windows启动时关闭小键盘灯，如果希望用小键盘加快输入数字的速度，可以设置开启小键盘灯。"
        If $Temp = "2" Then
                $MyOptions[8][$i][1] = $MyOptions[8][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[8][$i][2] = 0
        Else
                $MyOptions[8][$i][2] = 1
        EndIf
        $j += $MyOptions[8][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\NotePad", "fwrap")
        $MyOptions[8][$i][3] = "记事本自动换行"
        $MyOptions[8][$i][1] = "记事本自动换行，默认记事本不自动换行，可以设置开启自动换行功能。"
        If $Temp = "1" Then
                $MyOptions[8][$i][1] = $MyOptions[8][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[8][$i][2] = 0
        Else
                $MyOptions[8][$i][2] = 1
        EndIf
        $j += $MyOptions[8][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Notepad", "StatusBar")
        $MyOptions[8][$i][3] = "记事本显示状态栏"
        $MyOptions[8][$i][1] = "记事本显示状态栏，默认记事本不显示状态栏，可以设置显示状态栏。"
        If $Temp = "1" Then
                $MyOptions[8][$i][1] = $MyOptions[8][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[8][$i][2] = 0
        Else
                $MyOptions[8][$i][2] = 1
        EndIf
        $j += $MyOptions[8][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Console", "QuickEdit")
        $MyOptions[8][$i][3] = "CMD窗口可直接用鼠标选择"
        $MyOptions[8][$i][1] = "CMD窗口可直接用鼠标选择，默认CMD窗口需要点标记后才能用鼠标选择，此功能可以设置直接用鼠标选择。"
        If $Temp = "1" Then
                $MyOptions[8][$i][1] = $MyOptions[8][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[8][$i][2] = 0
        Else
                $MyOptions[8][$i][2] = 1
        EndIf
        $j += $MyOptions[8][$i][2]
        $i += 1
        $MyOptions[8][$i][3] = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Folder\shell\Open_DOS_Box", "")
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Folder\shell\Open_DOS_Box\command", "")
        $MyOptions[8][$i][1] = "文件夹右键菜单添加“DOS 在这里”，此功能可以直接进入所在目录的DOS命令行状态。"
        If $MyOptions[8][$i][3] & $Temp = "DOS 在这里CMD.EXE /K CD %1" Then
                $MyOptions[8][$i][1] = $MyOptions[8][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[8][$i][2] = 0
        Else
                $MyOptions[8][$i][2] = 1
        EndIf
        $MyOptions[8][$i][3] = "文件夹右键菜单添加“DOS 在这里”"
        $j += $MyOptions[8][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "AutoAdminLogon")
        $MyOptions[8][$i][3] = "自动登录Windows"
        $MyOptions[8][$i][1] = "自动登录Windows，默认Windows XP显示一个登录欢迎画面，如果希望直接用当前用户以空密码登录，可以设置自动登录Windows。"
        If $Temp = "1" Then
                $MyOptions[8][$i][1] = $MyOptions[8][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[8][$i][2] = 0
        Else
                $MyOptions[8][$i][2] = 1
        EndIf
        $j += $MyOptions[8][$i][2]
        $i += 1
        $Temp = IniRead(@WindowsDir & '\win.ini', 'SciCalc', 'layout', '1')
        $MyOptions[8][$i][3] = "显示科学型计算器"
        $MyOptions[8][$i][1] = "显示科学型计算器，默认Windows显示一个标准型计算器界面，如果希望使用更高级的功能，可以设置显示科学型计算器。"
        If $Temp = "0" Then
                $MyOptions[8][$i][1] = $MyOptions[8][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[8][$i][2] = 0
        Else
                $MyOptions[8][$i][2] = 1
        EndIf
        $j += $MyOptions[8][$i][2]
        $i += 1
        $MyOptions[8][$i][2] = SetMSPY2007()
        $MyOptions[8][$i][3] = "设置双拼及模糊拼音方案"
        $MyOptions[8][$i][1] = "设置双拼及模糊拼音方案，默认微软拼音输入法以全拼及不模糊方式工作，如果希望改变，可以设置双拼及模糊拼音方案。"
        If $MyOptions[8][$i][2] = 0 Then
                $MyOptions[8][$i][1] = $MyOptions[8][$i][1] & @CRLF & "目前系统上的该功能已开启。"
        EndIf
        $j += $MyOptions[8][$i][2]
        $i += 1
        $Temp = FileGetVersion(@SystemDir & "\taskmgr.exe")
        $MyOptions[8][$i][3] = "使用Longhorn任务管理器"
        $MyOptions[8][$i][1] = "使用Longhorn任务管理器，默认XP使用的任务管理器功能较弱，此功能可以改为使用Longhorn版本任务管理器。"
        If $Temp = "5.1.2600.0" Then
                $MyOptions[8][$i][1] = $MyOptions[8][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[8][$i][2] = 0
        Else
                $MyOptions[8][$i][2] = 1
        EndIf
        $j += $MyOptions[8][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbar", "{710EB7A1-45ED-11D0-924A-0020AFC7AC4D}")
        $MyOptions[8][$i][3] = "添加资源管理器工具栏按钮"
        $MyOptions[8][$i][1] = "添加资源管理器工具栏按钮，默认资源管理器工具栏按钮较少，如果希望添加几个常用的按钮，可以在这里设置。"
        If $Temp = "0x07000000EE0300007E69791EC59CD111A83F00C04FC99D612001000004000000EF0300007E69791EC59CD111A83F00C04FC99D612101000000000000F00300007E69791EC59CD111A83F00C04FC99D613001000004000000FFFFFFFF000000000000000000000000000000000000000000000000F10300007E69791EC59CD111A83F00C04FC99D612301000004000000F20300007E69791EC59CD111A83F00C04FC99D613301000045000000FFFFFFFF000000000000000000000000000000000000000000000000FB030000A1B70E71ED45D011924A0020AFC7AC4D1F700000040000000C040000A1B70E71ED45D011924A0020AFC7AC4D1E700000040000000D040000A1B70E71ED45D011924A0020AFC7AC4D11700000040000000E040000A1B70E71ED45D011924A0020AFC7AC4D1B70000004000000FFFFFFFF00000000000000000000000000000000000000000000000031700000A1B70E71ED45D011924A0020AFC7AC4D3170000004000000" Then
                $MyOptions[8][$i][1] = $MyOptions[8][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[8][$i][2] = 0
        Else
                $MyOptions[8][$i][2] = 1
        EndIf
        $j += $MyOptions[8][$i][2]
        $i += 1
        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "MemCheckBoxInRunDlg")
        $MyOptions[8][$i][3] = "在运行中添加单独的内存空间"
        $MyOptions[8][$i][1] = "在运行中添加单独的内存空间，默认Windows XP在“运行”对话框中不显示“在单独的内存空间中运行”复选框，此功能可以让其显示。"
        If $Temp = "1" Then
                $MyOptions[8][$i][1] = $MyOptions[8][$i][1] & @CRLF & "目前系统上的该功能已开启。"
                $MyOptions[8][$i][2] = 0
        Else
                $MyOptions[8][$i][2] = 1
        EndIf
;~         $j += $MyOptions[8][$i][2]
;~         $i += 1
;~         $Temp = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "VendorIdentifier")
;~         $MyOptions[8][$i][3] = "让系统显示更准确的CPU资料"
;~         $MyOptions[8][$i][1] = "让系统显示更准确的CPU资料，默认Windows XP在系统属性中显示不易理解的CPU型号，此功能可以让系统显示更准确的CPU资料。"
;~         If $Temp = "Genuine Intel" Then
;~                 $MyOptions[8][$i][1] = $MyOptions[8][$i][1] & @CRLF & "目前系统上的该功能已开启。"
;~                 $MyOptions[8][$i][2] = 0
;~         Else
;~                 $MyOptions[8][$i][2] = 1
;~         EndIf
        $j += $MyOptions[8][$i][2]

        $MyOptions[8][0][1] = "操作便利性的设置"
        Select
                Case $j = 0
                        $MyOptions[8][0][2] = 0;该类都已启用
                Case $j = $i
                        $MyOptions[8][0][2] = 1;该类都未启用
                Case Else
                        $MyOptions[8][0][2] = 2;该类有启用的也有未启用的
        EndSelect
        If $MyOptions[8][0][2] <> 0 Then;需要设置
                $MyOptions[8][0][0] = GUICtrlCreateTreeViewItem("便利性", $treeview)
                GUICtrlSetColor(-1, 0x0000C0)
                For $j = 1 To $i
                        If $MyOptions[8][$j][2] = 1 Then
                                $MyOptions[8][$j][0] = GUICtrlCreateTreeViewItem($MyOptions[8][$j][3], $MyOptions[8][0][0])
                                GUICtrlSetState(-1, $GUI_CHECKED)
                        EndIf
                Next
                GUICtrlSetState($MyOptions[8][0][0], $GUI_EXPAND + $GUI_CHECKED)

        If $MyOptions[1][0][2] <> 0 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions[1][0][0], "shell32.dll", 221)
        If $MyOptions[1][0][2] <> 1 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions[1][0][3], "shell32.dll", 221)
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[1][1][0], "shell32.dll", 7);开启137GB大硬盘支持

        If $MyOptions[2][0][2] <> 0 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions[2][0][0], "shell32.dll", 15)
        If $MyOptions[2][0][2] <> 1 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions[2][0][3], "shell32.dll", 15)
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[2][1][0], "shell32.dll", 67);显示已知文件的扩展名
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[2][2][0], "shell32.dll", 133);在标题栏显示完整路径
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[2][3][0], "shell32.dll", 133);在地址栏中显示完整路径
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[2][4][0], "shell32.dll", 45);启动分区内容照常显示
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[2][5][0], "shell32.dll", 19);资源管理器显示状态栏
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[2][6][0], "shell32.dll", 19);资源管理器显示状态栏

        If $MyOptions[3][0][2] <> 0 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions[3][0][0], "shell32.dll", 18)
        If $MyOptions[3][0][2] <> 1 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions[3][0][3], "shell32.dll", 18)
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[3][1][0], "timedate.cpl", 0);设置Internet对时服务器
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[3][2][0], "shell32.dll", 158);不使用简单文件共享
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[3][3][0], "shell32.dll", 82);不自动搜索网络文件夹和打印机
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[3][4][0], "shell32.dll", 111);使用空白密码的账户可以本地登录
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[3][5][0], "shell32.dll", 47);允许文件和打印机共享
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[3][6][0], "mstask.dll", 0);不显示网上邻居的计划任务

        If $MyOptions[4][0][2] <> 0 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions[4][0][0], "shell32.dll", 165)
        If $MyOptions[4][0][2] <> 1 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions[4][0][3], "shell32.dll", 165)
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[4][1][0], "shell32.dll", 166);禁用系统还原
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[4][2][0], "shell32.dll", 204);禁用CD刻录服务
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[4][3][0], "shell32.dll", 221);禁用错误报告服务
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[4][4][0], "xpsp2res.dll", 65);禁用安全中心服务
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[4][5][0], "shell32.dll", 188);禁用自动播放服务
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[4][6][0], "regedit.exe", 0);手动远程注册表服务
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[4][7][0], "shell32.dll", 120);手动智能卡的取读服务
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[4][8][0], "xpsp2res.dll", 19);手动无线网络自动配置
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[4][9][0], "shell32.dll", 23);手动帮助服务
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[4][10][0], "xpsp2res.dll", 44);手动IP安全策略服务
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[4][11][0], "shell32.dll", 16);手动后台打印服务
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[4][12][0], "shell32.dll", 104);手动受保护存放区服务
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[4][13][0], "shell32.dll", 111);手动二次登录服务
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[4][14][0], "mstask.dll", 0);手动计划任务服务
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[4][15][0], "shell32.dll", 18);手动TCP/IP NetBIOS服务
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[4][16][0], "shell32.dll", 13);手动Web客户端服务
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[4][17][0], "shell32.dll", 165);手动调试管理服务
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[4][18][0], "shell32.dll", 18);手动计算机列表服务
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[4][19][0], "shell32.dll", 9);手动NTFS文件链接服务
        If $MyOptions[5][0][2] <> 0 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions[5][0][0], "shell32.dll", 220)
        If $MyOptions[5][0][2] <> 1 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions[5][0][3], "shell32.dll", 220)
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[5][1][0], "shell32.dll", 225);以UTF-8发送URL
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[5][2][0], "shell32.dll", 91);使用空白主页
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[5][3][0], "shell32.dll", 161);关闭IE自动缩图功能
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[5][4][0], "shell32.dll", 223);下载完成后自动关闭
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[5][5][0], "shell32.dll", 211);显示验证码
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[5][6][0], "shell32.dll", 146);桌面不显示IE图标
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[5][7][0], "shell32.dll", 48);不弹出提示控件安装窗口
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[5][8][0], "shell32.dll", 220);IE8菜单移到地址栏上方
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[5][9][0], "inetcpl.cpl", 43);IE8总在选项卡中打开新页面
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[5][10][0], "inetcpl.cpl", 36);添加一些受信任列表

        If $MyOptions[6][0][2] <> 0 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions[6][0][0], "shell32.dll", 34)
        If $MyOptions[6][0][2] <> 1 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions[6][0][3], "shell32.dll", 34)
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[6][1][0], "shell32.dll", 39);显示经典开始菜单
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[6][2][0], "shell32.dll", 84);把我的电脑放在我的文档之上
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[6][3][0], "shell32.dll", 133);禁止添加快捷方式字样
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[6][4][0], "shell32.dll", 46);桌面上显示Windows版本号
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[6][5][0], "shell32.dll", 169);禁用桌面清理向导
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[6][6][0], "shell32.dll", 172);禁止Windows漫游气球提醒
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[6][7][0], "shell32.dll", 39);不分组相似任务栏按钮
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[6][8][0], "shell32.dll", 35);使用传统控制面板样式
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[6][9][0], "shell32.dll", 104);退出屏保后不回到登录界面
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[6][10][0], "shell32.dll", 104);从待机状态恢复时不提示输入密码
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[6][11][0], "shell32.dll", 88);网络连接后显示图标
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[6][12][0], "shell32.dll", 137);显示快速启动工具栏
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[6][13][0], "shell32.dll", 39);隐藏不活动的图标
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[6][14][0], "timedate.cpl");任务栏时间悬停显示星期

        If $MyOptions[7][0][2] <> 0 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions[7][0][0], "shell32.dll", 166)
        If $MyOptions[7][0][2] <> 1 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions[7][0][3], "shell32.dll", 166)
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[7][1][0], "shell32.dll", 7);关闭不使用的IDE通道
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[7][2][0], "zipfldr.dll", 0);取消压缩文件支持
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[7][3][0], "shell32.dll", 76);开启启动预读
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[7][4][0], "shell32.dll", 25);关闭休眠功能
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[7][5][0], "Powercfg.cpl", 2);按下电源按钮时问我做什么
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[7][6][0], "drwtsn32.exe");关闭Dr.Watson
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[7][7][0], "shell32.dll", 131);关闭系统失败信息
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[7][8][0], "shell32.dll", 221);关闭错误汇报
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[7][9][0], "shell32.dll", 46);关闭自动更新
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[7][10][0], "shell32.dll", 73);删除多余输入法
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[7][11][0], "shell32.dll", 11);修改安装源路径
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[7][12][0], "shell32.dll", 141);降低视觉效果
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[7][13][0], @ProgramFilesDir & "\Messenger\msmsgs.exe", 0);屏蔽Windows Messenger和MSN
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[7][14][0], "main.cpl", 0);提升PS2鼠标性能

        If $MyOptions[8][0][2] <> 0 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions[8][0][0], "shell32.dll", 20)
        If $MyOptions[8][0][2] <> 1 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions[8][0][3], "shell32.dll", 20)
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[8][1][0], "shell32.dll", 173);开启小键盘灯
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[8][2][0], "shell32.dll", 70);记事本自动换行
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[8][3][0], "shell32.dll", 70);记事本显示状态栏
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[8][4][0], "cmd.exe");CMD窗口可直接用鼠标选择
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[8][5][0], "cmd.exe", 0);文件夹右键菜单中添加“DOS 在这里”
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[8][6][0], "shell32.dll", 160);自动登录Windows
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[8][7][0], "calc.exe", 0);显示科学型计算器
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[8][8][0], "%SystemRoot%\system32\IME\PINTLGNT\PINTLPHR.EXE", 0);设置双拼及模糊拼音方案
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[8][9][0], @ScriptDir & "\系统\Longhorn任务管理器\taskmgr.exe", 0);使用Longhorn任务管理器
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[8][10][0], "shell32.dll", 15);添加资源管理器工具栏按钮
        _GUICtrlTreeView_SetIcon($treeview, $MyOptions[8][11][0], "shell32.dll", 76);在运行中添加单独的内存空间
;~         _GUICtrlTreeView_SetIcon($treeview, $MyOptions[8][12][0], "shell32.dll", 12);让系统显示更准确的CPU资料

辣椒龙 · 发表于 2010-7-5 14:57:45

第二段：用于设置对应的项目。如上，有些是注册表项目过多，懒得一一改，直接在图形界面上操作了……

        $o = 1
        If $MyOptions[1][$o][2] = 1 Then
                _GUICtrlTreeView_SelectItem($treeview, $MyOptions[1][$o][0], $TVGN_FIRSTVISIBLE)
                RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\atapi\Parameters", "EnableBigLba", "REG_DWORD", "1")
        EndIf

        $o = 1
        If $MyOptions[2][0][2] <> 0 Then
                If $MyOptions[2][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[2][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "HideFileExt", "REG_DWORD", "0")
                EndIf
                $o += 1
                If $MyOptions[2][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[2][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CabinetState", "FullPath", "REG_DWORD", "1")
                EndIf
                $o += 1
                If $MyOptions[2][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[2][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CabinetState", "FullPathAddress", "REG_DWORD", "1")
                EndIf
                $o += 1
                If $MyOptions[2][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[2][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\WebView\BarricadedFolders", "shell:SystemDriveRootFolder", "REG_DWORD", "0")
                EndIf
                $o += 1
                If $MyOptions[2][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[2][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "StatusBarOther", "REG_DWORD", "1")
                EndIf
                $o += 1
                If $MyOptions[2][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[2][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "ShowAttribCol", "REG_DWORD", "1")
                EndIf
        EndIf
        $o = 1
        If $MyOptions[3][0][2] <> 0 Then
                ;网络中加入一个时间服务器3.asia.pool.ntp.org
                If $MyOptions[3][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[3][$o][0], $TVGN_FIRSTVISIBLE)
                        $i = 1
                        $Temp1 = "-1";最大序号,=-2表示不要进行任何设置
                        Do
                                $Temp = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\DateTime\Servers", $i)
                                If @error = -1 Then
                                        ExitLoop
                                EndIf
                                If $Temp > $Temp1 Then $Temp1 = $Temp
                                If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\DateTime\Servers", $Temp) = "3.asia.pool.ntp.org" Then
                                        $Temp1 = "-2"
                                        ExitLoop
                                EndIf
                                $i += 1
                        Until 0
                        If $Temp1 <> "-2" Then
                                RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\DateTime\Servers", String($Temp1 + 1), "REG_SZ", "3.asia.pool.ntp.org")
                                RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\DateTime\Servers", "", "REG_SZ", String($Temp1 + 1))
                        EndIf
                EndIf
                $o += 1
                If $MyOptions[3][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[3][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa", "forceguest", "REG_DWORD", "0")
                EndIf
                $o += 1
                If $MyOptions[3][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[3][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "NoNetCrawling", "REG_DWORD", "1")
                EndIf
                $o += 1
                If $MyOptions[3][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[3][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa", "limitblankpassworduse", "REG_DWORD", "0")
                EndIf
                $o += 1
                If $MyOptions[3][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[3][$o][0], $TVGN_FIRSTVISIBLE)
                        Run(@ComSpec & " /c " & 'netsh firewall add portopening tcp 139 "NetBIOS 会话服务" ENABLE SUBNET', "", @SW_HIDE)
                        Run(@ComSpec & " /c " & 'netsh firewall add portopening tcp 445 "TCP 上的 SMB" ENABLE SUBNET', "", @SW_HIDE)
                        Run(@ComSpec & " /c " & 'netsh firewall add portopening UDP 137 "NetBIOS 名称服务" ENABLE SUBNET', "", @SW_HIDE)
                        Run(@ComSpec & " /c " & 'netsh firewall add portopening UDP 138 "NetBIOS 数据报服务" ENABLE SUBNET', "", @SW_HIDE)
                EndIf
                $o += 1
                If $MyOptions[3][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[3][$o][0], $TVGN_FIRSTVISIBLE)
                        RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\RemoteComputer\NameSpace\{D6277990-4C6A-11CF-87-00AA0060F5BF}")
                        RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\RemoteComputer\NameSpace\{D6277990-4C6A-11CF-8D87-00AA0060F5BF}")
                EndIf
        EndIf
        $o = 1
        If $MyOptions[4][0][2] <> 0 Then
                If $MyOptions[4][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[4][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\SystemRestore", "DisableSR", "REG_DWORD", "1")
                        RegWrite("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Srservice", "Start", "REG_DWORD", "4")
                EndIf
                $o += 1
                If $MyOptions[4][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[4][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ImapiService", "Start", "REG_DWORD", "4")
                EndIf
                $o += 1
                If $MyOptions[4][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[4][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ERSvc", "Start", "REG_DWORD", "4")
                EndIf
                $o += 1
                If $MyOptions[4][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[4][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\wscsvc", "Start", "REG_DWORD", "4")
                EndIf
                $o += 1
                If $MyOptions[4][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[4][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ShellHWDetection", "Start", "REG_DWORD", "4")
                EndIf
                $o += 1
                If $MyOptions[4][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[4][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\RemoteRegistry", "Start", "REG_DWORD", "3")
                EndIf
                $o += 1
                If $MyOptions[4][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[4][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SCardSvr", "Start", "REG_DWORD", "3")
                EndIf
                $o += 1
                If $MyOptions[4][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[4][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\WZCSVC", "Start", "REG_DWORD", "3")
                EndIf
                $o += 1
                If $MyOptions[4][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[4][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\helpsvc", "Start", "REG_DWORD", "3")
                EndIf
                $o += 1
                If $MyOptions[4][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[4][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\PolicyAgent", "Start", "REG_DWORD", "3")
                EndIf
                $o += 1
                If $MyOptions[4][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[4][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Spooler", "Start", "REG_DWORD", "3")
                EndIf
                $o += 1
                If $MyOptions[4][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[4][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ProtectedStorage", "Start", "REG_DWORD", "3")
                EndIf
                $o += 1
                If $MyOptions[4][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[4][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\seclogon", "Start", "REG_DWORD", "3")
                EndIf
                $o += 1
                If $MyOptions[4][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[4][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Schedule", "Start", "REG_DWORD", "3")
                EndIf
                $o += 1
                If $MyOptions[4][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[4][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LmHosts", "Start", "REG_DWORD", "3")
                EndIf
                $o += 1
                If $MyOptions[4][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[4][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\WebClient", "Start", "REG_DWORD", "3")
                EndIf
                $o += 1
                If $MyOptions[4][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[4][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\MDM", "Start", "REG_DWORD", "3")
                EndIf
                $o += 1
                If $MyOptions[4][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[4][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Browser", "Start", "REG_DWORD", "3")
                EndIf
                $o += 1
                If $MyOptions[4][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[4][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\TrkWks", "Start", "REG_DWORD", "3")
                EndIf
        EndIf
        $o = 1
        If $MyOptions[5][0][2] <> 0 Then
                If $MyOptions[5][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[5][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3", "1601", "REG_DWORD", "0")
                EndIf
                $o += 1
                If $MyOptions[5][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[5][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Start Page", "REG_SZ", "about:blank")
                EndIf
                $o += 1
                If $MyOptions[5][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[5][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Enable AutoImageResize", "REG_SZ", "no")
                EndIf
                $o += 1
                If $MyOptions[5][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[5][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "NotifyDownloadComplete", "REG_SZ", "no")
                EndIf
                $o += 1
                If $MyOptions[5][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[5][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Security", "BlockXBM", "REG_DWORD", "0")
                EndIf
                $o += 1
                If $MyOptions[5][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[5][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoInternetIcon", "REG_DWORD", "1")
                EndIf
                $o += 1
                If $MyOptions[5][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[5][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\InformationBar", "FirstTime", "REG_DWORD", "0")
                EndIf
                $o += 1
                If $MyOptions[5][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[5][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbar\WebBrowser", "ITBar7Position", "REG_DWORD", "1")
                        RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Toolbar\WebBrowser", "ITBar7Position", "REG_DWORD", "1")
                EndIf
                $o += 1
                If $MyOptions[5][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[5][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TabbedBrowsing", "PopupsUseNewWindow", "REG_DWORD", "2");遇到弹出窗口时始终在新选项卡中打开弹出窗口
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TabbedBrowsing", "ShortcutBehavior", "REG_DWORD", "1");其他程序从当前窗口的新选项卡打开连接
                EndIf
                $o += 1
                If $MyOptions[5][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[5][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\com.cn\www.icbc", "http", "REG_DWORD", "2");添加http://www.icbc.com.cn
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\com.cn\mybank.icbc", "https", "REG_DWORD", "2");添加https://mybank.icbc.com.cn
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\ecitic.com\creditcard", "https", "REG_DWORD", "2");添加https://creditcard.ecitic.com
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\ecitic.com\e.bank", "https", "REG_DWORD", "2");添加https://e.bank.ecitic.com
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\ecitic.com\enterprise.bank", "https", "REG_DWORD", "2");添加https://enterprise.bank.ecitic.com
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\microsoft.com\update", "http", "REG_DWORD", "2");添加添加http://update.microsoft.com
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\microsoft.com\www.update", "http", "REG_DWORD", "2");添加http://www.update.microsoft.com
                EndIf
        EndIf
        $o = 1
        If $MyOptions[6][0][2] <> 0 Then
                If $MyOptions[6][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[6][$o][0], $TVGN_FIRSTVISIBLE)
                        $Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "ShellState")
                        If StringLen($Temp) < 67 Then
                                $Temp = "2400000033A80100000000000000000000000000010000000D0000000000000000000000"
                        EndIf
                        $Temp1 = StringLeft($Temp, 64) & "00" & StringRight($Temp, 6)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "ShellState", "REG_BINARY", $Temp1)
                EndIf
                $o += 1
                If $MyOptions[6][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[6][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CLASSES_ROOT\CLSID\{450D8FBA-AD25-11D0-98A8-0800361B1103}", "SortOrderIndex", "REG_DWORD", "84")
                EndIf
                $o += 1
                If $MyOptions[6][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[6][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "Link", "REG_BINARY", "0x00000000")
                EndIf
                $o += 1
                If $MyOptions[6][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[6][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "PaintDesktopVersion", "REG_DWORD", "1")
                EndIf
                $o += 1
                If $MyOptions[6][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[6][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\CleanupWiz", "NoRun", "REG_DWORD", "1")
                EndIf
                $o += 1
                If $MyOptions[6][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[6][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Tour", "RunCount", "REG_DWORD", "0")
                EndIf
                $o += 1
                If $MyOptions[6][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[6][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarGlomming", "REG_DWORD", "0")
                        RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarGlomming", "REG_DWORD", "0")
                EndIf
                $o += 1
                If $MyOptions[6][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[6][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\WebView\BarricadedFolders", "shell:ControlPanelFolder", "REG_DWORD", "0")
                EndIf
                $o += 1
                If $MyOptions[6][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[6][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "ScreenSaverIsSecure", "REG_SZ", "0")
                        RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "NoAutoReturnToWelcome", "REG_SZ", "1")
                EndIf
                $o += 1
                If $MyOptions[6][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[6][$o][0], $TVGN_FIRSTVISIBLE)
                        Run("POWERCFG /G off /OPTION RESUMEPASSWORD", "", @SW_HIDE)
                EndIf
                $o += 1
                If $MyOptions[6][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[6][$o][0], $TVGN_FIRSTVISIBLE)
                        $i = 0
                        Do
                                $i = $i + 1
                                $Temp = RegEnumKey("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network" & $MyOptions[0][0][0], $i)
                                If @error = -1 Then ExitLoop
                                If StringLeft($Temp, 1) = "{" And StringRight($Temp, 1) = "}" And StringLen($Temp) = 38 Then
                                        $MyOptions[0][0][1] = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network" & $MyOptions[0][0][0] & "" & $Temp & "\Connection", "ShowIcon")
                                        If @error = -1 Or $MyOptions[0][0][1] = "0" Then;找到一个未开启的
                                                RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network" & $MyOptions[0][0][0] & "" & $Temp & "\Connection", "ShowIcon", "REG_DWORD", "1")
                                        EndIf
                                EndIf
                        Until 0
                EndIf
                $o += 1
                If $MyOptions[6][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[6][$o][0], $TVGN_FIRSTVISIBLE)
                        Run("RunDll32.exe shell32.dll,Options_RunDLL 1")
                        Do
                                Sleep($MySleep)
                        Until WinExists("任务栏和「开始」菜单属性")
                        Sleep($MySleep)
                        WinSetState("任务栏和「开始」菜单属性", "", @SW_HIDE)
                        Do
                                Sleep($MySleep)
                                ControlCommand("任务栏和「开始」菜单属性", "", "[ID:1107]", "Check", "")
                        Until ControlCommand("任务栏和「开始」菜单属性", "", "[ID:1107]", "IsChecked", "") = 1
                        Do
                                Sleep($MySleep)
                                ControlClick("任务栏和「开始」菜单属性", "", "[ID:1]")
                        Until Not WinExists("任务栏和「开始」菜单属性")
                EndIf
                $o += 1
                If $MyOptions[6][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[6][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "EnableAutoTray", "REG_DWORD", "1")
                EndIf
                $o += 1
                If $MyOptions[6][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[6][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Control Panel\International", "sLongDate", "REG_SZ", "yyyy'年'M'月'd'日'dddd")
                EndIf
        EndIf
        $o = 1
        If $MyOptions[7][0][2] <> 0 Then
                If $MyOptions[7][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[7][$o][0], $TVGN_FIRSTVISIBLE)
                        $Temp = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E96A-E325-11CE-BFC1-08002BE10318}"
                        $Temp1 = "0000"
                        Do
                                $MyOptions[7][$o][1] = RegRead($Temp & $Temp1, "MasterDeviceType")
                                If @error = "0" Then;存在此值项
                                        If $MyOptions[7][$o][1] = "0" And RegRead($Temp & $Temp1, "UserMasterDeviceType") <> "3" Then RegWrite($Temp & $Temp1, "UserMasterDeviceType", "REG_DWORD", "3")
                                        If RegRead($Temp & $Temp1, "SlaveDeviceType") = "0" And RegRead($Temp & $Temp1, "UserSlaveDeviceType") <> "3" Then RegWrite($Temp & $Temp1, "UserSlaveDeviceType", "REG_DWORD", "3")
                                EndIf
                                $Temp1 = StringRight("0000" & String(Number($Temp1) + 1), 4)
                                $MyOptions[7][$o][1] = RegRead($Temp & $Temp1, "MasterDeviceType")
                        Until @error = 1
                EndIf
                $o += 1
                If $MyOptions[7][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[7][$o][0], $TVGN_FIRSTVISIBLE)
                        Run("regsvr32 /s /u zipfldr.dll")
                        Run("regsvr32 /s /u cabview.dll")
                EndIf
                $o += 1
                If $MyOptions[7][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[7][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PrefetchParameters", "EnablePrefetcher", "REG_DWORD", "1")
                EndIf
                $o += 1
                If $MyOptions[7][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[7][$o][0], $TVGN_FIRSTVISIBLE)
                        Run("powercfg /h off", "", @SW_HIDE)
                EndIf
                $o += 1
                If $MyOptions[7][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[7][$o][0], $TVGN_FIRSTVISIBLE)
;~ StringMid(RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Power", "AcPolicy"), 27, 2)<>"08";在按下计算机电源按钮时(&E):问我要做什么 08则已起作用

;~ RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Power", "AcPolicy", "REG_BINARY", StringReplace(RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Power", "AcPolicy"),27,"08",1))
;~ RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Power", "DcPolicy", "REG_BINARY", StringReplace(RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Power", "DcPolicy"),27,"08",1))
;~ $Temp=RegRead("HKEY_CURRENT_USER\Control Panel\PowerCfg\GlobalPowerPolicy", "Policies")
;~ MsgBox(0, StringMid($Temp,27,2), StringMid($Temp,51,2))
;~ $Temp=StringReplace($Temp,27,"08",1)
;~ $Temp=StringReplace($Temp,51,"08",1)
;~ RegWrite("HKEY_CURRENT_USER\Control Panel\PowerCfg\GlobalPowerPolicy", "Policies", "REG_BINARY", $Temp)
;~ MsgBox(0, StringMid($Temp,27,2), StringMid($Temp,51,2))
                        Run("rundll32.exe shell32.dll,Control_RunDLL Powercfg.cpl,,9")
                        $TitleStr = "电源选项 属性"
                        Do
                                Sleep($MySleep)
                        Until ControlCommand($TitleStr, "电源使用方案", "确定", "IsEnabled", "") = 1
                        Do
                                Sleep($MySleep)
                                ControlSend($TitleStr, "电源使用方案", "SysTabControl321", "+{RIGHT}")
                        Until ControlCommand($TitleStr, "高级", "确定", "IsEnabled", "") = 1
                        Do
                                Sleep($MySleep)
                                ControlCommand($TitleStr, "高级", "ComboBox2", "SetCurrentSelection", 1)
                        Until ControlGetText($TitleStr, "高级", "ComboBox2") = "问我要做什么"
                        Do
                                Sleep($MySleep)
                                ControlClick($TitleStr, "高级", "确定")
                        Until Not WinExists($TitleStr, "高级")
                EndIf
                $o += 1
                If $MyOptions[7][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[7][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AeDebug", "Auto", "REG_SZ", "0")
                        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DrWatson", "AppendToLogFile", "REG_DWORD", "0")
                        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DrWatson", "CreateCrashDump", "REG_DWORD", "0")
                        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DrWatson", "DumpAllThreads", "REG_DWORD", "0")
                EndIf
                $o += 1
                If $MyOptions[7][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[7][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\CrashControl", "CrashDumpEnabled", "REG_DWORD", "0")
                        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\CrashControl", "AutoReboot", "REG_DWORD", "0")
                        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\CrashControl", "SendAlert", "REG_DWORD", "0")
                        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\CrashControl", "LogEvent", "REG_DWORD", "0")
                EndIf
                $o += 1
                If $MyOptions[7][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[7][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PCHealth\ErrorReporting", "DoReport", "REG_DWORD", "0")
                        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PCHealth\ErrorReporting", "ShowUI", "REG_DWORD", "1")
                EndIf
                $o += 1
                If $MyOptions[7][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[7][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "NoAutoUpdate", "REG_DWORD", "1")
                EndIf
                $o += 1
                If $MyOptions[7][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[7][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Keyboard Layout\IMEtoggle\scancode")
                        $MyOptions[7][$o][1] = ""
                        $k = 1
                        Do
                                $k = $k + 1
                                $Temp = StringUpper(RegRead("HKEY_CURRENT_USER\Keyboard Layout\preload", $k));遍历输入法
                                If $Temp = "" Then ExitLoop
                                If $Temp = "E0010804" Or $Temp = "E0030804" Or $Temp = "E0040804" Then
                                Else
                                        $MyOptions[7][$o][1] &= $Temp & "/"
                                EndIf
                        Until 0
                        $IMEList = StringSplit($MyOptions[7][$o][1], "/")
                        For $i = 1 To UBound($IMEList) - 2
                                RegWrite("HKEY_CURRENT_USER\Keyboard Layout\preload", $i + 1, "REG_SZ", $IMEList[$i])
                                $k = $i + 1
                        Next
                        Do
                                $k = $k + 1
                                If RegDelete("HKEY_CURRENT_USER\Keyboard Layout\preload", $k) <> 1 Then ExitLoop
                        Until 0
                EndIf
                $o += 1
                ;修改安装源路径
                If $MyOptions[7][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[7][$o][0], $TVGN_FIRSTVISIBLE)
                        $IMEList = DriveGetDrive("FIXED")
                        For $k = 1 To $IMEList[0]
                                If StringUpper($IMEList[$k]) = "C:" Then ContinueLoop
                                If FileExists($IMEList[$k] & "\OS\PWINXP\I386\WINNT32.EXE") Then
                                        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "SourcePath", "REG_SZ", StringUpper($IMEList[$k]) & "\OS\PWINXP\I386")
                                        ExitLoop
                                EndIf
                        Next
                EndIf
                $o += 1
                If $MyOptions[7][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[7][$o][0], $TVGN_FIRSTVISIBLE)
                        Run("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,3")
                        Do
                                Sleep($MySleep)
                        Until WinExists("系统属性")
                        WinSetState("系统属性", "", @SW_HIDE)
                        Do
                                Sleep($MySleep)
                        Until ControlCommand("系统属性", "", "确定", "IsEnabled", "") = 1
                        Do
                                Sleep($MySleep)
                                ControlSend("系统属性", "", "Button1", "{ENTER}")
                        Until WinExists("性能选项")
                        WinSetState("性能选项", "", @SW_HIDE)
                        Do
                                Sleep($MySleep)
                        Until ControlCommand("性能选项", "", "调整为最佳性能(&P)", "IsEnabled", "") = 1
                        Do
                                Sleep($MySleep)
                                ControlClick("性能选项", "", "调整为最佳性能(&P)")
                        Until ControlCommand("性能选项", "", "调整为最佳性能(&P)", "IsChecked", "") = 1
                        ControlTreeView("性能选项", "视觉效果", "SysTreeView321", "Select", "#4")
                        ControlSend("性能选项", "", "SysTreeView321", "{SPACE}")
                        ControlTreeView("性能选项", "视觉效果", "SysTreeView321", "Select", "#7")
                        ControlSend("性能选项", "", "SysTreeView321", "{SPACE}")
                        ControlTreeView("性能选项", "视觉效果", "SysTreeView321", "Select", "#8")
                        ControlSend("性能选项", "", "SysTreeView321", "{SPACE}")
                        ControlTreeView("性能选项", "视觉效果", "SysTreeView321", "Select", "#9")
                        ControlSend("性能选项", "", "SysTreeView321", "{SPACE}")
                        ControlTreeView("性能选项", "视觉效果", "SysTreeView321", "Select", "#12")
                        ControlSend("性能选项", "", "SysTreeView321", "{SPACE}")
                        ControlTreeView("性能选项", "视觉效果", "SysTreeView321", "Select", "#13")
                        ControlSend("性能选项", "", "SysTreeView321", "{SPACE}")
                        ControlTreeView("性能选项", "视觉效果", "SysTreeView321", "Select", "#14")
                        ControlSend("性能选项", "", "SysTreeView321", "{SPACE}")
                        Sleep($MySleep * 2)
                        ControlClick("性能选项", "", "确定")
                        Do
                                Sleep($MySleep)
                        Until MouseGetCursor() = 2
                        WinWaitClose("性能选项")
                        Sleep($MySleep * 2)
                        Do
                                Sleep($MySleep)
                                ControlClick("系统属性", "", "确定")
                        Until Not WinExists("系统属性")
                EndIf
                $o += 1
                If $MyOptions[7][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[7][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Messenger\Client", "PreventRun", "REG_DWORD", "1");不允许运行Windows Messenger
                        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Outlook Express", "Hide Messenger", "REG_DWORD", "2");让系统自带的MSN不随Outlook Express一起启动
                EndIf
                $o += 1
                If $MyOptions[7][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[7][$o][0], $TVGN_FIRSTVISIBLE)
                        SetMouse(1)
                EndIf
        EndIf
        $o = 1
        If $MyOptions[8][0][2] <> 0 Then
                If $MyOptions[8][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[8][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Control Panel\Keyboard", "InitialKeyboardIndicators", "REG_SZ", "2")
                        Send("{NUMLOCK on}")
                EndIf
                $o += 1
                If $MyOptions[8][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[8][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\NotePad", "fwrap", "REG_DWORD", "1")
                EndIf
                $o += 1
                If $MyOptions[8][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[8][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Notepad", "StatusBar", "REG_DWORD", "1")
                EndIf
                $o += 1
                If $MyOptions[8][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[8][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Console", "QuickEdit", "REG_DWORD", "1")
                EndIf
                $o += 1
                If $MyOptions[8][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[8][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Folder\shell\Open_DOS_Box", "", "REG_SZ", "DOS 在这里")
                        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Folder\shell\Open_DOS_Box\command", "", "REG_EXPAND_SZ", "CMD.EXE /K CD %1")
                EndIf
                $o += 1
                If $MyOptions[8][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[8][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "AutoAdminLogon", "REG_SZ", "1")
                        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "DefaultUserName", "REG_SZ", @UserName)
                        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "DefaultPassword", "REG_SZ", "")
                        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "DefaultDomainName", "REG_SZ", @ComputerName)
                EndIf
                $o += 1
                If $MyOptions[8][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[8][$o][0], $TVGN_FIRSTVISIBLE)
                        IniWrite(@WindowsDir & '\win.ini', 'SciCalc', 'layout', '0')
                EndIf
                $o += 1
                If $MyOptions[8][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[8][$o][0], $TVGN_FIRSTVISIBLE)
                        SetMSPY2007(1)
                EndIf
                $o += 1
                If $MyOptions[8][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[8][$o][0], $TVGN_FIRSTVISIBLE)
                        FileCopy(@ScriptDir & "\系统\Longhorn任务管理器\taskkill.exe", @SystemDir & "\dllcache", 1)
                        FileCopy(@ScriptDir & "\系统\Longhorn任务管理器\tasklist.exe", @SystemDir & "\dllcache", 1)
                        FileCopy(@ScriptDir & "\系统\Longhorn任务管理器\taskmgr.exe", @SystemDir & "\dllcache", 1)
                        FileCopy(@ScriptDir & "\系统\Longhorn任务管理器\taskkill.exe", @SystemDir, 1)
                        FileCopy(@ScriptDir & "\系统\Longhorn任务管理器\tasklist.exe", @SystemDir, 1)
                        FileCopy(@ScriptDir & "\系统\Longhorn任务管理器\taskmgr.exe", @SystemDir, 1)
                        Run("taskmgr.exe")
                        $TitleStr = "Windows 任务管理器"
                        Do
                                Sleep($MySleep * 2)
                        Until WinExists($TitleStr)
                        Do
                                Sleep($MySleep)
                        Until ControlCommand($TitleStr, "", "SysTabControl321", "IsEnabled", "") = 1
                        Do
                                Sleep($MySleep)
                                ControlSend($TitleStr, "", "SysTabControl321", "{RIGHT}")
                        Until ControlCommand($TitleStr, "显示所有用户的进程(&S)", "SysTabControl321", "IsEnabled", "") = 1
                        Do
                                Sleep($MySleep)
                                ControlCommand($TitleStr, "", "显示所有用户的进程(&S)", "Check", "")
                        Until ControlCommand($TitleStr, "", "显示所有用户的进程(&S)", "IsChecked", "") = 1
                        Sleep($MySleep)
                        WinMenuSelectItem($TitleStr, "", "选项(&O)", "最小化时隐藏(&H)")
                        Sleep($MySleep)
                        WinMenuSelectItem($TitleStr, "", "查看(&V)", "更新速度(&U)", "高(&H)")
                        Do
                                Sleep($MySleep)
                                WinMenuSelectItem($TitleStr, "", "查看(&V)", "选择列(&S)...")
                                Sleep($MySleep)
                        Until WinExists("选择列")
                        Do
                                Sleep($MySleep)
                                ControlCommand("选择列", "", "会话 ID(&S)", "UnCheck", "")
                        Until ControlCommand("选择列", "", "会话 ID(&S)", "IsChecked", "") = 0
                        Do
                                Sleep($MySleep)
                                ControlCommand("选择列", "", "命令行(&L)", "Check", "")
                        Until ControlCommand("选择列", "", "命令行(&L)", "IsChecked", "") = 1
                        Do
                                Sleep($MySleep)
                                ControlCommand("选择列", "", "映象路径(&I)", "Check", "")
                        Until ControlCommand("选择列", "", "映象路径(&I)", "IsChecked", "") = 1
                        Do
                                Sleep($MySleep)
                                ControlClick("选择列", "", "确定")
                                Sleep($MySleep)
                        Until Not WinExists("选择列")
                        WinClose($TitleStr)
                        Do
                                Sleep($MySleep)
                        Until WinExists("Windows 文件保护")
                        Do
                                Sleep($MySleep)
                                ControlClick("Windows 文件保护", "正常运行 Windows 所需的文件已被替换成无法识别的版本。要保持系统的稳定，Windows 必须还原这些文件的原有版本。", "取消")
                                Sleep($MySleep)
                        Until WinExists("Windows 文件保护", "您决定不还原文件的原始版本。")
                        Do
                                Sleep($MySleep)
                                ControlClick("Windows 文件保护", "您决定不还原文件的原始版本。", "是(&Y)")
                                Sleep($MySleep)
                        Until Not WinExists("Windows 文件保护", "您决定不还原文件的原始版本。")
                EndIf
                $o += 1
                If $MyOptions[8][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[8][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbar", "{710EB7A1-45ED-11D0-924A-0020AFC7AC4D}", "REG_BINARY", "0x07000000EE0300007E69791EC59CD111A83F00C04FC99D612001000004000000EF0300007E69791EC59CD111A83F00C04FC99D612101000000000000F00300007E69791EC59CD111A83F00C04FC99D613001000004000000FFFFFFFF000000000000000000000000000000000000000000000000F10300007E69791EC59CD111A83F00C04FC99D612301000004000000F20300007E69791EC59CD111A83F00C04FC99D613301000045000000FFFFFFFF000000000000000000000000000000000000000000000000FB030000A1B70E71ED45D011924A0020AFC7AC4D1F700000040000000C040000A1B70E71ED45D011924A0020AFC7AC4D1E700000040000000D040000A1B70E71ED45D011924A0020AFC7AC4D11700000040000000E040000A1B70E71ED45D011924A0020AFC7AC4D1B70000004000000FFFFFFFF00000000000000000000000000000000000000000000000031700000A1B70E71ED45D011924A0020AFC7AC4D3170000004000000")
                EndIf
                $o += 1
                If $MyOptions[8][$o][2] = 1 Then
                        _GUICtrlTreeView_SelectItem($treeview, $MyOptions[8][$o][0], $TVGN_FIRSTVISIBLE)
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "MemCheckBoxInRunDlg", "REG_DWORD", "1")
                EndIf
                $o += 1
;~                 If $MyOptions[8][$o][2] = 1 Then
;~                         _GUICtrlTreeView_SelectItem($treeview, $MyOptions[8][$o][0], $TVGN_FIRSTVISIBLE)
;~                         RegWrite("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "VendorIdentifier", "REG_SZ", "Genuine Intel")
;~                 EndIf

辣椒龙 · 发表于 2010-7-5 14:58:15

第三段：中间调用的鼠标和微软拼音的相关自定义函数

Func SetMSPY2007($Mode = 0);检测或设置微软拼音2007 $Mode=0时检测是否模糊双拼（不管是什么输入法），其他值则设置为模糊双拼
        Local $R = 1, $Temp = "", $Temp1 = ""
        If $Mode = 0 Then;检测
                If RegRead($UnInstall & "{52307374-EA35-4003-B7E4-8F1FB422749F}", "DisplayName") = "微软拼音输入法2007" Then;微软拼音2007
                        $Temp = "2007"
                        $Temp1 = RegRead("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "Natural_ReadingOnCandidate")
                        $Temp1 &= RegRead("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "Natural_Prompt")
                        $Temp1 &= RegRead("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "DoublePinyin")
                        $Temp1 &= RegRead("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "AbcCharTermFreqAdjust")
                        $Temp1 &= RegRead("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE\FuzzyScheme", "Data")
                        If StringUpper($Temp1) = StringUpper('0x000000010x000000010x000000010x000000010x073E0000') Then $R = 0
                Else
                        $Temp1 = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY", "Current Fuzzy Scheme")
                        $Temp1 &= RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY", "Custom Fuzzy Scheme")
                        $Temp1 &= RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY", "Mode Config")
                        $Temp1 &= RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY\Fuzzy Scheme", "1")
                        If RegRead($UnInstall & "{4EB78866-FB0D-4D32-A4E5-A871036FD2BF}", "Comments") = "微软拼音输入法 2003" Then;微软拼音2003
                                $Temp = "48"
                                ;下面修正版本号，以便修改时使用
                                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY", "Current Double PinYin Scheme Version", "REG_DWORD", "0x30")
                                If StringUpper($Temp1) = StringUpper('10xe0e000006c0000002949776310xe0e000006c000000') Then $R = 0
                        Else;微软拼音3.0
                                $Temp1 &= RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY", "Keyboard Mapping")
                                If StringUpper($Temp1) = StringUpper('10xe0e000006c0000004041605120xe0e000006c000000524321') Then $R = 0
                        EndIf
                EndIf
                Return $R
        Else;设置
                If RegRead($UnInstall & "{52307374-EA35-4003-B7E4-8F1FB422749F}", "DisplayName") = "微软拼音输入法2007" Then;微软拼音2007
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "AbcBixingInput", "REG_SZ", "0x00000000")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "AbcCharTermFreqAdjust", "REG_SZ", "0x00000001")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "AbcGB2312", "REG_SZ", "0x00000001")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "CandidateLargeFont", "REG_SZ", "0x00000000")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "Classic_Prompt", "REG_SZ", "0x00000000")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "Classic_PromptForcast", "REG_SZ", "0x00000000")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "CompDirectInput", "REG_SZ", "0x0000000d")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "ConfigMigrated", "REG_SZ", "0x00000000")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "DefaultLanguage", "REG_SZ", "0x00000001")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "Domain", "REG_SZ", "0x00000001")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "DoublePinyin", "REG_SZ", "0x00000001")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "EnglishSwitch", "REG_SZ", "0x00000010")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "EUDCFilename", "REG_SZ", "PEudc.tbl")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "Eudp", "REG_SZ", "0x00000001")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "EudpDialogExpanded", "REG_SZ", "0x00000001")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "Fuzzy", "REG_SZ", "0x00000001")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "GBKCandidate", "REG_SZ", "0x00000001")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "Incomplete", "REG_SZ", "0x00000001")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "InputMode", "REG_SZ", "0x00010000")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "Modeless", "REG_SZ", "0x00000000")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "MultipleSyllable", "REG_SZ", "0x00000000")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "Natural_Prompt", "REG_SZ", "0x00000001")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "Natural_PromptForcast", "REG_SZ", "0x00000001")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "Natural_ReadingOnCandidate", "REG_SZ", "0x00000001")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "NewPhraseLearning", "REG_SZ", "0x00000001")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "PinyinWithTone", "REG_SZ", "0x00000000")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "PYConvert", "REG_SZ", "0x00000000")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "ReadingTip", "REG_SZ", "0x00000000")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "ReadLayout", "REG_SZ", "0x00080021")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "ReconvertLength", "REG_SZ", "0x0000000a")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "SelfLearning", "REG_SZ", "0x00000001")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "Trigram", "REG_SZ", "0x00000001")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "VerticalCand", "REG_SZ", "0x00000000")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "Wordbreak", "REG_SZ", "0x00000000")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "WordFreqencyAdjustment", "REG_SZ", "0x00000001")
                        ;RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE", "CharacterSet", "REG_SZ", "0x00000000");可能没有用
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE\DomainList", "Enabled", "REG_BINARY", "0x0F000000008000000000000000000000")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE\DoublePinyinScheme", "Data", "REG_BINARY", "0x0c002d00ffff100025003000ffff1900ffff0d00320024000f003400ffff12003100380015001c00ffff14001a00ffff17001b0037000b003600ffffffff1800ffff0e002e002c0002003300270003002200ffff04002300ffff05001f00ffff06001e00ffff07002000ffff08001d00ffffffff2b00ffff13002100ffff11002900ffff01002800ffff16003500340000002f00ffff0a002a00ffff09002600ffff")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE\DoublePinyinScheme", "Name", "REG_SZ", "{A219BBE1-6528-4bca-889A-A1B6E8DEB159}")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE\FuzzyScheme", "Data", "REG_BINARY", "0x073e0000")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE\FuzzyScheme", "Name", "REG_SZ", "Custom")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE\FuzzyScheme\0", "Data", "REG_BINARY", "0x073e0000")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE\FuzzyScheme\0", "Name", "REG_SZ", "Custom")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE\FuzzyScheme\1", "Data", "REG_BINARY", "0x873f0000")
                        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\IMESC12LITE\FuzzyScheme\1", "Name", "REG_SZ", "微软拼音输入法")
                Else
                        If RegRead($UnInstall & "{4EB78866-FB0D-4D32-A4E5-A871036FD2BF}", "Comments") = "微软拼音输入法 2003" Then;微软拼音2003
                                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY", "Fuzzy Scheme Version", "REG_DWORD", "0x30")
                                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY", "Mode Config Version", "REG_DWORD", "0x30")
                                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY", "UI Config Version", "REG_DWORD", "0x30")
                                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY", "Domain List Version", "REG_DWORD", "0x30")
                                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY", "Current Fuzzy Scheme Version", "REG_DWORD", "0x30")
                                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY", "Custom Fuzzy Scheme Version", "REG_DWORD", "0x30")
                                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY", "Custom Double PinYin Scheme Version", "REG_DWORD", "0x30")
                                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY", "Current Fuzzy Scheme", "REG_SZ", "1")
                                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY", "Custom Fuzzy Scheme", "REG_BINARY", "0xe0e000006c000000")
                                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY", "Mode Config", "REG_DWORD", "0x1195005f")
                                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY\Fuzzy Scheme", "1", "REG_BINARY", "0xe0e000006c000000")
                                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY", "UI Config", "REG_DWORD", "0")
                                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY", "Domain List", "REG_BINARY", "0x0F00000000000000")
                        Else;版本3.0
                                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY", "Fuzzy Scheme Version", "REG_DWORD", "0x20")
                                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY", "Mode Config Version", "REG_DWORD", "0x20")
                                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY", "Keyboard Mapping Version", "REG_DWORD", "0x20")
                                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY", "Current Fuzzy Scheme", "REG_SZ", "1")
                                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY", "Custom Fuzzy Scheme", "REG_BINARY", "0xe0e000006c000000")
                                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY", "Mode Config", "REG_DWORD", "0x18170000")
                                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY", "Keyboard Mapping", "REG_DWORD", "0x00080021")
                                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\MSSCIPY\Fuzzy Scheme", "1", "REG_BINARY", "0xe0e000006c000000")
                        EndIf
                EndIf
        EndIf
EndFunc   ;==>SetMSPY2007

Func SetMouse($Mode = 0);设置PS2鼠标参数 $Mode=0（默认）表示检测设置，否则设置它们
        Local $i = 1, $j = 1, $k = 1, $Temp = "", $Temp1 = "", $Temp2 = "", $R = 2;假定没有找到PS2鼠标
        While RegEnumKey("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\ACPI", $i)
                If @error = -1 Then ExitLoop
                If StringLeft(RegEnumKey("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\ACPI", $i), 5) = "PNP0F" Then ExitLoop;寻找第一个“PNP0F”开头键之前的键
                $i += 1
        WEnd
        Do
                $Temp = RegEnumKey("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\ACPI", $i);遍历"PNP0F"
                If @error = -1 Then ExitLoop
                If StringLeft($Temp, 5) <> "PNP0F" Then ExitLoop
                Do
                        $Temp1 = RegEnumKey("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\ACPI" & $Temp, $j)
                        If @error = -1 Then ExitLoop
                        $Temp2 = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\ACPI" & $Temp & "" & $Temp1, "Class")
                        $Temp2 &= RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\ACPI" & $Temp & "" & $Temp1, "Service")
                        If StringUpper($Temp2) = StringUpper("Mousei8042prt") Then;找到一个PS2鼠标
                                If $R = 2 Then $R = 0;如果还没有找到过，就设为找到并假定全部设置好
                                $Temp1 = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\ACPI" & $Temp & "" & $Temp1 & "\Device Parameters"
                                If $Mode = 0 Then;检测设置
                                        $Temp2 = RegRead($Temp1, "EnableWheelDetection")
                                        $Temp2 &= RegRead($Temp1, "MouseDataQueueSize")
                                        $Temp2 &= RegRead($Temp1, "MouseInitializePolled")
                                        $Temp2 &= RegRead($Temp1, "SampleRate")
;~                                         MsgBox(0,$Temp1,$Temp2)
                                        If $Temp2 <> "23000200" Then Return 1;检测状态下发现一个没设置就直接返回
                                Else;设置它们
                                        RegWrite($Temp1, "EnableWheelDetection", "REG_DWORD", "2");假设鼠标轮已经存在
                                        RegWrite($Temp1, "MouseDataQueueSize", "REG_DWORD", "300");鼠标缓冲区
                                        RegWrite($Temp1, "MouseInitializePolled", "REG_DWORD", "0");快速初始化
                                        RegWrite($Temp1, "SampleRate", "REG_DWORD", "200");鼠标刷新速率
                                EndIf
                        EndIf
                        $j += 1
                Until 0
                $i += 1
        Until 0
        If $Mode = 0 Then Return $R
EndFunc   ;==>SetMouse

说明：比较老的东西了，时间久了，也记不得那么多。当时有超过90%的项目经过仔细测试。但目前的系统环境可能差别较大，所以……
另有些设置是纯个人偏好，总之供楼主参考了。
PS：再来一点IE8的

                RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main", "DisableFirstRunCustomize", "REG_DWORD", "1");不显示"欢迎使用 Internet Explorer" 页面 或者要设为2？
                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "RunOnceHasShown", "REG_DWORD", "1");跳过IE7/IE8首次运行自定义设置
                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "RunOnceComplete", "REG_DWORD", "1");设置为已完成IE7/IE8首次运行自定义设置
                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\LinksBar", "Enabled", "REG_DWORD", "0");隐藏收藏夹
                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\CommandBar", "CommandBarEnabled", "REG_DWORD", "0");隐藏命令栏
                RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_MAXCONNECTIONSPER1_0SERVER", "iexplore.exe", "REG_DWORD", "10");IE8 线程数10
                RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_MAXCONNECTIONSPERSERVER", "iexplore.exe", "REG_DWORD", "10");IE8 线程数10
                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\SQM", "SqmOptInForIE8", "REG_DWORD", "0");不参加客户体验改善计划
                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\CommandBar", "TextOption", "REG_DWORD", "2");选项卡栏上仅显示图标
                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\CommandBar", "ShowLeftAddressToolbar", "REG_DWORD", "1");地址栏前显示刷新、停止按钮
                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TabbedBrowsing", "PopupsUseNewWindow", "REG_DWORD", "2");遇到弹出窗口时始终在新选项卡中打开弹出窗口
                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TabbedBrowsing", "ShortcutBehavior", "REG_DWORD", "1");其他程序从当前窗口的新选项卡打开连接

3mile · 发表于 2010-7-5 16:44:14

体力活。
鉴定完毕

410521a · 发表于 2010-7-5 21:30:16

你发的代码太多`太那个啥了吧`` 我。。。。

410521a · 发表于 2010-7-6 09:10:55

这东西用批处理的概率也很高，到时候我给LZ整个无敌的“伪” bat2au3 ~ 就不用包含那些bat文件了
afan 发表于 2010-7-5 13:27

哥``师父，大叔`，，快点给我发过来呗！！

netegg · 发表于 2010-7-6 09:31:40

有毛病。。。。。。。。。。。。。。。。。。。。

afan · 发表于 2010-7-6 11:13:26

第二段：用于设置对应的项目。如上，有些是注册表项目过多，懒得一一改，直接在图形界面上操作了……
辣椒龙发表于 2010-7-5 14:57

这么长的东西就不要直接贴出来吧，直接上传附件就可以了。这样既影响浏览，又不会有效果，别人不敢看……

哥``师父，大叔`，，快点给我发过来呗！！
410521a 发表于 2010-7-6 09:10

还没做呢，有点忙~

410521a · 发表于 2010-7-6 14:05:20

第一页代码已经写完了

410521a · 发表于 2010-7-6 21:46:23

....那快点出吧` 出来了我都不写了``嘿嘿`

410521a · 发表于 2010-7-6 22:55:10

资料不全`` 不想做了`` 谁想做做吧

chenronting · 发表于 2010-7-7 10:21:25

强大。这么多设置项。如果全从头做。对了解系统又会进一大步~~先收着

[AU3基础] 系统优化与设置`这程序做起来怎么这么麻烦呀

本帖子中包含更多资源

本帖子中包含更多资源

浏览过的版块

		自动登录	找回密码
密码			加入