- ;CPU 智能判断
- 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)
- msgbox(0,"","非双核CPU,无需安装双核补丁!")
- 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
复制代码 |