打印

让所有人拥有自己的封装工具（开源）

win112

中级会员

Rank: 3 Rank: 3

46^# 大中小发表于 2007-9-29 01:11 只看该作者

支持原创呀、可惜我是菜鸟

TOP

win112

中级会员

Rank: 3 Rank: 3

47^# 大中小发表于 2007-9-29 01:14 只看该作者

建议加“允许光驱自动运行或禁止自动运行”

TOP

piaohu

注册会员

Rank: 2

48^# 大中小发表于 2007-9-29 11:13 只看该作者

看了看!!!先学习学习前辈的经验!!!

TOP

redapple

管理员

Rank: 9 Rank: 9 Rank: 9

Medal No.1 Medal No.2 Medal No.3 Medal No.4 Medal No.5 Medal No.6 Medal No.7 Medal No.8 Medal No.9 Medal No.10

49^# 大中小发表于 2007-10-8 16:55 只看该作者

#NoTrayIcon1 Q4 |) N) ?; x! J) k0 `
#Region ;**** 参数创建于 AutoIt3Wrapper_GUI ****# f* R( [' ~7 p( T" O
#AutoIt3Wrapper_icon=D:\图标\VISTA的DLL图标.DLL_17.ico电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计3 E2 z5 g* w1 z% C6 U
#AutoIt3Wrapper_outfile=auto
#AutoIt3Wrapper_Compression=4redapple2008.5d6d.com1 @6 u7 j2 J# e% x7 d$ h
#AutoIt3Wrapper_UseAnsi=yredapple2008.5d6d.com2 V& x' N9 N! ?/ D8 m; w  Y( {4 y/ I
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p
#AutoIt3Wrapper_Res_LegalCopyright=红苹果工作室  M+ S7 T2 E; u. {
#AutoIt3Wrapper_Res_Field=QQ|16325975
#AutoIt3Wrapper_Res_Field=QQ群|38346368
#AutoIt3Wrapper_Res_Field=EMAIL|redapple_2008@126.com
#AutoIt3Wrapper_Res_Field=论坛|http://redapple2008.5d6d.com
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计/ Y% c+ I  g( E; G

AutoIt 版本: 3.2.8.0(第一版)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！0 ?& T5 A8 ]+ E2 U# Q8 ~- e4 E' W
脚本作者: redappleredapple2008.5d6d.com' q; x7 ?+ u& d/ {: @. w
Email: redapple_2008@126.com
QQ/TM: 16325975
脚本版本:
脚本功能:

#ce ----------------------------------------------------------------------------! ~4 q4 I: S: L( U! H4 l

电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计& D. [% g# Q) A+ w  S" ~9 f
#Region AutoIt3Wrapper 编译参数, R- S7 B) v# s: k
#EndRegion AutoIt3Wrapper 编译参数设置完成红苹果工作室* V! y/ Y) u  V/ V. |5 |1 S
#include <GUIConstants.au3>
If Not FileExists("sysprep.inf") And @ScriptDir = @HomeDrive & "\sysprep"  Then红苹果工作室% @) }0 m5 n6 L8 _& W% x6 v  B, u
MsgBox(0, "错误!", "请准备好重新封装工具并配置好sysprep.inf", 4)" g# N6 b/ L! c9 K# h) p. W9 K- m
Exit电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计& H6 i, F1 V2 \5 \# J( c
EndIf
#Region ### START Koda GUI section ### Form=d:\personal\my documents\form1.kxf\form1.kxf
$Form1_1 = GUICreate("红苹果工作室会员参与封装工具", 425, 559, -1, -1)
$Pic1 = GUICtrlCreatePic("logo.jpg", 0, 0, 423, 100, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！/ k& }/ S' e) f# {7 H
$Tab1 = GUICtrlCreateTab(8, 112, 410, 409)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计4 I" \- c3 u7 |# i
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("主要封装选项")电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计$ K2 U5 G) m# ~6 \6 A6 M% B
$Group1 = GUICtrlCreateGroup("主要的封装选项", 16, 136, 385, 377)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计8 `+ ?5 D* @/ d* k: n( {# _3 |
$Group3 = GUICtrlCreateGroup("主封装选项", 24, 160, 369, 145)
$Checkbox1 = GUICtrlCreateCheckbox("显示Sysprep窗口,手动选择封装选项", 56, 192, 313, 17)
$Checkbox2 = GUICtrlCreateCheckbox("更改Hal(电源模式)为Standard PC", 57, 225, 281, 17)- L* R" y# S) X/ l" u! `, o
$Checkbox3 = GUICtrlCreateCheckbox("更改IDE控制器为标准IDE控制器", 57, 257, 265, 17)redapple2008.5d6d.com3 K( Y: U, `" c7 w0 y
$Checkbox4 = GUICtrlCreateCheckbox("自动卸载所有设备驱动", 57, 281, 233, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)! G, l* h( Y" G
$Group4 = GUICtrlCreateGroup("附加选项", 24, 325, 369, 177)
$Checkbox5 = GUICtrlCreateCheckbox("去除个人设置对话框", 32, 349, 169, 17)红苹果工作室6 T( [9 q1 v: y6 e; ^9 Y6 L7 m4 @
$Checkbox6 = GUICtrlCreateCheckbox("集成DllcacheManager", 33, 382, 177, 17)
$Checkbox7 = GUICtrlCreateCheckbox("删除Media Player快捷方式", 33, 414, 185, 17)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！" D. V4 }% A" Q7 I8 `! Q
$Checkbox8 = GUICtrlCreateCheckbox("桌面上显示宽带连接", 33, 438, 177, 17)
$Checkbox9 = GUICtrlCreateCheckbox("集成驱动程序验证", 209, 385, 169, 17)
$Checkbox10 = GUICtrlCreateCheckbox("不提示搜索驱动", 208, 352, 177, 17)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计0 G- k( B' e3 {* R# H6 ~9 R% Q
$Checkbox11 = GUICtrlCreateCheckbox("清理系统临时文件", 209, 417, 185, 17)
$Checkbox12 = GUICtrlCreateCheckbox("驱动选择扩展", 209, 441, 177, 17)
$Input1 = GUICtrlCreateCombo("请选择安装时的分辨率", 30, 472, 160)redapple2008.5d6d.com% x; H- H; Y' _
GUICtrlSetData(-1, "800*600|1024*768", "请选择安装时的分辨率")
$Input2 = GUICtrlCreateInput("请输入注册表优化", 219, 472, 121, 20)红苹果工作室3 r& Q" m! A% A* o
$Button20 = GUICtrlCreateButton("...", 344, 472, 41, 20, 0)红苹果工作室0 w( j* p: T; i1 @
GUICtrlCreateGroup("", -99, -99, 1, 1)redapple2008.5d6d.com. V* F0 ?; w* C+ K4 z( U. q; D
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("")电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计1 S2 W; r3 ^7 Y4 y9 A4 X
$Button1 = GUICtrlCreateButton("设备管理器", 8, 524, 73, 25, 0)
$Button2 = GUICtrlCreateButton("区域语言", 94, 524, 73, 25, 0)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！3 i/ b% a( F: N3 h$ ?2 p! H
$Button3 = GUICtrlCreateButton("系统属性", 180, 524, 73, 25, 0)
$Button4 = GUICtrlCreateButton("检查", 275, 524, 60, 25, 0)
$Button5 = GUICtrlCreateButton("封装", 350, 524, 60, 25, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW, $Form1_1)& L* |, h, e8 D$ ~9 p
#EndRegion ### END Koda GUI section ###

While 1红苹果工作室: Z7 D& ?7 p' ~+ _
$Msg = GUIGetMsg()
If $Msg = $Button5 Then ExitLoop
红苹果工作室8 H* a7 z$ H7 Q; j- i( `
If $Msg = $GUI_EVENT_CLOSE Then Exit
If $Msg = $Button1 Then RunWait(@ComSpec & " /c " & 'devmgmt.msc', "", @SW_HIDE)
If $Msg = $Button2 Then Run("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0")
If $Msg = $Button3 Then Run("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl")
If $Msg = $Button20 Then
$message = "请选择你要优化的注册表文件."
$var = FileOpenDialog($message, @WindowsDir & "\", "reg (*.reg)", 1 + 4)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计9 G$ U9 j7 V" O- A5 G$ P
If @error Then+ H) d: ^9 T( ]( s& ?, F
GUICtrlSetData($Input2, "请输入注册表优化")电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！8 e+ r3 f% m) A+ d# W2 K
Else电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计8 b% y" p! X9 h$ \- P. i8 S
$var = StringReplace($var, "|", @CRLF)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！) M* {$ D' b* k, |+ o) [# m$ |
GUICtrlSetData($Input2, $var)红苹果工作室1 _* E/ J& H# f& v4 c% K, T
EndIf
EndIf
If $Msg = $Button4 Then
For $i = 1 To 4电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计/ q7 e  P  ~' p) T+ ~, J: P9 J
If FileExists(@WindowsDir & "\driver cache\i386\SP" & $i & ".cab") Then
$cabf = "SP" & $i & ".cab" redapple2008.5d6d.com! h, ^  a; K8 A, N. g- G
EndIf
Next电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！- _9 g" D' j' ?) s
If Not FileExists(@WindowsDir & "\driver cache\i386\driver.cab") And $cabf = "driver.cab"  Then
MsgBox(0, "Error!", "系统缺少封装必须的cab驱动包,你需要从安装光盘中提取", 4)
Exit5 V0 H6 K/ a) u4 J# _  M1 r
EndIf电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计3 w! ?, N' V1 j* Z
MsgBox(0, "检查完毕！", "没有发现错误，请封装！", 4)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计( b8 {% M" u2 N0 |9 `
GUICtrlSetState(-1, $GUI_ENABLE)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计7 ?+ h% a" [$ m2 [5 D4 y
EndIf9 l7 Z+ c$ F& l: f; U
WEnd电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计( u# U+ T. b4 q) F7 ~
GUISetState(@SW_HIDE, $Form1_1)红苹果工作室" i& I% r4 I( A" f
$dd = GUICreate("红苹果工作室会员参与封装工具", 300, 100, -1, -1, $WS_POPUP, -1, $Form1_1)redapple2008.5d6d.com% |2 W5 Y; X1 V; J2 a, F8 U% b) R
$Label1 = GUICtrlCreateLabel("正在配置封装工具", 64, 32, 140, 24)) ~2 i+ U1 R+ {
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！% T" O: {, H4 H- C
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("请稍等........................", 56, 72, 156, 20)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！2 r9 N3 f# D, r% F( M5 _) ~# n: X
GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif")电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计* E" G( Q& v4 a9 C
GUICtrlSetColor(-1, 0xFF0000)红苹果工作室3 [: m4 T( F* u6 z" s. T7 D
GUISetState(@SW_SHOW, $dd)
Dim $FileName[9]redapple2008.5d6d.com9 @8 G3 q% n6 W& A7 X" d
$FileName[1] = "ntldr"
$FileName[2] = "ntldrxp"
$FileName[3] = "ntldrL"
$FileName[4] = "ntldr"
$FileName[5] = "boot.ini"
$FileName[6] = "bootxp.ini"
$FileName[7] = "bootL.ini"
$FileName[8] = "boot.ini" 电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计" g4 d; ^$ D$ W2 W) s; }* p8 A+ r
If FileExists("c:" & "\ntldrL") And FileExists("c:" & "\bootL.ini") Then红苹果工作室4 o; L; h; c' ~7 J# h% \
For $i = 1 To 10
FileSetAttrib("c:" & "\" & $FileName[$i], "-RSH")9 T3 X* w3 ~9 c
FileMove("c:" & "\" & $FileName[$i], "c:" & "\" & $FileName[$i + 1])
FileSetAttrib("c:" & "\" & $FileName[$i + 1], "+RSH")
Next
If FileExists("c:" & "\sysprep\setacl.exe") Then
RunWait("c:" & "\sysprep\setacl.exe MACHINE\SYSTEM\ControlSet001\Enum\ACPI_HAL /registry /grant everyone /full", "", @SW_HIDE)redapple2008.5d6d.com! B4 J4 c  G8 u! S& g
RunWait("c:" & "\sysprep\setacl.exe MACHINE\SYSTEM\ControlSet001\Enum\Root\ACPI_HAL /registry /grant everyone /full", "", @SW_HIDE)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！1 d, f9 z/ C6 e
RunWait("c:" & "\sysprep\setacl.exe MACHINE\SYSTEM\ControlSet002\Enum\ACPI_HAL /registry /grant everyone /full", "", @SW_HIDE)redapple2008.5d6d.com* `' r6 J' V5 U- p) @
RunWait("c:" & "\sysprep\setacl.exe MACHINE\SYSTEM\ControlSet002\Enum\Root\ACPI_HAL /registry /grant everyone /full", "", @SW_HIDE)% o- K4 [% X2 A8 B! w& X  @9 `
RunWait("c:" & "\sysprep\setacl.exe MACHINE\SYSTEM\ControlSet003\Enum\ACPI_HAL /registry /grant everyone /full", "", @SW_HIDE)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计, q9 n, \9 {$ Y9 A: i
RunWait("c:" & "\sysprep\setacl.exe MACHINE\SYSTEM\ControlSet003\Enum\Root\ACPI_HAL /registry /grant everyone /full", "", @SW_HIDE)
RunWait("c:" & "\sysprep\setacl.exe MACHINE\SYSTEM\CurrentControlSet\Enum\ACPI_HAL /registry /grant everyone /full", "", @SW_HIDE)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计& h$ L' C/ s1 u% S# R
RunWait("c:" & "\sysprep\setacl.exe MACHINE\SYSTEM\CurrentControlSet\Enum\Root\ACPI_HAL /registry /grant everyone /full", "", @SW_HIDE)& A! |+ c3 p# f7 `5 I
RunWait("c:" & "\sysprep\setacl.exe MACHINE\SYSTEM\ControlSet001\Services\IntelIde /registry /grant everyone /full", "", @SW_HIDE)
RunWait("c:" & "\sysprep\setacl.exe MACHINE\SYSTEM\ControlSet002\Services\IntelIde /registry /grant everyone /full", "", @SW_HIDE)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！- |& n4 _& n0 e# @
RunWait("c:" & "\sysprep\setacl.exe MACHINE\SYSTEM\ControlSet003\Services\IntelIde /registry /grant everyone /full", "", @SW_HIDE)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计6 I0 N4 _& q; a+ Q9 M
RunWait("c:" & "\sysprep\setacl.exe MACHINE\SYSTEM\CurrentControlSet\Services\IntelIde /registry /grant everyone /full", "", @SW_HIDE)
RunWait("c:" & "\sysprep\setacl.exe MACHINE\SYSTEM\ControlSet001\Services\intelppm /registry /grant everyone /full", "", @SW_HIDE)红苹果工作室' i! M' S6 m) C
RunWait("c:" & "\sysprep\setacl.exe MACHINE\SYSTEM\ControlSet002\Services\intelppm /registry /grant everyone /full", "", @SW_HIDE)
RunWait("c:" & "\sysprep\setacl.exe MACHINE\SYSTEM\ControlSet003\Services\intelppm /registry /grant everyone /full", "", @SW_HIDE)
RunWait("c:" & "\sysprep\setacl.exe MACHINE\SYSTEM\CurrentControlSet\Services\intelppm /registry /grant everyone /full", "", @SW_HIDE)
RunWait("reg delete HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Enum\ACPI_HAL /f", "", @SW_HIDE)
RunWait("reg delete HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Enum\Root\ACPI_HAL /f", "", @SW_HIDE)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计' K' s* |4 r, z" |0 a7 f$ j
RunWait("reg delete HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Enum\ACPI_HAL /f", "", @SW_HIDE)
RunWait("reg delete HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Enum\Root\ACPI_HAL /f", "", @SW_HIDE)3 w1 F' H2 b7 h+ Y0 H' j  v2 K
RunWait("reg delete HKEY_LOCAL_MACHINE\SYSTEM\ControlSet003\Enum\ACPI_HAL /f", "", @SW_HIDE)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计* y! k& n% q2 H2 I( C- F! o
RunWait("reg delete HKEY_LOCAL_MACHINE\SYSTEM\ControlSet003\Enum\Root\ACPI_HAL /f", "", @SW_HIDE)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！& L, K& }) _* T. y- X+ I
RunWait("reg delete HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\ACPI_HAL /f", "", @SW_HIDE)
RunWait("reg delete HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\Root\ACPI_HAL /f", "", @SW_HIDE)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！% n' ?& n3 t4 _1 V% J& d' ^9 y$ ]
RunWait("reg delete MACHINE\SYSTEM\ControlSet001\Services\IntelIde /f", "", @SW_HIDE)7 Z" \' F) S3 a9 W9 Y. e
RunWait("reg delete MACHINE\SYSTEM\ControlSet002\Services\IntelIde /f", "", @SW_HIDE)redapple2008.5d6d.com" N4 w/ l9 Z+ w$ n& D1 T
RunWait("reg delete MACHINE\SYSTEM\ControlSet003\Services\IntelIde /f", "", @SW_HIDE)红苹果工作室1 m2 u" E' s! O1 `" J
RunWait("reg delete MACHINE\SYSTEM\CurrentControlSet\Services\IntelIde /f", "", @SW_HIDE)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计1 P- ^! Y2 b6 o
RunWait("reg delete MACHINE\SYSTEM\ControlSet001\Services\intelppm /f", "", @SW_HIDE)红苹果工作室2 J. m/ V" D$ v0 t0 Y. G* F0 j
RunWait("reg delete MACHINE\SYSTEM\ControlSet002\Services\intelppm /f", "", @SW_HIDE)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计1 c' t8 r1 n6 M, I5 h
RunWait("reg delete MACHINE\SYSTEM\ControlSet003\Services\intelppm /f", "", @SW_HIDE)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计2 h" {; ~$ N2 u; x# m
RunWait("reg delete MACHINE\SYSTEM\CurrentControlSet\Services\intelppm /f", "", @SW_HIDE)
Else电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！5 C" A3 G1 R, k+ ~4 i, p' K
MsgBox(0, "Easy Sysprep", "注册表权限修改工具丢失！请确认正确安装了Easy Sysprep！")红苹果工作室2 V/ s$ S  g. w2 Q2 C$ t4 L
Exit
EndIf
RegDelete("HKLM\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}")电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！7 |: p: A7 U# L3 _4 n' _2 {8 ]$ s
RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}")
RegDelete("HKLM\SYSTEM\CurrentControlSet\Control\Network\{6BDD1FC5-810F-11D0-BEC7-08002BE2092F}")redapple2008.5d6d.com+ Q6 O! B; y. s2 T9 Z
RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\Network\{6BDD1FC5-810F-11D0-BEC7-08002BE2092F}")红苹果工作室! L  v+ h; p; g
EndIf红苹果工作室" ?: X2 k* i5 Y- `! f7 Q0 ]

rogressOn("封装工具正在工作!", '封装工具正在配制文件!' & @LF & @LF, '', -1, -1, 18)

rocessWaitClose("Sysprep.exe")红苹果工作室9 D$ u) s4 t8 u. Z8 U& C
If GUICtrlRead($Checkbox2) = 1 Then
$Label1 = GUICtrlCreateLabel("正在更改Hal(电源模式)为Standard PC", 64, 32, 140, 24)
RunWait("devcon update " & @WindowsDir & "\inf\hal.inf E_ISA_UP", "", @SW_HIDE)redapple2008.5d6d.com; ~5 O0 V8 L8 G9 l) M+ s! n9 Y' J1 H/ T
hal()
EndIf4 |* a" }3 p( p2 P4 n& B# k
If GUICtrlRead($Checkbox3) = 1 Then
$Label1 = GUICtrlCreateLabel("更改IDE控制器为标准IDE控制器", 64, 32, 140, 24)
IDE()
EndIf& }* p2 S- J' Q: W" y
If GUICtrlRead($Checkbox4) = 1 Then电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！; ?: x& m2 [, u. i# v7 u
$Label1 = GUICtrlCreateLabel("自动卸载所有设备驱动", 64, 32, 140, 24)
autodel()电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计. R1 `& r, v3 O# _/ w2 Y
EndIf
If GUICtrlRead($Checkbox1) = 1 Then电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！5 q3 E  k" e8 z) y6 {
$Label1 = GUICtrlCreateLabel("正在运行微软的封装工具", 64, 32, 140, 24)redapple2008.5d6d.com6 n8 D+ f. O' J/ H
Run("sysprep -quiet -mini -noreboot", "", @SW_MINIMIZE)( w8 G& }8 d8 n: X  e) x- h* y
Else
$Label1 = GUICtrlCreateLabel("正在运行微软的封装工具", 64, 32, 140, 24)
Run("sysprep -quiet -mini -noreboot")电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计- m9 Q% _- q, X+ R/ U
EndIf电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计. O7 t! h( ^1 r
If GUICtrlRead($Checkbox5) = 1 Then
$Label1 = GUICtrlCreateLabel("去除个人设置对话框", 64, 32, 140, 24)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！2 N* c# m  R* m4 |
genren()
Sleep(1000)红苹果工作室5 t  M) z; M) i
EndIf: \& M! p: }. E
If GUICtrlRead($Checkbox6) = 1 Then
$Label1 = GUICtrlCreateLabel("集成DllcacheManager", 64, 32, 140, 24)
FileInstall("DllcacheManager.exe", @WindowsDir & '\DllcacheManager.exe', 1)
RunWait(@WindowsDir & '\DllcacheManager.exe')redapple2008.5d6d.com7 b: ^1 C' W% p4 b4 n  k
WinSetOnTop("DllcacheBackup", "", 1)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计- Q' \% F7 U, X9 o
EndIf
If GUICtrlRead($Checkbox7) = 1 Then
$Label1 = GUICtrlCreateLabel("删除Media Player快捷方式", 64, 32, 140, 24)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！0 f5 _! E/ S0 T/ A: i) {
FileInstall("wmp.exe", @SystemDir & "\", 1)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "wmp", "REG_SZ", @SystemDir & "\wmp.exe")电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计: W8 ^9 l1 p) Y
Sleep(1000)redapple2008.5d6d.com) w; v. ~" \( H  [
EndIf
If GUICtrlRead($Checkbox8) = 1 Then
$Label1 = GUICtrlCreateLabel("桌面上显示宽带连接", 64, 32, 140, 24)" }! v5 S! q, C7 x1 f, |! r- S
FileInstall("kdlj.exe", @SystemDir & "\", 1)redapple2008.5d6d.com9 m( o% F5 S6 w% d/ n
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "wmp", "REG_SZ", @SystemDir & "\kdlj.exe")电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计+ Y  E1 M! D' x: Q
Sleep(1000); W, X2 m2 l5 }" r7 y  y
EndIf
If GUICtrlRead($Checkbox9) = 1 Then
$Label1 = GUICtrlCreateLabel("集成驱动程序验证", 64, 32, 140, 24)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Driver Signing", "

olicy", "REG_BINARY", "00")
Sleep(1000)
EndIf电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计+ J3 |3 d$ X2 y
If GUICtrlRead($Checkbox10) = 1 Then
$Label1 = GUICtrlCreateLabel("正在不提示搜索驱动", 64, 32, 140, 24)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计; i) u% I+ P2 N$ P6 p
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\windows\DriverSearching", "DontPromptForWindowsUpdate", "REG_DWORD", "0")redapple2008.5d6d.com3 n* B8 x# ]& T& p
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\windows\DriverSearching", "DontSearchWindowsUpdate", "REG_DWORD", "1")
Sleep(1000)
EndIf红苹果工作室9 q1 |% k; l" h3 A+ i( V
If GUICtrlRead($Checkbox11) = 1 Then
$Label1 = GUICtrlCreateLabel("正在清理系统临时文件", 64, 32, 140, 24)
deltmp()
Sleep(1000)redapple2008.5d6d.com" Q& @4 Q' f. a7 k- R9 s# E+ z
EndIf电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！$ v$ H  @2 w$ i* H
If GUICtrlRead($Input1) <> "请选择安装时的分辨率"  Then
If GUICtrlRead($Input1) = "800*600"  Then红苹果工作室' ^5 W& {7 x: W: G* Z
$Label1 = GUICtrlCreateLabel("正在设置安装时的分辨率为800*600", 64, 32, 140, 24)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计" C7 x# ?  p: H7 I$ _% X) U: u
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\VgaSave\Device0", "DefaultSettings.XResolution", "REG_DWORD", "320")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\VgaSave\Device0", "DefaultSettings.YResolution", "REG_DWORD", "258")红苹果工作室, A9 d: p& Z9 Z' n1 p, p3 Z7 G
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\VgaSave\Device0", "DefaultSettings.BitsPerPel", "REG_DWORD", "20")redapple2008.5d6d.com  w  T! d# }8 @
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Video\{23A77BF7-ED96-40EC-AF06-9B1F4867732A}\0000", "DefaultSettings.XResolution", "REG_DWORD", "320")redapple2008.5d6d.com3 J0 r( Q) e. G: }! h8 ?
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Video\{23A77BF7-ED96-40EC-AF06-9B1F4867732A}\0000", "DefaultSettings.YResolution", "REG_DWORD", "258")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Video\{23A77BF7-ED96-40EC-AF06-9B1F4867732A}\0000", "DefaultSettings.BitsPerPel", "REG_DWORD", "20")
Elseredapple2008.5d6d.com7 h' e* t3 F! w3 T& @* P  x- z
$Label1 = GUICtrlCreateLabel("正在设置安装时的分辨率为1024*768", 64, 32, 140, 24)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\VgaSave\Device0", "DefaultSettings.YResolution", "REG_DWORD", "300")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\VgaSave\Device0", "DefaultSettings.XResolution", "REG_DWORD", "400")电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计) @, ~. e0 G: c6 N- e% J  O6 k
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\VgaSave\Device0", "DefaultSettings.BitsPerPel", "REG_DWORD", "20")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Video\{23A77BF7-ED96-40EC-AF06-9B1F4867732A}\0000", "DefaultSettings.YResolution", "REG_DWORD", "300")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Video\{23A77BF7-ED96-40EC-AF06-9B1F4867732A}\0000", "DefaultSettings.XResolution", "REG_DWORD", "400")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Video\{23A77BF7-ED96-40EC-AF06-9B1F4867732A}\0000", "DefaultSettings.BitsPerPel", "REG_DWORD", "20")1 ~' v- J/ `+ B
EndIf
EndIf
If GUICtrlRead($Input2) <> "" Then红苹果工作室+ R) Z! I: s; m* |$ _* E
$Label1 = GUICtrlCreateLabel("正在设置优化注册表文件", 64, 32, 140, 24)
FileInstall("zcb.exe", @SystemDir & "\", 1)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计" P) x" M2 I: |& j( A' D
IniWrite(@SystemDir & "\reg.ini", "yhreg", "yhregedit", GUICtrlRead($Input2))红苹果工作室6 ~2 x. m5 ]1 N- Y& Z1 g4 {/ q
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "wmp", "REG_SZ", @SystemDir & "\zcb.exe")电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计% s% j' Z9 E7 J0 t2 l4 Q
Sleep(1000)
EndIf电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计6 ~% ^; d2 y; K$ G, d. L0 D1 h
If GUICtrlRead($Checkbox10) = 1 Then
RunWait("reg add" & " " & Chr(34) & "HKEY_LOCAL_MACHINE\SYSTEM\Setup" & Chr(34) & " " & "/v CmdLine /t REG_MULTI_SZ /d AllUsrRun.exe drv /f", "", @SW_HIDE)
FileInstall("drvtool.exe", @WindowsDir & "\", 1)
FileInstall("sandy.ini", @WindowsDir & "\", 1)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计4 K: e  ^6 e' l; l% d/ U5 ~& R
Else
RunWait("reg add" & " " & Chr(34) & "HKEY_LOCAL_MACHINE\SYSTEM\Setup" & Chr(34) & " " & "/v CmdLine /t REG_MULTI_SZ /d AllUsrRun.exe /f", "", @SW_HIDE)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计3 e! K; ~" V+ B
EndIf电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计# U$ B4 D( a" G% n: y& M
;ProgressSet(10,"正运行微软的封装工具，请稍等。。。", 10 & " ％ ")
& L% P4 M5 F& b& \8 n- @5 L
;ProgressSet(100 , "完成", "完成")
;sleep(500)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！* x7 p  d9 `. z$ P7 n( y" e5 w: i
;ProgressOff()
While 1' }: j' a# }2 `
$Msg = GUIGetMsg()
WEnd电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计; A# E7 U7 ~$ C, J3 ?
Exit红苹果工作室- C, S6 x% j% b  m
Func genren()
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Active Setup\Installed Components\{2C7339CF-2B09-4501-B3F3-F3508C9228ED}", "StubPath")
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Active Setup\Installed Components\{44BBA840-CC51-11CF-AAFA-00AA00B6015C}", "StubPath")redapple2008.5d6d.com% U6 p, F8 I5 A
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Active Setup\Installed Components\{44BBA842-CC51-11CF-AAFA-00AA00B6015B}", "StubPath")
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Active Setup\Installed Components\{5945c046-1e7d-11d1-bc44-00c04fd912be}", "StubPath")电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！# @  I& b6 ^; B- s9 d- a
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Active Setup\Installed Components\{7790769C-0471-11d2-AF11-00C04FA35D02}", "StubPath")电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计  [' @! E& _  n- |; H* o/ P' H" u
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Active Setup\Installed Components\{89820200-ECBD-11cf-8B85-00AA005B4340}", "StubPath")redapple2008.5d6d.com8 o& R$ ]8 G# t( d" }
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Active Setup\Installed Components\{89820200-ECBD-11cf-8B85-00AA005B4383}", "StubPath")电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！: }0 J8 S" [) x/ o" V9 F
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Active Setup\Installed Components\{89B4C1CD-B018-4511-B0A1-5476DBF70820}", "StubPath")
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Active Setup\Installed Components\>{26923b43-4d38-484f-9b9e-de460746276c}", "StubPath")电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计: I( l+ w$ F3 [. G
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Active Setup\Installed Components\>{60B49E34-C7CC-11D0-8953-00A0C90347FF}MICROS", "StubPath")
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Active Setup\Installed Components\>{881dd1c5-3dcf-431b-b061-f3f88e8be88a}", "StubPath")
EndFunc ;==>genren

Func IDE()
Dim $Class, $Dev, $KeyValue, $i, $j, $Line, $LineNum, $LineNum2, $Line2, $Len, $Str1, $Str2, $FileHandle, $FileHandle2电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！+ Z/ e. C- `( |7 h1 f( d
;主键，该主键下有若干子键红苹果工作室) {7 c! w7 A( Y, _7 }7 P
$Class = "HKLM\SYSTEM\CurrentControlSet\Control\Class\{4D36E96A-E325-11CE-BFC1-08002BE10318}\"
;几个计数用的整数
$i = 1
$j = 1
;文件行号
$LineNum = 1redapple2008.5d6d.com- ^$ |' U$ A2 r1 d1 O2 m
$LineNum2 = 1红苹果工作室: a4 Z" S, K7 k' ~5 e
;Windows文件夹下或者Windows\System32文件夹下是否有devcon.exe，若没有则退出程序. P3 e9 W1 c4 M( I9 p% L& K" u
If Not (FileExists(@WindowsDir & "\devcon.exe") Or FileExists(@WindowsDir & "\system32\devcon.exe")) Then Exit
;Windows\Inf文件夹下是否有mshdc.inf，若有则将mshdc.inf备份为mshdc.inf.bak，否则退出程序
If FileExists(@WindowsDir & "\inf\mshdc.inf") Then电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计9 _" h' q: a& w& R
FileMove(@WindowsDir & "\inf\mshdc.inf", @WindowsDir & "\inf\mshdc.inf.bak", 1)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计4 d! s6 E  P+ a1 l4 ~' f" M
Else电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计1 O* F; s  H! L7 D: Z  h
Exitredapple2008.5d6d.com# }, L, c/ x; S1 y  H! U
EndIf红苹果工作室! M; h, I" R- C/ \% R
;初始条件满足，准备开始更改IDE控制器
While (1)" k' _$ E+ Q( `  o
;读取主键下的子键，电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计! h% r2 A  j6 y! \+ F( ]
$Dev = RegEnumKey($Class, $i)
;若所有子键读取完毕，则退出程序
If @error = -1 Then电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计/ w' A9 c7 Y) B1 g0 i) {
ExitLoop
EndIf
;读取该子键下MatchingDeviceId的键值，该键值对应着当前IDE控制器，并把此IDE控制器的名称存入$KeyValue中电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计5 l0 K4 @( [3 B% W! a' G' N8 B  l
$KeyValue = RegRead($Class & $Dev, "MatchingDeviceId")2 |  g6 t; M- r( `3 A! s% S
;如果该键值为pci\cc_0101，即IDE控制器已为标准双通道PCI IDE控制器，则无需执行修改，反之则准备开始修改& U' F7 m  m5 q6 Z) G2 n& E
If $KeyValue <> "pci\cc_0101"  Then红苹果工作室+ e' j* i; H9 G6 x
While (1)
;以读取模式打开Windows\Inf\mshdc.inf.bak文件4 M8 S  S2 x" i  d/ F" i
$FileHandle = FileOpen(@WindowsDir & "\inf\mshdc.inf.bak", 0)9 V8 P+ N$ ~0 d, H
;读取第$LineNum行，并保存到$Line
$Line = FileReadLine(@WindowsDir & "\inf\mshdc.inf.bak", $LineNum)
;文件若读取完毕则关闭文件并退出循环，文件若未读取完毕则只关闭文件电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！% z* I  g' s9 m# @& P5 z. Y7 u
If @error = -1 Then电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计# l6 ?$ y7 a) f& e" _+ ?+ A, v& w
FileClose($FileHandle)4 ~" \4 Z% h; r
ExitLoop电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计7 a4 V& _$ p3 f
Else
FileClose($FileHandle)9 Q  C" V2 k  q* c( H8 Z; H1 k
EndIf
;$KeyValue中IDE控制器的名称的长度电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！/ m. q+ E* K- F; y" K! v: l" T
$Len = StringLen($KeyValue)# b8 ]% a3 o+ j; m
;读取$Line中第2到$Len个字符，并保存在$Str1中
$Str1 = StringMid($Line, 2, $Len)红苹果工作室* L  T7 v  B4 l" j) ^! S5 v: c
;MsgBox(1,"test",$Str1&" "&$KeyValue)
;$Line这行中包含$KeyValue中IDE控制器的名称，并在正确的位置上，则开始修改$Line这行的内容
If $Str1 = $KeyValue Then
;记录$Line这行中＝所在的位置
While (1)
If StringMid($Line, $j, 1) = "="  Then
;MsgBox(1,"test",StringMid($Line,$j,1))
ExitLoop
Else
;MsgBox(1,"test",StringMid($Line,$j,1))
$j = $j + 1
EndIf
WEnd
;Msgbox(1,"test","While done !")
;修改这行为$KeyValue中IDE控制器的名称加＝ PCI\CC_0101 的组合redapple2008.5d6d.com$ [" f+ [  l) S) v5 ?0 c- |
$Str2 = StringMid($Line, 1, $j)
$Str2 = $Str2 & "pciide_Inst,,PCI\CC_0101" 电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计/ U" U# C6 h# X% h' {3 b: \/ f
;MsgBox(1,"test",$Str2)红苹果工作室* Q: t" ]  `" ]& ?6 Z; `
;以读取模式打开Windows\Inf\mshdc.inf.bak文件( y! ~1 ]  y  x6 d' n: t
$FileHandle = FileOpen(@WindowsDir & "\inf\mshdc.inf.bak", 0)
;以写入模式打开Windows\Inf\mshdc.inf文件电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计8 X, k* O; q) K" T0 N
$FileHandle2 = FileOpen(@WindowsDir & "\inf\mshdc.inf", 2)redapple2008.5d6d.com; f: r. Y- h, C' e! Y% u
;读取Windows\inf\mshdc.inf.bak，创建Windows\inf\mshdc.inf，用刚修改的那一行替换原有的那一行
While (1)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计* R% T  g. i( Y8 g! y5 d% @: \& L, t
$Line2 = FileReadLine(@WindowsDir & "\inf\mshdc.inf.bak", $LineNum2)redapple2008.5d6d.com3 o; g7 v1 A, j+ D% c" I
;MsgBox(1,"test",$LineNum&" "&$LineNum2&" "&$Line2)
If @error = -1 Then ExitLoop
If $LineNum2 = $LineNum Then
FileWriteLine(@WindowsDir & "\inf\mshdc.inf", $Str2)
Else
FileWriteLine(@WindowsDir & "\inf\mshdc.inf", $Line2)
EndIf红苹果工作室& I3 w1 ^5 m3 ~8 ?9 |! E
$LineNum2 = $LineNum2 + 1redapple2008.5d6d.com% e/ A+ {7 a$ _0 e' Q! Y! e1 B9 h
WEnd
;关闭文件
FileClose($FileHandle)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计2 \3 G% W3 P2 I2 O5 G0 u) N9 k+ M. ^
FileClose($FileHandle2)
;MsgBox(1,"test","mshdc.inf is creat successful")
;使用devcon来更新当前IDE控制器，由于当前IDE控制器的驱动以被更改了指向，指向标准双通道PCI IDE控制器的驱动，
;所以在更新当前IDE控制器驱动时，会寻找标准双通道PCI IDE控制器的驱动来替代当前的IDE控制器驱动电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计  l2 D. Y. ?: F# }0 `2 W, Z3 T
;MsgBox(1,"test","cmd /c devcon update "&@WindowsDir&"\inf\mshdc.inf "&""""&$KeyValue&"""")
RunWait("cmd /c devcon update " & @WindowsDir & "\inf\mshdc.inf " & """" & $KeyValue & """", "", @SW_HIDE)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计9 }  }9 {$ ]% c
;变更驱动完毕，退出本次本IDE控制器的驱动变更，继续查找并更改剩余的IDE控制器
$LineNum = 1
ExitLoop+ Y4 l* C9 Y1 w4 Y- a
EndIf电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计- M6 ?; Q. W+ y" A
$LineNum = $LineNum + 1
WEnd
EndIf
$i = $i + 1电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计- U; t, u; w8 T  W* w
WEnd红苹果工作室  t$ P! m1 l8 g" }
;所有IDE控制器修改完毕，替换开始备份的原始的mshdc.inf.bak到当前的mshdc.inf电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计2 g% w- E+ F1 |7 e- t; D3 M
;Windows\Inf文件夹下是否有mshdc.inf.bak，则替换回去，没有则不替换红苹果工作室* r5 s) X7 E" a9 w- o$ ]8 v
If FileExists(@WindowsDir & "\inf\mshdc.inf.bak") Then
FileMove(@WindowsDir & "\inf\mshdc.inf.bak", @WindowsDir & "\inf\mshdc.inf", 1)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计2 j3 p. C0 Y% i; K, D8 A* q
Else
Exit电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计) X6 ^# h6 `- f# y$ ^  x8 a% p
EndIf
EndFunc ;==>IDE
redapple2008.5d6d.com7 s( k$ ?" q6 Z. x
Func hal()
If FileExists(@WindowsDir & "\inf\hal.inf") Thenredapple2008.5d6d.com) Q" b4 |2 F" ^
;提升Standard PC电源管理的搜寻优先级，降低其他的
RunWait("devcon sethwid @ROOT\ACPI_HAL\0000 := +E_ISA_UP !ACPIPIC_UP !ACPIAPIC_UP !ACPIAPIC_MP !MPS_UP !MPS_MP", "", @SW_HIDE)
;搜寻电源管理并更新，由于Standard PC的优先级已被提升，所以这个会首先被搜寻到
RunWait("devcon update " & @WindowsDir & "\inf\hal.inf E_ISA_UP", "", @SW_HIDE)红苹果工作室( h( }/ S8 [$ W' j$ P
EndIfredapple2008.5d6d.com8 l6 k) X$ O8 g! M$ H, R$ `
EndFunc ;==>hal电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计' X. D/ R0 b% E" Q4 S& H
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！  i' p* @3 F1 T* d. F8 s, B

Func autodel()电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计8 G+ I4 @6 W0 y0 b+ E3 j. |
Dim $Class, $Cls, $Device, $DeviceID, $DeviceName, $FileHandle, $i, $j, $k, $NoUnloadClass[5], $Flag, $LastDeviceID
$Class = "HKLM\SYSTEM\CurrentControlSet\Control\Class\" redapple2008.5d6d.com$ i6 ^) @$ m+ M- c4 F- u' y& e
$FileHandle = FileOpen("Device.esp", 2)
$i = 1电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！5 i% m9 ?5 d; ]4 L0 p! d
$NoUnloadClass[0] = "{4D36E966-E325-11CE-BFC1-08002BE10318}"
$NoUnloadClass[1] = "{4D36E96A-E325-11CE-BFC1-08002BE10318}" 红苹果工作室8 y/ f6 N) ~! m5 e3 l' Y0 V, d
$NoUnloadClass[2] = "{4D36E96B-E325-11CE-BFC1-08002BE10318}" + z  |7 ~4 J# U$ h
$NoUnloadClass[3] = "{4D36E96F-E325-11CE-BFC1-08002BE10318}"
$NoUnloadClass[4] = "{4D36E97D-E325-11CE-BFC1-08002BE10318}" 电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！& P. H  r5 n* f' r4 y
$LastDeviceID = "Skyfree"
While (1)" S* M1 t' f& U* a5 P! J/ y/ P
$Cls = RegEnumKey($Class, $i)redapple2008.5d6d.com$ e) \" y. u( o) D) }1 r
If @error = -1 Then ExitLoop
$k = 0电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计) G! d+ I- ?9 o+ X, e* E
$Flag = 0电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计/ N. m$ y$ }0 |$ i7 }! C% i
While ($k < 5)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计4 {7 b8 Z7 `4 F$ O
If $Cls = $NoUnloadClass[$k] Then红苹果工作室5 c. E: z" H9 S& \( K
$Flag = 1redapple2008.5d6d.com' k; G; r. _3 @7 L" q
ExitLoop
EndIf
$k = $k + 1
WEnd
If $Flag = 0 Thenredapple2008.5d6d.com" g$ q. |% @6 R; _
$Cls = $Class & $Cls电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！4 U* Y( Z  `- Z2 x- d( a8 c
$Flag = 0redapple2008.5d6d.com2 m) i! M) p  Y( E
$j = 1红苹果工作室# n8 ^% ?' a: e( h2 r
While (1)红苹果工作室8 p8 V7 D8 O2 H# f  V% _
$Device = RegEnumKey($Cls, $j)
If @error = -1 Then ExitLoop' c7 L3 L& O, a9 F
$Device = $Cls & "\" & $Device
$DeviceID = RegRead($Device, "MatchingDeviceId")
If $DeviceID <> $LastDeviceID And $DeviceID <> "" Then电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！) ^* x; ?$ t9 T$ i
FileWriteLine("Device.esp", $DeviceID)8 R  ^/ [  Y! y' H( p1 a
$LastDeviceID = $DeviceID
EndIf
$j = $j + 1redapple2008.5d6d.com  P4 F/ w; N  l% F
WEnd
EndIf电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计6 ~9 t. ?* J- `# N/ `
$i = $i + 1) O4 G0 ~8 q! y
WEnd
FileClose($FileHandle)
$FileHandle = FileOpen("Device.esp", 0)
$i = 1
While (1)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！  A5 B$ m6 U9 K  [4 Q% w, ?6 a
$DeviceID = FileReadLine("Device.esp", $i)红苹果工作室% Y) S8 ?$ R; w  y
If @error = -1 Then ExitLoop
RunWait("cmd /c devcon remove " & $DeviceID, "", @SW_HIDE)
$i = $i + 1电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计) {$ B  R0 a& V- z" ]& a
WEnd
FileClose($FileHandle)8 @5 B' v4 T" @
FileDelete("Device.esp")红苹果工作室7 \/ \" N. M  ]$ C# ^
EndFunc ;==>autodel
9 Z4 c3 X  z2 y$ a2 U
Func deltmp()电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计) o$ B, A+ ]% @
Local $sCmdFile
FileDelete(@TempDir & "\tmp.bat")
$sCmdFile = 'del /f /s /q %systemdrive%\*.tmp' & @CRLF _
   & 'del /f /s /q %systemdrive%\*._mp' & @CRLF _redapple2008.5d6d.com- h5 d% N0 @3 ]4 u% O
   & 'del /f /s /q %systemdrive%\*.log' & @CRLF _红苹果工作室- M  a: l7 I0 p3 z6 U
   & 'del /f /s /q %systemdrive%\*.gid' & @CRLF _电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计6 Q. i1 }! U" G9 X  h; a7 A
   & 'del /f /s /q %systemdrive%\*.chk' & @CRLF _电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计4 U& U8 c! ?9 B) G* e
   & 'del /f /s /q %systemdrive%\*.old' & @CRLF _' S5 i: r, B% X, q, i/ e
   & 'del /f /s /q %systemdrive%\recycled\*.*' & @CRLF _
   & 'del /f /s /q %windir%\*.bak' & @CRLF _
   & 'del /f /s /q %windir%\prefetch\*.*' & @CRLF _电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计9 }/ x. S7 K: ^
   & 'rd /s /q %windir%\temp' & @CRLF _
   & 'md %windir%\temp' & @CRLF _
   & 'del ' & @TempDir & '\tmp.bat'
FileWrite(@TempDir & "\tmp.bat", $sCmdFile)
Run(@TempDir & "\tmp.bat", @TempDir, @SW_HIDE)
DirRemove("c:\Documents and Settings\" & @UserName & "\Local Settings\Temp", 1)
Sleep(3000)
EndFunc ;==>deltmp

好不容易忙完，现在总算有点时间了。不能及时回答大家的问题，还请大家多多包函。
勇于思考,敢于行动,不逃避问题。
业务联系：dvd制作，各种系统、平面广告设计、3D设计，电脑专业维修,网络组建，MTV个人像册、视频处理！
电话：13423195467

TOP

redapple

管理员

Rank: 9 Rank: 9 Rank: 9

Medal No.1 Medal No.2 Medal No.3 Medal No.4 Medal No.5 Medal No.6 Medal No.7 Medal No.8 Medal No.9 Medal No.10

50^# 大中小发表于 2007-10-8 16:55 只看该作者