找回密码
 加入
搜索
查看: 3019|回复: 8

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

  [复制链接]
发表于 2009-1-7 15:49:36 | 显示全部楼层 |阅读模式
core.exe双核补丁
我下了个core.exe想封装时自动运行,但考虑到它有两种情况,
1.是双核CUP
2.单核CUP
在此求救,希望热心师傅给予帮助.
下载地址:http://www.rsdown.cn/downinfo/6899.html

[ 本帖最后由 igitpl 于 2009-1-7 19:52 编辑 ]
 楼主| 发表于 2009-1-7 15:54:03 | 显示全部楼层

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

发表于 2009-11-23 13:15:50 | 显示全部楼层
/q

评分

参与人数 1金钱 -10 收起 理由
afan -10 警告,禁止纯表情!

查看全部评分

发表于 2009-11-23 15:23:52 | 显示全部楼层
我的贴子里面有,如果还是不懂就加我的QQ!
发表于 2009-11-23 17:25:33 | 显示全部楼层
先判断CPU是不是双核,是则安装。
至于如何判断:
http://www.autoitx.com/forum.php ... AB%BA%CB&page=1

评分

参与人数 1金钱 +10 贡献 +5 收起 理由
afan + 10 + 5

查看全部评分

发表于 2009-11-23 23:36:08 | 显示全部楼层
  1. ;CPU 智能判断
  2. Dim $CPUName,$S,$EvePath

  3. If FileExists(@ScriptDir & "\Everest.exe") Then
  4. RunWait(@ScriptDir & "\Everest.exe")
  5. Else
  6. Exit
  7. EndIf
  8. Sleep(500)
  9. $EvePath=@WindowsDir&"\Temp\Everest"
  10. ToolTip(@CR&" CPU智能判断... "&@CR, @DesktopWidth-260, @DesktopHeight-120)
  11. RunWait($EvePath & "\Everest /r /custom user.rpf /ini report.ini /silent",$EvePath,@SW_HIDE)
  12. Sleep(500)
  13. $CPUName=IniRead($EvePath & "\Reports\report.ini","中央处理器","中央处理器 (CPU)|CPU 类型","")
  14. ToolTip(@CR&" CPU: " & $CPUName & " "&@CR, @DesktopWidth-350, @DesktopHeight-120)
  15. Sleep(5000)
  16. If Not(StringInStr($CPUName,"DualCore")) Then
  17. ToolTip(@CR&" " & "非双核CPU,无需安装双核补丁!" & " "&@CR, @DesktopWidth-260, @DesktopHeight-120)
  18. Sleep(2000)
  19. msgbox(0,"","非双核CPU,无需安装双核补丁!")
  20. Exit
  21. EndIf
  22. If StringInStr($CPUName,"AMD") Then
  23. ToolTip(@CR&" 即将开始安装AMD双核CPU所需的驱动、补丁、优化程序! "&@CR, @DesktopWidth-350, @DesktopHeight-120)
  24. Sleep(3000)
  25. ToolTip(@CR&" " & "正在安装AMD双核驱动..." & " "&@CR, @DesktopWidth-260, @DesktopHeight-120)
  26. RunWait(@ScriptDir & "\DualCore\AMDCPUDriver.exe /s")
  27. Sleep(1000)
  28. ToolTip(@CR&" " & "正在安装微软补丁KB896256-V4 ..." & " "&@CR, @DesktopWidth-260, @DesktopHeight-120)
  29. RunWait(@ScriptDir & "\DualCore\WindowsXP-KB896256-v4-x86-CHS.exe /q /n /z")
  30. Sleep(1000)
  31. ToolTip(@CR&" " & "正在安装微软补丁KB931784 ..." & " "&@CR, @DesktopWidth-260, @DesktopHeight-120)
  32. RunWait(@ScriptDir & "\DualCore\WindowsXP-KB931784-x86-CHS.exe /q /n /z")
  33. Sleep(1000)
  34. ToolTip(@CR&" " & "正在安装AMD双核优化程序 ..." & " "&@CR, @DesktopWidth-260, @DesktopHeight-120)
  35. RunWait("cmd /c " & @ScriptDir & "\DualCore\AMDDualCoreOptimizer.exe /S /v/qn","",@SW_HIDE)
  36. Sleep(1000)
  37. ToolTip(@CR&" " & "修改注册表和Boot.INI ..." & " "&@CR, @DesktopWidth-260, @DesktopHeight-120)
  38. RunWait("regedit /s " & Chr(34) & @ScriptDir & "\DualCore\DualCore.reg" & Chr(34),"",@SW_HIDE)
  39. $S=IniRead(EnvGet("systemdrive") & "\boot.ini","operating systems","multi(0)disk(0)rdisk(0)partition(1)\WINDOWS","")
  40. If Not(StringInStr($S,"/usepmtimer")) Then
  41. FileSetAttrib(EnvGet("systemdrive") & "\boot.ini","-rsh")
  42. IniWrite(EnvGet("systemdrive") & "\boot.ini","operating systems","multi(0)disk(0)rdisk(0)partition(1)\WINDOWS",$S & " /usepmtimer")
  43. FileSetAttrib(EnvGet("systemdrive") & "\boot.ini","+rsh")
  44. EndIf
  45. Sleep(1000)
  46. ToolTip(@CR&" " & "安装完毕!" & " "&@CR, @DesktopWidth-260, @DesktopHeight-120)
  47. Sleep(2000)
  48. ElseIf StringInStr($CPUName,"Intel") Then
  49. ToolTip(@CR&" 即将开始安装Intel双核CPU所需的补丁! "&@CR, @DesktopWidth-320, @DesktopHeight-120)
  50. Sleep(3000)
  51. ToolTip(@CR&" " & "正在安装微软补丁KB896256-V4 ..." & " "&@CR, @DesktopWidth-260, @DesktopHeight-120)
  52. RunWait(@ScriptDir & "\DualCore\WindowsXP-KB896256-v4-x86-CHS.exe /q /n /z")
  53. Sleep(1000)
  54. ToolTip(@CR&" " & "正在安装微软补丁KB931784 ..." & " "&@CR, @DesktopWidth-260, @DesktopHeight-120)
  55. RunWait(@ScriptDir & "\DualCore\WindowsXP-KB931784-x86-CHS.exe /q /n /z")
  56. Sleep(1000)
  57. ToolTip(@CR&" " & "正在安装微软补丁KB936357-V2 ..." & " "&@CR, @DesktopWidth-260, @DesktopHeight-120)
  58. RunWait(@ScriptDir & "\DualCore\WindowsXP-KB936357-v2-x86-CHS.exe /q /n /z")
  59. Sleep(1000)
  60. ToolTip(@CR&" " & "安装完毕!" & " "&@CR, @DesktopWidth-260, @DesktopHeight-120)
  61. Sleep(2000)
  62. EndIf

  63. If FileExists($EvePath) Then
  64. DirRemove($EvePath,1)
  65. EndIf
复制代码

评分

参与人数 1威望 +5 金钱 +20 贡献 +5 收起 理由
afan + 5 + 20 + 5

查看全部评分

发表于 2009-11-24 12:00:31 | 显示全部楼层
楼上的是高手啊 !~!~值得学习下!
发表于 2009-11-24 15:38:08 | 显示全部楼层
只要是判断是否双核
发表于 2009-11-27 12:26:11 | 显示全部楼层
6#这位朋友写的真是太好了!谢谢了!
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2026-9-22 08:50 , Processed in 0.130484 second(s), 29 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表