怎么编写,让core.exe双核补丁自动运行,安装

igitpl

core.exe双核补丁
我下了个core.exe想封装时自动运行,但考虑到它有两种情况,
1.是双核CUP
2.单核CUP
在此求救,希望热心师傅给予帮助.
下载地址:http://www.rsdown.cn/downinfo/6899.html

[ 本帖最后由 igitpl 于 2009-1-7 19:52 编辑 ]

igitpl

http://www.xdowns.com/soft/6/152/2007/Soft_38619.html

yingce

/q

anyky123

我的贴子里面有，如果还是不懂就加我的QQ！

水木子

先判断CPU是不是双核，是则安装。
至于如何判断：
http://www.autoitx.com/forum.php ... AB%BA%CB&page=1

newx

;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 

l100593120

楼上的是高手啊 ！~！~值得学习下！

xz00311

只要是判断是否双核

hzxymkb

6#这位朋友写的真是太好了！谢谢了！