|

楼主 |
发表于 2008-4-16 19:13
|
显示全部楼层
CPU智能判断+自动安装双核各类相关驱动、补丁、优化程序!
这个支持INTEL PD、酷睿E系列、酷睿T系列,支持AMD 速龙64双核、炫龙64双核。
EVEREST程序已经更新到最新的4.2版,双核补丁以及AMD双核优化程序也都更新到了最新版
这个程序的源代码公开如下:
Dim $CPUName,$S,$EvePath
If FileExists(@ScriptDir & \"\\Everest.exe\") Then
RunWait(@ScriptDir & \"\\Everest.exe\")
Else
Exit
EndIf
Sleep(500)
$EvePath=@WindowsDir&\"\\Temp\\Everest\"
ToolTip(@CR&\" CPU智能判断... \"&@CR, @DesktopWidth-260, @DesktopHeight-120)
RunWait($EvePath & \"\\Everest /r /custom user.rpf /ini report.ini /silent\",$EvePath,@SW_HIDE)
Sleep(500)
$CPUName=IniRead($EvePath & \"\\Reports\\report.ini\",\"中央处理器\",\"中央处理器 (CPU)|CPU 类型\",\"\")
ToolTip(@CR&\" CPU: \" & $CPUName & \" \"&@CR, @DesktopWidth-350, @DesktopHeight-120)
Sleep(5000)
If Not(StringInStr($CPUName,\"DualCore\")) Then
ToolTip(@CR&\" \" & \"非双核CPU,无需安装双核补丁!\" & \" \"&@CR, @DesktopWidth-260, @DesktopHeight-120)
Sleep(2000)
Exit
EndIf
If StringInStr($CPUName,\"AMD\") Then
ToolTip(@CR&\" 即将开始安装AMD双核CPU所需的驱动、补丁、优化程序! \"&@CR, @DesktopWidth-350, @DesktopHeight-120)
Sleep(3000)
ToolTip(@CR&\" \" & \"正在安装AMD双核驱动...\" & \" \"&@CR, @DesktopWidth-260, @DesktopHeight-120)
RunWait(@ScriptDir & \"\\DualCore\\AMDCPUDriver.exe /s\")
Sleep(1000)
ToolTip(@CR&\" \" & \"正在安装微软补丁KB896256-V4 ...\" & \" \"&@CR, @DesktopWidth-260, @DesktopHeight-120)
RunWait(@ScriptDir & \"\\DualCore\\WindowsXP-KB896256-v4-x86-CHS.exe /q /n /z\")
Sleep(1000)
ToolTip(@CR&\" \" & \"正在安装微软补丁KB931784 ...\" & \" \"&@CR, @DesktopWidth-260, @DesktopHeight-120)
RunWait(@ScriptDir & \"\\DualCore\\WindowsXP-KB931784-x86-CHS.exe /q /n /z\")
Sleep(1000)
ToolTip(@CR&\" \" & \"正在安装AMD双核优化程序 ...\" & \" \"&@CR, @DesktopWidth-260, @DesktopHeight-120)
RunWait(\"cmd /c \" & @ScriptDir & \"\\DualCore\\AMDDualCoreOptimizer.exe /S /v/qn\",\"\",@SW_HIDE)
Sleep(1000)
ToolTip(@CR&\" \" & \"修改注册表和Boot.INI ...\" & \" \"&@CR, @DesktopWidth-260, @DesktopHeight-120)
RunWait(\"regedit /s \" & Chr(34) & @ScriptDir & \"\\DualCore\\DualCore.reg\" & Chr(34),\"\",@SW_HIDE)
$S=IniRead(EnvGet(\"systemdrive\") & \"\\boot.ini\",\"operating systems\",\"multi(0)disk(0)rdisk(0)partition(1)\\WINDOWS\",\"\")
If Not(StringInStr($S,\"/usepmtimer\")) Then
FileSetAttrib(EnvGet(\"systemdrive\") & \"\\boot.ini\",\"-rsh\")
IniWrite(EnvGet(\"systemdrive\") & \"\\boot.ini\",\"operating systems\",\"multi(0)disk(0)rdisk(0)partition(1)\\WINDOWS\",$S & \" /usepmtimer\")
FileSetAttrib(EnvGet(\"systemdrive\") & \"\\boot.ini\",\"+rsh\")
EndIf
Sleep(1000)
ToolTip(@CR&\" \" & \"安装完毕!\" & \" \"&@CR, @DesktopWidth-260, @DesktopHeight-120)
Sleep(2000)
ElseIf StringInStr($CPUName,\"Intel\") Then
ToolTip(@CR&\" 即将开始安装Intel双核CPU所需的补丁! \"&@CR, @DesktopWidth-320, @DesktopHeight-120)
Sleep(3000)
ToolTip(@CR&\" \" & \"正在安装微软补丁KB896256-V4 ...\" & \" \"&@CR, @DesktopWidth-260, @DesktopHeight-120)
RunWait(@ScriptDir & \"\\DualCore\\WindowsXP-KB896256-v4-x86-CHS.exe /q /n /z\")
Sleep(1000)
ToolTip(@CR&\" \" & \"正在安装微软补丁KB931784 ...\" & \" \"&@CR, @DesktopWidth-260, @DesktopHeight-120)
RunWait(@ScriptDir & \"\\DualCore\\WindowsXP-KB931784-x86-CHS.exe /q /n /z\")
Sleep(1000)
ToolTip(@CR&\" \" & \"正在安装微软补丁KB936357-V2 ...\" & \" \"&@CR, @DesktopWidth-260, @DesktopHeight-120)
RunWait(@ScriptDir & \"\\DualCore\\WindowsXP-KB936357-v2-x86-CHS.exe /q /n /z\")
Sleep(1000)
ToolTip(@CR&\" \" & \"安装完毕!\" & \" \"&@CR, @DesktopWidth-260, @DesktopHeight-120)
Sleep(2000)
EndIf
If FileExists($EvePath) Then
DirRemove($EvePath,1)
EndIf
使用方法:
下载:http://www.fs2you.com/files/6550ed1c-8f8c-11dc-8466-00142218fc6e/
下载后会是一个7Z压缩包,解压后会得到DualCore文件夹、Everest.exe、DualCore.exe,将此三者至于同层目录下,运行DualCore.exe即可。 |
|