这东西用批处理的概率也很高，到时候我给LZ整个无敌的“伪” bat2au3 ~ 就不用包含那些bat文件了
这东西用批处理的概率也很高，到时候我给LZ整个无敌的“伪” bat2au3 ~ 就不用包含那些bat文件了
afan 发表于 2010-7-5 13:27 http://www.autoitx.com/images/common/back.gif
afan准备出精品咯！期待中。。。。{:face (411):}
过去整过一个类似的东西，纯给自己用的，可能一些项目不合适大部分人，楼主自己斟酌……
由于涉及到界面显示，所以可能有些代码：赋值什么的 不是楼主关心的，我懒得删了……
第一段：用于判断系统相应功能是否已经优化，另外还有一些项目图标设置（有删减） ;建立需要设置的节点
;************重要设置
$Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\atapi\Parameters", "EnableBigLba")
$MyOptions = "开启137GB大硬盘支持"
$MyOptions = "开启对容量超过137GB的大硬盘的寻址支持，如关闭可能引起永久性的数据丢失，建议在装好系统后立即开启。"
If $Temp = "1" Then
$MyOptions = $MyOptions & @CRLF & "目前系统上的该功能已开启。"
$MyOptions = 0;不需要设置
Else
$MyOptions = 1;需要设置
EndIf
$MyOptions = "应该使用的项目"
$MyOptions = $MyOptions
If $MyOptions <> 0 Then;需要设置
$MyOptions = GUICtrlCreateTreeViewItem("重要设置", $treeview)
GUICtrlSetColor(-1, 0x0000C0)
GUICtrlSetState(-1, $GUI_CHECKED)
$MyOptions = GUICtrlCreateTreeViewItem($MyOptions, $MyOptions)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetState($MyOptions, $GUI_EXPAND)
EndIf
;********************
;**********资源管理器
$i = 1
$j = 0
$Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "HideFileExt")
$MyOptions[$i] = "显示已知文件的扩展名"
$MyOptions[$i] = "显示已知文件的扩展名，默认不显示系统可识别文件的扩展名，但显示所有文件的扩展名更利于文件管理。"
If $Temp = "0" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CabinetState", "FullPath")
$MyOptions[$i] = "在标题栏显示完整路径"
$MyOptions[$i] = "在标题栏显示完整路径，默认不在标题栏显示完整路径，仅显示当前一级目录名，但显示完整路径更加直观。"
If $Temp = "1" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CabinetState", "FullPathAddress")
$MyOptions[$i] = "在地址栏中显示完整路径"
$MyOptions[$i] = "在地址栏中显示完整路径，默认不在地址栏中显示完整路径，但显示完整路径可更容易的定位目录。"
If $Temp = "1" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\WebView\BarricadedFolders", "shell:SystemDriveRootFolder")
$MyOptions[$i] = "启动分区内容照常显示"
$MyOptions[$i] = "启动分区内容照常显示，默认不显示启动分区的内容，但为更方便文件管理可使启动分区内容照常显示。"
If $Temp = "0" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "StatusBarOther")
$MyOptions[$i] = "资源管理器显示状态栏"
$MyOptions[$i] = "资源管理器显示状态栏，默认资源管理器不显示状态栏，但为方便方便查看更多信息可使资源管理器显示状态栏。"
If $Temp = "1" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "ShowAttribCol")
$MyOptions[$i] = "查看详细信息时显示属性（需重启）"
$MyOptions[$i] = "查看详细信息时显示属性，默认资源管理器查看详细信息时不显示属性栏，但为方便方便查看更多信息可使用此功能。"
If $Temp = "1" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$MyOptions = "与资源管理器显示相关的项目"
Select
Case $j = 0
$MyOptions = 0;该类都已启用
Case $j = $i
$MyOptions = 1;该类都未启用
Case Else
$MyOptions = 2;该类有启用的也有未启用的
EndSelect
If $MyOptions <> 0 Then;需要设置
$MyOptions = GUICtrlCreateTreeViewItem("资源管理器", $treeview)
GUICtrlSetColor(-1, 0x0000C0)
For $j = 1 To $i
If $MyOptions[$j] = 1 Then
$MyOptions[$j] = GUICtrlCreateTreeViewItem($MyOptions[$j], $MyOptions)
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
Next
GUICtrlSetState($MyOptions, $GUI_EXPAND + $GUI_CHECKED)
EndIf
;********************
;****************网络
$i = 1
$j = 0
;网络中加入一个时间服务器3.asia.pool.ntp.org
$MyOptions[$i] = 1;临时使用
$Temp1 = "-1";最大序号,=-2表示不要进行任何设置
Do
$Temp = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\DateTime\Servers", $MyOptions[$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
$MyOptions[$i] += 1
Until 0
$MyOptions[$i] = "设置Internet对时服务器"
$MyOptions[$i] = "设置Internet对时服务器，默认NTP服务器难以访问，设置为“3.asia.pool.ntp.org”更容易成功对时。"
If $Temp1 = "-2" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa", "forceguest")
$MyOptions[$i] = "不使用简单文件共享"
$MyOptions[$i] = "不使用简单文件共享，默认使用简单文件共享，但此模式下无法改变文件安全等设置，不使用简单文件共享可以更加灵活地控制权限。"
If $Temp = "0" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "NoNetCrawling")
$MyOptions[$i] = "不自动搜索网络文件夹和打印机"
$MyOptions[$i] = "不自动搜索网络文件夹和打印机，默认会自动搜索网络文件夹和打印机，即定期扫描网络中的计算机，引起不必要的流量，不自动搜索网络文件夹和打印机可以降低流量。"
If $Temp = "1" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa", "limitblankpassworduse")
$MyOptions[$i] = "使用空白密码的账户可以本地登录"
$MyOptions[$i] = "使用空白密码的账户可以本地登录，默认使用空白密码的本地账户只允许进行控制台登录，使低安全级别下的共享变得繁琐，应用此功能可以更方便地访问网络上的其他计算机，但安全性有所下降。"
If $Temp = "0" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List", "137:UDP")
$MyOptions[$i] = 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[$i] <> "138:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22002" Then
$MyOptions[$i] = 1
Else
$MyOptions[$i] = 0
EndIf
If $MyOptions[$i] = 0 Then
$Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List", "139:TCP")
$MyOptions[$i] = 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[$i] <> "445:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22005" Then $MyOptions[$i] = 1
EndIf
$MyOptions[$i] = "允许文件和打印机共享"
$MyOptions[$i] = "允许文件和打印机共享，防火墙默认关闭文件和打印机共享，使局域网访问不便，应用此功能可以更方便地访问网络上的其他计算机，但安全性有所下降。"
If $MyOptions[$i] = "0" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
EndIf
$j += $MyOptions[$i]
$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[$i] = "不显示网上邻居的计划任务"
$MyOptions[$i] = "不显示网上邻居的计划任务，默认打开网上邻居时会搜索其计划任务，使访问变慢，应用此功能可以关闭这个特性。"
If $Temp = "11" Then
$MyOptions[$i] &= @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$MyOptions = "与网络相关的项目"
Select
Case $j = 0
$MyOptions = 0;该类都已启用
Case $j = $i
$MyOptions = 1;该类都未启用
Case Else
$MyOptions = 2;该类有启用的也有未启用的
EndSelect
If $MyOptions <> 0 Then;需要设置
$MyOptions = GUICtrlCreateTreeViewItem("网络", $treeview)
GUICtrlSetColor(-1, 0x0000C0)
For $j = 1 To $i
If $MyOptions[$j] = 1 Then
$MyOptions[$j] = GUICtrlCreateTreeViewItem($MyOptions[$j], $MyOptions)
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
Next
GUICtrlSetState($MyOptions, $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[$i] = "禁用系统还原"
$MyOptions[$i] = "禁用系统还原，默认启用了系统还原功能，但此功能还原能力并不强，禁用系统还原可以获得更好的系统性能。"
If $Temp = "14" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ImapiService", "Start")
$MyOptions[$i] = "禁用CD刻录服务"
$MyOptions[$i] = "禁用CD刻录服务，默认打开了CD刻录服务，这会导致专业刻录软件运行时容易发生冲突，禁用CD刻录服务可以解决这个问题。"
If $Temp = "4" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ERSvc", "Start")
$MyOptions[$i] = "禁用错误报告服务"
$MyOptions[$i] = "禁用错误报告服务，它使服务和应用程序在非标准环境下运行时允许错误报告，为提高性能可以禁用它。"
If $Temp = "4" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\wscsvc", "Start")
$MyOptions[$i] = "禁用安全中心服务"
$MyOptions[$i] = "禁用安全中心服务，它监视系统安全设置和配置，为提高性能可以禁用它。"
If $Temp = "4" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ShellHWDetection", "Start")
$MyOptions[$i] = "禁用自动播放服务"
$MyOptions[$i] = "禁用自动播放服务，它为自动播放硬件事件提供通知，为提高性能可以禁用它。"
If $Temp = "4" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\RemoteRegistry", "Start")
$MyOptions[$i] = "手动远程注册表服务"
$MyOptions[$i] = "手动远程注册表服务，默认打开了远程注册表服务，这会引起一些安全隐患，手动远程注册表服务可以解决这个问题。"
If $Temp <> "2" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SCardSvr", "Start")
$MyOptions[$i] = "手动智能卡的取读服务"
$MyOptions[$i] = "手动智能卡的取读服务，如果不是带有智能卡插槽的计算机，可以手动智能卡的取读访问。"
If $Temp <> "2" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\WZCSVC", "Start")
$MyOptions[$i] = "手动无线网络自动配置"
$MyOptions[$i] = "手动无线网络自动配置，如果不是带有无线网卡的计算机，可以手动无线网络自动配置。"
If $Temp <> "2" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\helpsvc", "Start")
$MyOptions[$i] = "手动帮助服务"
$MyOptions[$i] = "手动帮助服务，它负责启用在此计算机上运行帮助和支持中心，为提高性能可以手动它。"
If $Temp <> "2" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\PolicyAgent", "Start")
$MyOptions[$i] = "手动IP安全策略服务"
$MyOptions[$i] = "手动IP安全策略服务，它负责管理IP安全策略以及启动ISAKMP/Oakley(IKE)和IP安全驱动程序，为提高性能可以手动它。"
If $Temp <> "2" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Spooler", "Start")
$MyOptions[$i] = "手动后台打印服务"
$MyOptions[$i] = "手动后台打印服务，它负责将文件加载到内存中以便迟后打印，为提高性能可以手动它。"
If $Temp <> "2" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ProtectedStorage", "Start")
$MyOptions[$i] = "手动受保护存放区服务"
$MyOptions[$i] = "手动受保护存放区服务，它提供对敏感数据(如私钥)的保护性存储，为提高性能可以手动它。"
If $Temp <> "2" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\seclogon", "Start")
$MyOptions[$i] = "手动二次登录服务"
$MyOptions[$i] = "手动二次登录服务，它提供以另一个身份启用进程的功能，为提高性能可以手动它。"
If $Temp <> "2" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Schedule", "Start")
$MyOptions[$i] = "手动计划任务服务"
$MyOptions[$i] = "手动计划任务服务，它提供以另一个身份启用进程的功能，为提高性能可以手动它。"
If $Temp <> "2" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LmHosts", "Start")
$MyOptions[$i] = "手动TCP/IP NetBIOS服务"
$MyOptions[$i] = "手动TCP/IP NetBIOS服务，它提供以NetBIOS定位计算机功能，为提高性能可以手动它。"
If $Temp <> "2" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\WebClient", "Start")
$MyOptions[$i] = "手动Web客户端服务（WebDav）"
$MyOptions[$i] = "手动Web客户端服务（WebDav），它提供Web客户端服务，为提高性能可以手动它。"
If $Temp <> "2" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\MDM", "Start")
$MyOptions[$i] = "手动调试管理服务（MDM）"
$MyOptions[$i] = $MyOptions[$i] & "，它提供调试程序功能，为提高性能可以手动它。"
If $Temp <> "2" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Browser", "Start")
$MyOptions[$i] = "手动计算机列表服务（Browser）"
$MyOptions[$i] = $MyOptions[$i] & "，它允许本机维护网络上计算机的更新列表，为提高性能可以手动它。"
If $Temp <> "2" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\TrkWks", "Start")
$MyOptions[$i] = "手动NTFS文件链接服务（TrkWks）"
$MyOptions[$i] = $MyOptions[$i] & "，它在计算机内NTFS文件之间保持链接，为提高性能可以手动它。"
If $Temp <> "2" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$MyOptions = "与服务相关的项目"
Select
Case $j = 0
$MyOptions = 0;该类都已启用
Case $j = $i
$MyOptions = 1;该类都未启用
Case Else
$MyOptions = 2;该类有启用的也有未启用的
EndSelect
If $MyOptions <> 0 Then;需要设置
$MyOptions = GUICtrlCreateTreeViewItem("服务", $treeview)
GUICtrlSetColor(-1, 0x0000C0)
For $j = 1 To $i
If $MyOptions[$j] = 1 Then
$MyOptions[$j] = GUICtrlCreateTreeViewItem($MyOptions[$j], $MyOptions)
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
Next
GUICtrlSetState($MyOptions, $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[$i] = "不提示向Internet发送消息"
$MyOptions[$i] = "不提示向Internet发送消息，默认会提示向Internet发送消息，此功能可以在第一次提示前就关闭它。"
If $Temp = "0" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Start Page")
$MyOptions[$i] = "使用空白主页"
$MyOptions[$i] = "使用空白主页，默认不使用空白主页，打开IE就会进入一个网站，使用空白主页可以加快打开IE的速度。"
If $Temp = "about:blank" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Enable AutoImageResize")
$MyOptions[$i] = "关闭IE自动缩图功能"
$MyOptions[$i] = "关闭IE自动缩图功能，默认IE具有自动缩图功能，窗口无法完整显示的图片会被缩小，关闭IE自动缩图功能可以使图片以原始大小显示。"
If $Temp = "no" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "NotifyDownloadComplete")
$MyOptions[$i] = "下载完成后自动关闭"
$MyOptions[$i] = "下载完成后自动关闭，默认IE下载完成后还显示下载窗口，如果你不需要查看完成信息，可以设置下载完成后自动关闭。"
If $Temp = "no" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Security", "BlockXBM")
$MyOptions[$i] = "显示验证码"
$MyOptions[$i] = "显示验证码，默认IE在显示验证码图片时可能会出问题，可以设置显示验证码。"
If $Temp = "0" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoInternetIcon")
$MyOptions[$i] = "桌面不显示IE图标"
$MyOptions[$i] = "桌面不显示IE图标，默认在桌面显示IE图标，如果希望减少桌面图标数量，可以设置桌面不显示IE图标。"
If $Temp = "1" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\InformationBar", "FirstTime")
$MyOptions[$i] = "不弹出提示控件安装窗口"
$MyOptions[$i] = $MyOptions[$i] & "，默认IE会在需要安装控件时弹出提示窗口，可以设置不弹出提示控件安装窗口。"
If $Temp = "0" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$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[$i] = "IE8菜单移到地址栏上方"
$MyOptions[$i] = "IE8菜单移到地址栏上方，默认IE8菜单在地址栏下方，此设置可以把IE8菜单移到地址栏上方。"
If $Temp = "11" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
If RegRead($UnInstall & "ie8", "DisplayName") <> "Windows Internet Explorer 8" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "需要先安装Internet Explorer 8。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
EndIf
$j += $MyOptions[$i]
$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[$i] = "IE8总在选项卡中打开新页面"
$MyOptions[$i] = $MyOptions[$i] & "，默认IE8在新窗口中打开新页面，此设置可以让IE8总在选项卡中打开新页面。"
If $Temp = "21" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
If RegRead($UnInstall & "ie8", "DisplayName") <> "Windows Internet Explorer 8" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "需要先安装Internet Explorer 8。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
EndIf
$j += $MyOptions[$i]
$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[$i] = "添加一些受信任列表"
$MyOptions[$i] = $MyOptions[$i] & "，此设置可以在受信任网站列表中添加工行、招行和微软更新网站。"
If $TitleStr = "2222222" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$MyOptions = "与IE相关的项目"
Select
Case $j = 0
$MyOptions = 0;该类都已启用
Case $j = $i
$MyOptions = 1;该类都未启用
Case Else
$MyOptions = 2;该类有启用的也有未启用的
EndSelect
If $MyOptions <> 0 Then;需要设置
$MyOptions = GUICtrlCreateTreeViewItem("Internet Explorer", $treeview)
GUICtrlSetColor(-1, 0x0000C0)
For $j = 1 To $i
If $MyOptions[$j] = 1 Then
$MyOptions[$j] = GUICtrlCreateTreeViewItem($MyOptions[$j], $MyOptions)
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
Next
GUICtrlSetState($MyOptions, $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[$i] = "显示经典开始菜单"
$MyOptions[$i] = "显示经典开始菜单，默认显示XP样式的开始菜单，如果希望使用类似2000样式的开始菜单，此设置可以解决这个问题。"
If $Temp = "00" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CLASSES_ROOT\CLSID\{450D8FBA-AD25-11D0-98A8-0800361B1103}", "SortOrderIndex")
$MyOptions[$i] = "把我的电脑放在我的文档之上"
$MyOptions[$i] = "把我的电脑放在我的文档之上，默认桌面我的电脑图标放在我的文档图标之下，如果希望改变，此设置可以解决这个问题。"
If $Temp = "84" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "Link")
$MyOptions[$i] = "禁止添加快捷方式字样"
$MyOptions[$i] = "禁止添加快捷方式字样，默认新建快捷方式时会在名称中加入“快捷方式”字样，如果不希望加上这几个字，禁止添加快捷方式字样可以解决这个问题。"
;问题
If $Temp = "0x00000000" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "PaintDesktopVersion")
$MyOptions[$i] = "桌面上显示Windows版本号"
$MyOptions[$i] = "桌面上显示Windows版本号，默认不在桌面上显示Windows版本号，如果希望加上这个信息，可以设置在桌面上显示Windows版本号。"
If $Temp = "1" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\CleanupWiz", "NoRun")
$MyOptions[$i] = "禁用桌面清理向导"
$MyOptions[$i] = "禁用桌面清理向导，默认会定期运行桌面清理向导，以帮助用户减少桌面上的图标，此设置可以禁用桌面清理向导。"
If $Temp = "1" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Tour", "RunCount")
$MyOptions[$i] = "禁止Windows漫游气球提醒"
$MyOptions[$i] = "禁止Windows漫游气球提醒，默认Windows会显示几次漫游提醒，此设置可以禁止Windows漫游气球提醒。"
If $Temp = "0" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarGlomming")
$MyOptions[$i] = "不分组相似任务栏按钮"
$MyOptions[$i] = "不分组相似任务栏按钮，默认Windows会在任务栏合并显示同类窗口，此设置可以禁止Windows分组相似任务栏按钮。"
If $Temp = "0" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\WebView\BarricadedFolders", "shell:ControlPanelFolder")
$MyOptions[$i] = "使用传统控制面板样式"
$MyOptions[$i] = "使用传统控制面板样式，默认Windows分类显示控制面板项目，此设置可以使用传统控制面板样式。"
If $Temp = "0" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "ScreenSaverIsSecure")
$MyOptions[$i] = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "NoAutoReturnToWelcome")
$MyOptions[$i] = "退出屏保后不回到登录界面，默认Windows退出屏幕保护状态后会回到登录界面，此设置可以使得退出屏保后不回到登录界面。"
If $Temp = "0" And $MyOptions[$i] = "1" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$MyOptions[$i] = "退出屏保后不回到登录界面"
$j += $MyOptions[$i]
$i += 1
$Temp = StringMid(RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Power", "AcPolicy"), 163, 2)
$MyOptions[$i] = "从待机状态恢复时不提示输入密码"
$MyOptions[$i] = "从待机状态恢复时不提示输入密码，默认Windows从待机状态恢复时会提示输入密码，应用此设置可以直接回到桌面。"
If $Temp = "00" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$k = 0
$MyOptions[$i] = 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[$i] = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network\" & $Temp, "")
If $MyOptions[$i] = "网卡" Then
$MyOptions[$i] = 1;假定未开启
ExitLoop
EndIf
EndIf
Until 0
If $MyOptions[$i] = 1 Then
$MyOptions[$i] = 0;假定已开启
$MyOptions[$i] = $Temp
$MyOptions = $Temp;备份以便设置时直接使用
$k = 0
Do
$k = $k + 1
$Temp = RegEnumKey("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network\" & $MyOptions[$i], $k)
If @error = -1 Then ExitLoop
If StringLeft($Temp, 1) = "{" And StringRight($Temp, 1) = "}" And StringLen($Temp) = 38 Then
$MyOptions[$i] = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network\" & $MyOptions[$i] & "\" & $Temp & "\Connection", "ShowIcon")
If @error = -1 Or $MyOptions[$i] = "0" Then
$MyOptions[$i] = "1";找到一个未开启的,下面的不用找了
ExitLoop
EndIf
EndIf
Until 0
EndIf
$MyOptions[$i] = "网络连接后显示图标"
$MyOptions[$i] = "网络连接后显示图标，默认网络连接建立后不显示系统栏图标，此设置可以显示图标。"
If $MyOptions[$i] = 0 Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
EndIf
$j += $MyOptions[$i]
$i += 1
Run("RunDll32.exe shell32.dll,Options_RunDLL 1")
MoveProgramsDir()
Do
Sleep($MySleep)
Until WinExists("任务栏和「开始」菜单属性")
WinSetState("任务栏和「开始」菜单属性", "", @SW_HIDE)
Do
Sleep($MySleep)
Until ControlCommand("任务栏和「开始」菜单属性", "", "", "IsEnabled", "") = 1
Do
Sleep($MySleep)
$Temp = ControlCommand("任务栏和「开始」菜单属性", "", "", "IsChecked", "")
Until @error <> 1
WinClose("任务栏和「开始」菜单属性", "")
$MyOptions[$i] = "显示快速启动工具栏"
$MyOptions[$i] = "显示快速启动工具栏，默认不在任务栏显示快速启动工具栏，此设置可以使得任务栏显示快速启动工具栏。"
If $Temp = "1" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "EnableAutoTray")
$MyOptions[$i] = "隐藏不活动的图标"
$MyOptions[$i] = "隐藏不活动的图标，，此设置可以使任务栏隐藏不活动的图标。"
If $Temp <> "0" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CURRENT_USER\Control Panel\International", "sLongDate")
$MyOptions[$i] = "任务栏时间悬停显示星期"
$MyOptions[$i] = "任务栏时间悬停显示星期，默认任务栏时间悬停则显示年月日，此设置可以加上星期。"
If $Temp = "yyyy'年'M'月'd'日'dddd" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$MyOptions = "桌面和外观类的设置"
Select
Case $j = 0
$MyOptions = 0;该类都已启用
Case $j = $i
$MyOptions = 1;该类都未启用
Case Else
$MyOptions = 2;该类有启用的也有未启用的
EndSelect
If $MyOptions <> 0 Then;需要设置
$MyOptions = GUICtrlCreateTreeViewItem("桌面和外观", $treeview)
GUICtrlSetColor(-1, 0x0000C0)
For $j = 1 To $i
If $MyOptions[$j] = 1 Then
$MyOptions[$j] = GUICtrlCreateTreeViewItem($MyOptions[$j], $MyOptions)
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
Next
GUICtrlSetState($MyOptions, $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[$i] = 0;假定不需要关闭IDE通道
Do
$MyOptions[$i] = RegRead($Temp & $Temp1, "MasterDeviceType")
If @error = "0" Then;存在此值项
If $MyOptions[$i] = "0" And RegRead($Temp & $Temp1, "UserMasterDeviceType") <> "3" Then $MyOptions[$i] = 1
If RegRead($Temp & $Temp1, "SlaveDeviceType") = "0" And RegRead($Temp & $Temp1, "UserSlaveDeviceType") <> "3" Then $MyOptions[$i] = 1
EndIf
$Temp1 = StringRight("0000" & String(Number($Temp1) + 1), 4)
$MyOptions[$i] = RegRead($Temp & $Temp1, "MasterDeviceType")
Until @error = 1 Or $MyOptions[$i] = 1
$MyOptions[$i] = "关闭不使用的IDE通道"
$MyOptions[$i] = "关闭不使用的IDE通道，默认Windows启动时会检测所有的IDE通道，如果关闭不使用的IDE通道，可以加快系统启动速度，但这会导致今后新增的IDE设备不被识别。"
If $MyOptions[$i] = 0 Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
EndIf
$j += $MyOptions[$i]
$i += 1
$MyOptions[$i] = RegRead("HKEY_CLASSES_ROOT\CLSID\{E88DCCE0-B7B3-11d1-A9F0-00AA0060FA31}", "")
$Temp = RegRead("HKEY_CLASSES_ROOT\CLSID\{0CD7A5C0-9F37-11CE-AE65-08002B2E1262}", "")
$MyOptions[$i] = "取消压缩文件支持，默认资源管理器将ZIP、CAB文件当作目录管理，且搜索时会搜索这些文件内的文件，如果希望提高系统性能，可以设置取消压缩文件支持。"
If $MyOptions[$i] & $Temp = "" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$MyOptions[$i] = "取消压缩文件支持"
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PrefetchParameters", "EnablePrefetcher")
$MyOptions[$i] = "开启启动预读"
$MyOptions[$i] = "开启启动预读，默认预读方式工作较慢，如果希望提高启动速度，可以设置开启启动预读。"
If $Temp = "1" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Power", "Heuristics")
$MyOptions[$i] = "关闭休眠功能（重启后生效）"
$MyOptions[$i] = "关闭休眠功能，默认可能打开了休眠功能，如果希望节省空间，可以设置关闭休眠功能。"
If StringMid($Temp, 15, 2) = "00" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = StringMid(RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Power", "AcPolicy"), 27, 2)
$MyOptions[$i] = "按下电源按钮时问我做什么"
$MyOptions[$i] = "按下电源按钮时问我做什么，默认按下电源按钮时快速关闭系统，此设置可以改为问我做什么。"
If $Temp = "08" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$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[$i] = "关闭Dr.Watson"
$MyOptions[$i] = "关闭Dr.Watson，默认打开了Dr.Watson调试程序，如果希望提升性能，可以设置关闭Dr.Watson。"
If $Temp = "0000" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$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[$i] = "关闭系统失败信息（重启后生效）"
$MyOptions[$i] = "关闭系统失败信息，默认记录系统失败信息，如果希望提升性能，可以设置关闭系统失败信息。"
If $Temp = "0000" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PCHealth\ErrorReporting", "DoReport")
$Temp &= RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PCHealth\ErrorReporting", "ShowUI")
$MyOptions[$i] = "关闭错误汇报（重启后生效）"
$MyOptions[$i] = "关闭错误汇报，默认系统错误时汇报，如果希望提升性能，可以设置关闭错误汇报。"
If $Temp = "01" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "NoAutoUpdate")
$MyOptions[$i] = "关闭自动更新（系统后台更新）"
$MyOptions[$i] = "关闭自动更新，默认系统可以自动于后台进行关键更新，如果希望提升性能，可以设置关闭自动更新。"
If $Temp = "1" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$k = 1
$MyOptions[$i] = 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[$i] = 1;找到一个要删除的输入法
ExitLoop
EndIf
Until 0
$MyOptions[$i] = "删除多余输入法（需重启）"
$MyOptions[$i] = "删除多余输入法，默认系统安装了全拼、郑码、智能ABC输入法，如果希望提升性能，可以删除它们。"
If $MyOptions[$i] = 0 Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "SourcePath")
$MyOptions[$i] = "修改安装源路径（需重启）"
$MyOptions[$i] = "修改安装源路径，默认系统从最初安装路径获得需要的重要文件，如果希望另外指定一个位置，可以设置修改安装源路径。"
$MyOptions[$i] = 1;假定可以找到符合条件的安装源路径
If DriveGetType($Temp) = "Fixed" Then;源路径是硬盘
If FileExists($Temp & "\WINNT32.EXE") Then
$MyOptions[$i] = 0
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。" & @CRLF & "安装源路径是：" & $Temp
EndIf
EndIf
If $MyOptions[$i] = 1 Then;要重新找一个
$MyOptions[$i] = 0;假定找不到
$IMEList = DriveGetDrive("FIXED")
For $k = 1 To $IMEList
If StringUpper($IMEList[$k]) = "C:" Then ContinueLoop
If FileExists($IMEList[$k] & "\OS\PWINXP\I386\WINNT32.EXE") Then
$MyOptions[$i] = 1
$MyOptions[$i] &= @CRLF & "可以设置为：" & $IMEList[$k] & "\OS\PWINXP\I386"
EndIf
Next
If $MyOptions[$i] = 0 Then $MyOptions[$i] &= @CRLF & "未找到合适的路径！"
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects", "VisualFXSetting")
$MyOptions[$i] = "降低视觉效果"
$MyOptions[$i] = "降低视觉效果，默认系统应用了较多视觉效果，如果希望提升性能，可以设置降低视觉效果。"
If $Temp = "3" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$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[$i] = "屏蔽Windows Messenger和MSN"
$MyOptions[$i] = "屏蔽Windows Messenger和MSN，默认系统自带的Windows Messenger和MSN经常随其他软件启动，如果希望提升性能，可以设置禁止运行Windows Messenger、MSN不随OE运行。"
If $Temp = "12" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$MyOptions[$i] = SetMouse()
$MyOptions[$i] = "提升PS2鼠标性能"
$MyOptions[$i] = "提升PS2鼠标性能，默认系统采用较保守的PS2鼠标性能参数，如果希望提升性能，可以应用此设置。"
Switch $MyOptions[$i]
Case 0
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
Case 2
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "没有发现PS2鼠标！"
$MyOptions[$i] = 0
EndSwitch
$j += $MyOptions[$i]
$MyOptions = "性能优化类的设置"
Select
Case $j = 0
$MyOptions = 0;该类都已启用
Case $j = $i
$MyOptions = 1;该类都未启用
Case Else
$MyOptions = 2;该类有启用的也有未启用的
EndSelect
If $MyOptions <> 0 Then;需要设置
$MyOptions = GUICtrlCreateTreeViewItem("性能优化", $treeview)
GUICtrlSetColor(-1, 0x0000C0)
For $j = 1 To $i
If $MyOptions[$j] = 1 Then
$MyOptions[$j] = GUICtrlCreateTreeViewItem($MyOptions[$j], $MyOptions)
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
Next
GUICtrlSetState($MyOptions, $GUI_EXPAND + $GUI_CHECKED)
EndIf
EndIf
发不下，第一段-2 ;********************
;**************便利性
$i = 1
$j = 0
$Temp = RegRead("HKEY_CURRENT_USER\Control Panel\Keyboard", "InitialKeyboardIndicators")
$MyOptions[$i] = "开启小键盘灯"
$MyOptions[$i] = "开启小键盘灯，默认Windows启动时关闭小键盘灯，如果希望用小键盘加快输入数字的速度，可以设置开启小键盘灯。"
If $Temp = "2" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\NotePad", "fwrap")
$MyOptions[$i] = "记事本自动换行"
$MyOptions[$i] = "记事本自动换行，默认记事本不自动换行，可以设置开启自动换行功能。"
If $Temp = "1" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Notepad", "StatusBar")
$MyOptions[$i] = "记事本显示状态栏"
$MyOptions[$i] = "记事本显示状态栏，默认记事本不显示状态栏，可以设置显示状态栏。"
If $Temp = "1" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CURRENT_USER\Console", "QuickEdit")
$MyOptions[$i] = "CMD窗口可直接用鼠标选择"
$MyOptions[$i] = "CMD窗口可直接用鼠标选择，默认CMD窗口需要点标记后才能用鼠标选择，此功能可以设置直接用鼠标选择。"
If $Temp = "1" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$MyOptions[$i] = 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[$i] = "文件夹右键菜单添加“DOS 在这里”，此功能可以直接进入所在目录的DOS命令行状态。"
If $MyOptions[$i] & $Temp = "DOS 在这里CMD.EXE /K CD %1" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$MyOptions[$i] = "文件夹右键菜单添加“DOS 在这里”"
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "AutoAdminLogon")
$MyOptions[$i] = "自动登录Windows"
$MyOptions[$i] = "自动登录Windows，默认Windows XP显示一个登录欢迎画面，如果希望直接用当前用户以空密码登录，可以设置自动登录Windows。"
If $Temp = "1" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = IniRead(@WindowsDir & '\win.ini', 'SciCalc', 'layout', '1')
$MyOptions[$i] = "显示科学型计算器"
$MyOptions[$i] = "显示科学型计算器，默认Windows显示一个标准型计算器界面，如果希望使用更高级的功能，可以设置显示科学型计算器。"
If $Temp = "0" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$MyOptions[$i] = SetMSPY2007()
$MyOptions[$i] = "设置双拼及模糊拼音方案"
$MyOptions[$i] = "设置双拼及模糊拼音方案，默认微软拼音输入法以全拼及不模糊方式工作，如果希望改变，可以设置双拼及模糊拼音方案。"
If $MyOptions[$i] = 0 Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = FileGetVersion(@SystemDir & "\taskmgr.exe")
$MyOptions[$i] = "使用Longhorn任务管理器"
$MyOptions[$i] = "使用Longhorn任务管理器，默认XP使用的任务管理器功能较弱，此功能可以改为使用Longhorn版本任务管理器。"
If $Temp = "5.1.2600.0" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbar", "{710EB7A1-45ED-11D0-924A-0020AFC7AC4D}")
$MyOptions[$i] = "添加资源管理器工具栏按钮"
$MyOptions[$i] = "添加资源管理器工具栏按钮，默认资源管理器工具栏按钮较少，如果希望添加几个常用的按钮，可以在这里设置。"
If $Temp = "0x07000000EE0300007E69791EC59CD111A83F00C04FC99D612001000004000000EF0300007E69791EC59CD111A83F00C04FC99D612101000000000000F00300007E69791EC59CD111A83F00C04FC99D613001000004000000FFFFFFFF000000000000000000000000000000000000000000000000F10300007E69791EC59CD111A83F00C04FC99D612301000004000000F20300007E69791EC59CD111A83F00C04FC99D613301000045000000FFFFFFFF000000000000000000000000000000000000000000000000FB030000A1B70E71ED45D011924A0020AFC7AC4D1F700000040000000C040000A1B70E71ED45D011924A0020AFC7AC4D1E700000040000000D040000A1B70E71ED45D011924A0020AFC7AC4D11700000040000000E040000A1B70E71ED45D011924A0020AFC7AC4D1B70000004000000FFFFFFFF00000000000000000000000000000000000000000000000031700000A1B70E71ED45D011924A0020AFC7AC4D3170000004000000" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
$j += $MyOptions[$i]
$i += 1
$Temp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "MemCheckBoxInRunDlg")
$MyOptions[$i] = "在运行中添加单独的内存空间"
$MyOptions[$i] = "在运行中添加单独的内存空间，默认Windows XP在“运行”对话框中不显示“在单独的内存空间中运行”复选框，此功能可以让其显示。"
If $Temp = "1" Then
$MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
$MyOptions[$i] = 0
Else
$MyOptions[$i] = 1
EndIf
;~ $j += $MyOptions[$i]
;~ $i += 1
;~ $Temp = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "VendorIdentifier")
;~ $MyOptions[$i] = "让系统显示更准确的CPU资料"
;~ $MyOptions[$i] = "让系统显示更准确的CPU资料，默认Windows XP在系统属性中显示不易理解的CPU型号，此功能可以让系统显示更准确的CPU资料。"
;~ If $Temp = "Genuine Intel" Then
;~ $MyOptions[$i] = $MyOptions[$i] & @CRLF & "目前系统上的该功能已开启。"
;~ $MyOptions[$i] = 0
;~ Else
;~ $MyOptions[$i] = 1
;~ EndIf
$j += $MyOptions[$i]
$MyOptions = "操作便利性的设置"
Select
Case $j = 0
$MyOptions = 0;该类都已启用
Case $j = $i
$MyOptions = 1;该类都未启用
Case Else
$MyOptions = 2;该类有启用的也有未启用的
EndSelect
If $MyOptions <> 0 Then;需要设置
$MyOptions = GUICtrlCreateTreeViewItem("便利性", $treeview)
GUICtrlSetColor(-1, 0x0000C0)
For $j = 1 To $i
If $MyOptions[$j] = 1 Then
$MyOptions[$j] = GUICtrlCreateTreeViewItem($MyOptions[$j], $MyOptions)
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
Next
GUICtrlSetState($MyOptions, $GUI_EXPAND + $GUI_CHECKED)
If $MyOptions <> 0 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 221)
If $MyOptions <> 1 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 221)
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 7);开启137GB大硬盘支持
If $MyOptions <> 0 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 15)
If $MyOptions <> 1 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 15)
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 67);显示已知文件的扩展名
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 133);在标题栏显示完整路径
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 133);在地址栏中显示完整路径
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 45);启动分区内容照常显示
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 19);资源管理器显示状态栏
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 19);资源管理器显示状态栏
If $MyOptions <> 0 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 18)
If $MyOptions <> 1 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 18)
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "timedate.cpl", 0);设置Internet对时服务器
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 158);不使用简单文件共享
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 82);不自动搜索网络文件夹和打印机
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 111);使用空白密码的账户可以本地登录
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 47);允许文件和打印机共享
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "mstask.dll", 0);不显示网上邻居的计划任务
If $MyOptions <> 0 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 165)
If $MyOptions <> 1 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 165)
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 166);禁用系统还原
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 204);禁用CD刻录服务
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 221);禁用错误报告服务
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "xpsp2res.dll", 65);禁用安全中心服务
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 188);禁用自动播放服务
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "regedit.exe", 0);手动远程注册表服务
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 120);手动智能卡的取读服务
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "xpsp2res.dll", 19);手动无线网络自动配置
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 23);手动帮助服务
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "xpsp2res.dll", 44);手动IP安全策略服务
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 16);手动后台打印服务
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 104);手动受保护存放区服务
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 111);手动二次登录服务
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "mstask.dll", 0);手动计划任务服务
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 18);手动TCP/IP NetBIOS服务
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 13);手动Web客户端服务
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 165);手动调试管理服务
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 18);手动计算机列表服务
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 9);手动NTFS文件链接服务
If $MyOptions <> 0 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 220)
If $MyOptions <> 1 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 220)
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 225);以UTF-8发送URL
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 91);使用空白主页
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 161);关闭IE自动缩图功能
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 223);下载完成后自动关闭
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 211);显示验证码
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 146);桌面不显示IE图标
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 48);不弹出提示控件安装窗口
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 220);IE8菜单移到地址栏上方
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "inetcpl.cpl", 43);IE8总在选项卡中打开新页面
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "inetcpl.cpl", 36);添加一些受信任列表
If $MyOptions <> 0 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 34)
If $MyOptions <> 1 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 34)
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 39);显示经典开始菜单
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 84);把我的电脑放在我的文档之上
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 133);禁止添加快捷方式字样
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 46);桌面上显示Windows版本号
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 169);禁用桌面清理向导
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 172);禁止Windows漫游气球提醒
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 39);不分组相似任务栏按钮
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 35);使用传统控制面板样式
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 104);退出屏保后不回到登录界面
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 104);从待机状态恢复时不提示输入密码
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 88);网络连接后显示图标
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 137);显示快速启动工具栏
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 39);隐藏不活动的图标
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "timedate.cpl");任务栏时间悬停显示星期
If $MyOptions <> 0 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 166)
If $MyOptions <> 1 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 166)
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 7);关闭不使用的IDE通道
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "zipfldr.dll", 0);取消压缩文件支持
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 76);开启启动预读
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 25);关闭休眠功能
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "Powercfg.cpl", 2);按下电源按钮时问我做什么
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "drwtsn32.exe");关闭Dr.Watson
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 131);关闭系统失败信息
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 221);关闭错误汇报
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 46);关闭自动更新
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 73);删除多余输入法
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 11);修改安装源路径
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 141);降低视觉效果
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, @ProgramFilesDir & "\Messenger\msmsgs.exe", 0);屏蔽Windows Messenger和MSN
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "main.cpl", 0);提升PS2鼠标性能
If $MyOptions <> 0 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 20)
If $MyOptions <> 1 Then _GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 20)
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 173);开启小键盘灯
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 70);记事本自动换行
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 70);记事本显示状态栏
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "cmd.exe");CMD窗口可直接用鼠标选择
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "cmd.exe", 0);文件夹右键菜单中添加“DOS 在这里”
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 160);自动登录Windows
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "calc.exe", 0);显示科学型计算器
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "%SystemRoot%\system32\IME\PINTLGNT\PINTLPHR.EXE", 0);设置双拼及模糊拼音方案
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, @ScriptDir & "\系统\Longhorn任务管理器\taskmgr.exe", 0);使用Longhorn任务管理器
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 15);添加资源管理器工具栏按钮
_GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 76);在运行中添加单独的内存空间
;~ _GUICtrlTreeView_SetIcon($treeview, $MyOptions, "shell32.dll", 12);让系统显示更准确的CPU资料
第二段：用于设置对应的项目。如上，有些是注册表项目过多，懒得一一改，直接在图形界面上操作了…… $o = 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\atapi\Parameters", "EnableBigLba", "REG_DWORD", "1")
EndIf
$o = 1
If $MyOptions <> 0 Then
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "HideFileExt", "REG_DWORD", "0")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CabinetState", "FullPath", "REG_DWORD", "1")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CabinetState", "FullPathAddress", "REG_DWORD", "1")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\WebView\BarricadedFolders", "shell:SystemDriveRootFolder", "REG_DWORD", "0")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "StatusBarOther", "REG_DWORD", "1")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "ShowAttribCol", "REG_DWORD", "1")
EndIf
EndIf
$o = 1
If $MyOptions <> 0 Then
;网络中加入一个时间服务器3.asia.pool.ntp.org
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $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[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa", "forceguest", "REG_DWORD", "0")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "NoNetCrawling", "REG_DWORD", "1")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa", "limitblankpassworduse", "REG_DWORD", "0")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $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[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $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 <> 0 Then
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $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[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ImapiService", "Start", "REG_DWORD", "4")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ERSvc", "Start", "REG_DWORD", "4")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\wscsvc", "Start", "REG_DWORD", "4")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ShellHWDetection", "Start", "REG_DWORD", "4")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\RemoteRegistry", "Start", "REG_DWORD", "3")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SCardSvr", "Start", "REG_DWORD", "3")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\WZCSVC", "Start", "REG_DWORD", "3")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\helpsvc", "Start", "REG_DWORD", "3")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\PolicyAgent", "Start", "REG_DWORD", "3")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Spooler", "Start", "REG_DWORD", "3")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ProtectedStorage", "Start", "REG_DWORD", "3")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\seclogon", "Start", "REG_DWORD", "3")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Schedule", "Start", "REG_DWORD", "3")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LmHosts", "Start", "REG_DWORD", "3")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\WebClient", "Start", "REG_DWORD", "3")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\MDM", "Start", "REG_DWORD", "3")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Browser", "Start", "REG_DWORD", "3")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\TrkWks", "Start", "REG_DWORD", "3")
EndIf
EndIf
$o = 1
If $MyOptions <> 0 Then
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3", "1601", "REG_DWORD", "0")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Start Page", "REG_SZ", "about:blank")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Enable AutoImageResize", "REG_SZ", "no")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "NotifyDownloadComplete", "REG_SZ", "no")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Security", "BlockXBM", "REG_DWORD", "0")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoInternetIcon", "REG_DWORD", "1")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\InformationBar", "FirstTime", "REG_DWORD", "0")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $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[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $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[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $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 <> 0 Then
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $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[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CLASSES_ROOT\CLSID\{450D8FBA-AD25-11D0-98A8-0800361B1103}", "SortOrderIndex", "REG_DWORD", "84")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "Link", "REG_BINARY", "0x00000000")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "PaintDesktopVersion", "REG_DWORD", "1")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\CleanupWiz", "NoRun", "REG_DWORD", "1")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Tour", "RunCount", "REG_DWORD", "0")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $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[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\WebView\BarricadedFolders", "shell:ControlPanelFolder", "REG_DWORD", "0")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $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[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
Run("POWERCFG /G off /OPTION RESUMEPASSWORD", "", @SW_HIDE)
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
$i = 0
Do
$i = $i + 1
$Temp = RegEnumKey("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network\" & $MyOptions, $i)
If @error = -1 Then ExitLoop
If StringLeft($Temp, 1) = "{" And StringRight($Temp, 1) = "}" And StringLen($Temp) = 38 Then
$MyOptions = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network\" & $MyOptions & "\" & $Temp & "\Connection", "ShowIcon")
If @error = -1 Or $MyOptions = "0" Then;找到一个未开启的
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network\" & $MyOptions & "\" & $Temp & "\Connection", "ShowIcon", "REG_DWORD", "1")
EndIf
EndIf
Until 0
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
Run("RunDll32.exe shell32.dll,Options_RunDLL 1")
Do
Sleep($MySleep)
Until WinExists("任务栏和「开始」菜单属性")
Sleep($MySleep)
WinSetState("任务栏和「开始」菜单属性", "", @SW_HIDE)
Do
Sleep($MySleep)
ControlCommand("任务栏和「开始」菜单属性", "", "", "Check", "")
Until ControlCommand("任务栏和「开始」菜单属性", "", "", "IsChecked", "") = 1
Do
Sleep($MySleep)
ControlClick("任务栏和「开始」菜单属性", "", "")
Until Not WinExists("任务栏和「开始」菜单属性")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "EnableAutoTray", "REG_DWORD", "1")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Control Panel\International", "sLongDate", "REG_SZ", "yyyy'年'M'月'd'日'dddd")
EndIf
EndIf
$o = 1
If $MyOptions <> 0 Then
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
$Temp = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E96A-E325-11CE-BFC1-08002BE10318}\"
$Temp1 = "0000"
Do
$MyOptions[$o] = RegRead($Temp & $Temp1, "MasterDeviceType")
If @error = "0" Then;存在此值项
If $MyOptions[$o] = "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[$o] = RegRead($Temp & $Temp1, "MasterDeviceType")
Until @error = 1
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
Run("regsvr32 /s /u zipfldr.dll")
Run("regsvr32 /s /u cabview.dll")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PrefetchParameters", "EnablePrefetcher", "REG_DWORD", "1")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
Run("powercfg /h off", "", @SW_HIDE)
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $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[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $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[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $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[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $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[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "NoAutoUpdate", "REG_DWORD", "1")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Keyboard Layout\IMEtoggle\scancode")
$MyOptions[$o] = ""
$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[$o] &= $Temp & "/"
EndIf
Until 0
$IMEList = StringSplit($MyOptions[$o], "/")
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[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
$IMEList = DriveGetDrive("FIXED")
For $k = 1 To $IMEList
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[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $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[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $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[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
SetMouse(1)
EndIf
EndIf
$o = 1
If $MyOptions <> 0 Then
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Control Panel\Keyboard", "InitialKeyboardIndicators", "REG_SZ", "2")
Send("{NUMLOCK on}")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\NotePad", "fwrap", "REG_DWORD", "1")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Notepad", "StatusBar", "REG_DWORD", "1")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Console", "QuickEdit", "REG_DWORD", "1")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $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[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $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[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
IniWrite(@WindowsDir & '\win.ini', 'SciCalc', 'layout', '0')
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
SetMSPY2007(1)
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $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[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbar", "{710EB7A1-45ED-11D0-924A-0020AFC7AC4D}", "REG_BINARY", "0x07000000EE0300007E69791EC59CD111A83F00C04FC99D612001000004000000EF0300007E69791EC59CD111A83F00C04FC99D612101000000000000F00300007E69791EC59CD111A83F00C04FC99D613001000004000000FFFFFFFF000000000000000000000000000000000000000000000000F10300007E69791EC59CD111A83F00C04FC99D612301000004000000F20300007E69791EC59CD111A83F00C04FC99D613301000045000000FFFFFFFF000000000000000000000000000000000000000000000000FB030000A1B70E71ED45D011924A0020AFC7AC4D1F700000040000000C040000A1B70E71ED45D011924A0020AFC7AC4D1E700000040000000D040000A1B70E71ED45D011924A0020AFC7AC4D11700000040000000E040000A1B70E71ED45D011924A0020AFC7AC4D1B70000004000000FFFFFFFF00000000000000000000000000000000000000000000000031700000A1B70E71ED45D011924A0020AFC7AC4D3170000004000000")
EndIf
$o += 1
If $MyOptions[$o] = 1 Then
_GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "MemCheckBoxInRunDlg", "REG_DWORD", "1")
EndIf
$o += 1
;~ If $MyOptions[$o] = 1 Then
;~ _GUICtrlTreeView_SelectItem($treeview, $MyOptions[$o], $TVGN_FIRSTVISIBLE)
;~ RegWrite("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "VendorIdentifier", "REG_SZ", "Genuine Intel")
;~ EndIf
第三段：中间调用的鼠标和微软拼音的相关自定义函数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");其他程序从当前窗口的新选项卡打开连接
体力活。
鉴定完毕
你发的代码太多`太那个啥了吧`` 我。。。。
这东西用批处理的概率也很高，到时候我给LZ整个无敌的“伪” bat2au3 ~ 就不用包含那些bat文件了
afan 发表于 2010-7-5 13:27 http://www.autoitx.com/images/common/back.gif
哥``师父，大叔`，，快点给我发过来呗！！
有毛病 。。。。。。。。。。。。。。。。。。。。
第二段：用于设置对应的项目。如上，有些是注册表项目过多，懒得一一改，直接在图形界面上操作了……
辣椒龙 发表于 2010-7-5 14:57 http://www.autoitx.com/images/common/back.gif
这么长的东西就不要直接贴出来吧，直接上传附件就可以了。这样既影响浏览，又不会有效果，别人不敢看……
哥``师父，大叔`，，快点给我发过来呗！！
410521a 发表于 2010-7-6 09:10 http://www.autoitx.com/images/common/back.gif
还没做呢，有点忙~
第一页代码已经写完了
....那快点出吧` 出来了我都不写了``嘿嘿`
资料不全`` 不想做了`` 谁想做做吧
强大。 这么多设置项。 如果全从头做。对了解系统又会进一大步~~先收着