igitpl 发表于 2009-1-7 15:49:36

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

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

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

igitpl 发表于 2009-1-7 15:54:03

CPU双核补丁智能安装包 V4.5下载地址

http://www.xdowns.com/soft/6/152/2007/Soft_38619.htmlhttp://www.xdowns.com/soft/UploadPic/2007-10/2007101520223948734.gif

yingce 发表于 2009-11-23 13:15:50

/q
:face (7):

anyky123 发表于 2009-11-23 15:23:52

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

水木子 发表于 2009-11-23 17:25:33

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

newx 发表于 2009-11-23 23:36:08

;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 发表于 2009-11-24 12:00:31

楼上的是高手啊 ！~！~:face (14):值得学习下！

xz00311 发表于 2009-11-24 15:38:08

只要是判断是否双核

hzxymkb 发表于 2009-11-27 12:26:11

6#这位朋友写的真是太好了！谢谢了！
页: [1]
查看完整版本: 怎么编写,让core.exe双核补丁自动运行,安装