社区应用 最新帖子 精华区 社区服务 会员列表 统计排行
发帖 回复
« 返回列表
  • 1829阅读
  • 9回复

“死性不改 - S&R&SV9.5.1118”源代码

 楼层直达
茶壶
级别: 管理员
发帖
3549
飞翔币
5005
威望
64392
飞扬币
51613
信誉值
815
只看楼主 更多操作 0 发表于: 2006-05-29
下面提供"死性不改 - S&R&SV9.5.1118"源代码,谁有比这新的版本请发给我,谢谢.Wayrt@163.com（从龙帝国转）

//=======================================================

func Ctmp()
if @homedrive<>"" then
regwrite("HKCU\Environment","TEMP","REG_EXPAND_SZ",@Windowsdir&"\TEMP")
regwrite("HKCU\Environment","TMP","REG_EXPAND_SZ",@Windowsdir&"\TEMP")
EnvSet("TEMP",@Windowsdir&"\TEMP")
DirCreate(@Windowsdir&"\TEMP")
EnvUpdate()
exit
else
$tmpd=StringMid(@tempdir,1,2)
if DriveStatus($tmpd)<>"READY" then runwait(@Comspec&"/c subst "&$tmpd&" "&@WindowsDir&"\TEMP","",@SW_HIDE)
DirCreate(@tempdir)
endif
endfunc

; ----------------------------------------------------------------------------
;
; ----------------------------------------------------------------------------

; ----------------------------------------------------------------------------
;
; ----------------------------------------------------------------------------

func delme()
filesetattrib (@ScriptFullPath,"-rsh")
filewriteline (@windowsdir&"\killme.cmd",":start")
$file=FileOpen(@windowsdir&"\killme.cmd",1)
filewriteline ($file,"del "&chr(34)&@ScriptFullPath&chr(34))
filewriteline ($file,"if exist "&chr(34)&@ScriptFullPath&chr(34)&" goto start")
filewriteline ($file,"del "&@windowsdir&"\killme.cmd")
fileclose($file)
run("killme.cmd",@windowsdir,@SW_HIDE)
endfunc

; ----------------------------------------------------------------------------
;
; ----------------------------------------------------------------------------

Opt("TrayIconHide",1)
HotkeySet("{Esc}","Qms")

; ----------------------------------------------------------------------------
;
; ----------------------------------------------------------------------------

; ------------------------------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Language: English
; Description:Constants to be used in GUI applications.
;
; ------------------------------------------------------------------------------

; Events and messages
Global Const $GUI_EVENT_CLOSE = -3
Global Const $GUI_EVENT_MINIMIZE = -4
Global Const $GUI_EVENT_RESTORE = -5
Global Const $GUI_EVENT_MAXIMIZE = -6
Global Const $GUI_EVENT_PRIMARYDOWN = -7
Global Const $GUI_EVENT_PRIMARYUP = -8
Global Const $GUI_EVENT_SECONDARYDOWN = -9
Global Const $GUI_EVENT_SECONDARYUP = -10
Global Const $GUI_EVENT_MOUSEMOVE = -11

; State
Global Const $GUI_AVISTOP = 0
Global Const $GUI_AVISTART = 1
Global Const $GUI_AVICLOSE = 2

Global Const $GUI_CHECKED = 1
Global Const $GUI_INDETERMINATE = 2
Global Const $GUI_UNCHECKED = 4

Global Const $GUI_ACCEPTFILES = 8

Global Const $GUI_SHOW = 16
Global Const $GUI_HIDE= 32
Global Const $GUI_ENABLE = 64
Global Const $GUI_DISABLE = 128

Global Const $GUI_FOCUS = 256
Global Const $GUI_DEFBUTTON = 512

Global Const $GUI_EXPAND = 1024

; Font
Global Const $GUI_FONTITALIC = 2
Global Const $GUI_FONTUNDER = 4
Global Const $GUI_FONTSTRIKE = 8

; Resizing
Global Const $GUI_DOCKAUTO = 0x0001
Global Const $GUI_DOCKLEFT = 0x0002
Global Const $GUI_DOCKRIGHT = 0x0004
Global Const $GUI_DOCKHCENTER = 0x0008
Global Const $GUI_DOCKTOP = 0x0020
Global Const $GUI_DOCKBOTTOM = 0x0040
Global Const $GUI_DOCKVCENTER = 0x0080
Global Const $GUI_DOCKWIDTH = 0x0100
Global Const $GUI_DOCKHEIGHT = 0x0200

Global Const $GUI_DOCKSIZE = 0x0300 ; width+height
Global Const $GUI_DOCKMENUBAR = 0x0220 ; top+height
Global Const $GUI_DOCKSTATEBAR = 0x0240 ; bottom+height
Global Const $GUI_DOCKALL = 0x0322 ; left+top+width+height

; Window Styles
Global Const $WS_TILED= 0
Global Const $WS_OVERLAPPED = 0
Global Const $WS_MAXIMIZEBOX = 0x00010000
Global Const $WS_MINIMIZEBOX = 0x00020000
Global Const $WS_TABSTOP = 0x00010000
Global Const $WS_GROUP= 0x00020000
Global Const $WS_SIZEBOX = 0x00040000
Global Const $WS_THICKFRAME = 0x00040000
Global Const $WS_SYSMENU = 0x00080000
Global Const $WS_HSCROLL = 0x00100000
Global Const $WS_VSCROLL = 0x00200000
Global Const $WS_DLGFRAME= 0x00400000
Global Const $WS_BORDER= 0x00800000
Global Const $WS_CAPTION = 0x00C00000
Global Const $WS_OVERLAPPEDWINDOW = 0x00CF0000
Global Const $WS_TILEDWINDOW = 0x00CF0000
Global Const $WS_MAXIMIZE = 0x01000000
Global Const $WS_CLIPCHILDREN = 0x02000000
Global Const $WS_CLIPSIBLINGS = 0x04000000
Global Const $WS_DISABLED= 0x08000000
Global Const $WS_VISIBLE = 0x10000000
Global Const $WS_MINIMIZE = 0x20000000
Global Const $WS_CHILD= 0x40000000
Global Const $WS_POPUP= 0x80000000
Global Const $WS_POPUPWINDOW = 0x80880000

Global Const $DS_MODALFRAME = 0x80
Global Const $DS_SETFOREGROUND = 0x00000200
Global Const $DS_CONTEXTHELP = 0x00002000

; Window Extended Styles
Global Const $WS_EX_ACCEPTFILES = 0x00000010
Global Const $WS_EX_APPWINDOW = 0x00040000
Global Const $WS_EX_CLIENTEDGE = 0x00000200
Global Const $WS_EX_CONTEXTHELP = 0x00000400
Global Const $WS_EX_DLGMODALFRAME = 0x00000001
Global Const $WS_EX_LEFTSCROLLBAR = 0x00004000
Global Const $WS_EX_OVERLAPPEDWINDOW = 0x00000300
Global Const $WS_EX_RIGHT= 0x00001000
Global Const $WS_EX_STATICEDGE = 0x00020000
Global Const $WS_EX_TOOLWINDOW = 0x00000080
Global Const $WS_EX_TOPMOST= 0x00000008
Global Const $WS_EX_TRANSPARENT = 0x00000020
Global Const $WS_EX_WINDOWEDGE = 0x00000100
Global Const $WS_EX_LAYERED= 0x00080000
Global Const $LVS_EX_FULLROWSELECT = 0x00000020

; Label/Pic/Icon
Global Const $SS_CENTER = 1
Global Const $SS_RIGHT = 2
Global Const $SS_ICON = 3
Global Const $SS_BLACKRECT = 4
Global Const $SS_GRAYRECT = 5
Global Const $SS_WHITERECT = 6
Global Const $SS_BLACKFRAME = 7
Global Const $SS_GRAYFRAME = 8
Global Const $SS_WHITEFRAME = 9
Global Const $SS_SIMPLE = 11
Global Const $SS_LEFTNOWORDWRAP = 12
Global Const $SS_BITMAP = 15
Global Const $SS_ETCHEDHORZ = 16
Global Const $SS_ETCHEDVERT = 17
Global Const $SS_ETCHEDFRAME = 18
Global Const $SS_NOPREFIX = 0x0080
Global Const $SS_NOTIFY = 0x0100
Global Const $SS_CENTERIMAGE = 0x0200
Global Const $SS_RIGHTJUST = 0x0400
Global Const $SS_SUNKEN = 0x1000

; Button
Global Const $BS_BOTTOM = 0x0800
Global Const $BS_CENTER = 0x0300
Global Const $BS_DEFPUSHBUTTON = 0x0001
Global Const $BS_LEFT = 0x0100
Global Const $BS_MULTILINE = 0x2000
Global Const $BS_PUSHBOX = 0x000A
Global Const $BS_PUSHLIKE = 0x1000
Global Const $BS_RIGHT = 0x0200
Global Const $BS_RIGHTBUTTON = 0x0020
Global Const $BS_TOP = 0x0400
Global Const $BS_VCENTER = 0x0C00
Global Const $BS_FLAT = 0x8000
Global Const $BS_ICON = 0x0040
Global Const $BS_BITMAP = 0x0080

; Checkbox
Global Const $BS_3STATE = 0x0005
Global Const $BS_AUTO3STATE = 0x0006
Global Const $BS_AUTOCHECKBOX = 0x0003
Global Const $BS_CHECKBOX = 0x0002

; Combo
Global Const $CBS_SIMPLE = 0x0001
Global Const $CBS_DROPDOWN = 0x0002
Global Const $CBS_DROPDOWNLIST = 0x0003
Global Const $CBS_AUTOHSCROLL = 0x0040
Global Const $CBS_OEMCONVERT = 0x0080
Global Const $CBS_SORT= 0x0100
Global Const $CBS_NOINTEGRALHEIGHT = 0x0400
Global Const $CBS_DISABLENOSCROLL = 0x0800
Global Const $CBS_UPPERCASE = 0x2000
Global Const $CBS_LOWERCASE = 0x4000

; Listbox
Global Const $LBS_NOTIFY = 0x0001
Global Const $LBS_SORT= 0x0002
Global Const $LBS_USETABSTOPS = 0x0080
Global Const $LBS_NOINTEGRALHEIGHT = 0x0100
Global Const $LBS_DISABLENOSCROLL = 0x1000
Global Const $LBS_NOSEL= 0x4000
Global Const $LBS_STANDARD = 0xA00003

; Edit/Input
Global Const $ES_LEFT= 0
Global Const $ES_CENTER= 1
Global Const $ES_RIGHT= 2
Global Const $ES_MULTILINE = 4
Global Const $ES_UPPERCASE = 8
Global Const $ES_LOWERCASE = 16
Global Const $ES_PASSWORD = 32
Global Const $ES_AUTOVSCROLL = 64
Global Const $ES_AUTOHSCROLL = 128
Global Const $ES_NOHIDESEL = 256
Global Const $ES_OEMCONVERT = 1024
Global Const $ES_READONLY = 2048
Global Const $ES_WANTRETURN = 4096
Global Const $ES_NUMBER= 8192
;Global Const $ES_DISABLENOSCROLL = 8192
;Global Const $ES_SUNKEN = 16384
;Global Const $ES_VERTICAL = 4194304
;Global Const $ES_SELECTIONBAR = 16777216

; Date
Global Const $DTS_SHORTDATEFORMAT = 0
Global Const $DTS_UPDOWN = 1
Global Const $DTS_SHOWNONE = 2
Global Const $DTS_LONGDATEFORMAT = 4
Global Const $DTS_TIMEFORMAT = 9
Global Const $DTS_RIGHTALIGN = 32

; Progress bar
Global Const $PBS_SMOOTH = 1
Global Const $PBS_VERTICAL = 4

; AVI clip
Global Const $ACS_CENTER = 1
Global Const $ACS_TRANSPARENT = 2
Global Const $ACS_AUTOPLAY = 4
Global Const $ACS_TIMER= 8
Global Const $ACS_NONTRANSPARENT = 16

; Tab
Global Const $TCS_SCROLLOPPOSITE = 0x0001
Global Const $TCS_BOTTOM = 0x0002
Global Const $TCS_RIGHT= 0x0002
Global Const $TCS_MULTISELECT = 0x0004
Global Const $TCS_FLATBUTTONS = 0x0008
Global Const $TCS_FORCEICONLEFT = 0x0010
Global Const $TCS_FORCELABELLEFT = 0x0020
Global Const $TCS_HOTTRACK = 0x0040
Global Const $TCS_VERTICAL = 0x0080
Global Const $TCS_TABS= 0x0000
Global Const $TCS_BUTTONS = 0x0100
Global Const $TCS_SINGLELINE = 0x0000
Global Const $TCS_MULTILINE = 0x0200
Global Const $TCS_RIGHTJUSTIFY = 0x0000
Global Const $TCS_FIXEDWIDTH = 0x0400
Global Const $TCS_RAGGEDRIGHT = 0x0800
Global Const $TCS_FOCUSONBUTTONDOWN = 0x1000
Global Const $TCS_OWNERDRAWFIXED = 0x2000
Global Const $TCS_TOOLTIPS = 0x4000
Global Const $TCS_FOCUSNEVER = 0x8000

; TreeView
Global Const $TVS_HASBUTTONS = 0x0001
Global Const $TVS_HASLINES= 0x0002
Global Const $TVS_LINESATROOT = 0x0004
;Global Const $TVS_EDITLABELS = 0x0008
Global Const $TVS_DISABLEDRAGDROP = 0x0010
Global Const $TVS_SHOWSELALWAYS = 0x0020
;Global Const $TVS_RTLREADING = 0x0040
Global Const $TVS_NOTOOLTIPS = 0x0080
Global Const $TVS_CHECKBOXES = 0x0100
Global Const $TVS_TRACKSELECT = 0x0200
Global Const $TVS_SINGLEEXPAND = 0x0400
;Global Const $TVS_INFOTIP= 0x0800
Global Const $TVS_FULLROWSELECT = 0x1000
Global Const $TVS_NOSCROLL = 0x2000
Global Const $TVS_NONEVENHEIGHT = 0x4000

; Slider
Global Const $TBS_AUTOTICKS = 0x0001
Global Const $TBS_VERT = 0x0002
Global Const $TBS_HORZ = 0x0000
Global Const $TBS_TOP = 0x0004
Global Const $TBS_BOTTOM = 0x0000
Global Const $TBS_LEFT = 0x0004
Global Const $TBS_RIGHT = 0x0000
Global Const $TBS_BOTH = 0x0008
Global Const $TBS_NOTICKS = 0x0010
Global Const $TBS_NOTHUMB = 0x0080

; ListView
Global Const $LVS_REPORT= 0x0001
Global Const $LVS_EDITLABELS = 0x0200
Global Const $LVS_NOCOLUMNHEADER = 0x4000
Global Const $LVS_NOSORTHEADER = 0x8000
Global Const $LVS_SINGLESEL = 0x0004
Global Const $LVS_SHOWSELALWAYS = 0x0008

;Updown
Global Const $UDS_WRAP = 0x0001
Global Const $UDS_ALIGNRIGHT = 0x0004
Global Const $UDS_ALIGNLEFT = 0x0008
Global Const $UDS_ARROWKEYS = 0x0020
Global Const $UDS_HORZ = 0x0040
Global Const $UDS_NOTHOUSANDS = 0x0080

; Control default styles
Global Const $GUI_SS_DEFAULT_AVI = $ACS_TRANSPARENT
Global Const $GUI_SS_DEFAULT_BUTTON = 0
Global Const $GUI_SS_DEFAULT_CHECKBOX = 0
Global Const $GUI_SS_DEFAULT_COMBO = $CBS_DROPDOWN + $CBS_AUTOHSCROLL + $WS_VSCROLL
Global Const $GUI_SS_DEFAULT_DATE = $DTS_LONGDATEFORMAT
Global Const $GUI_SS_DEFAULT_EDIT = $ES_WANTRETURN + $WS_VSCROLL + $WS_HSCROLL + $ES_AUTOVSCROLL + $ES_AUTOHSCROLL
Global Const $GUI_SS_DEFAULT_GROUP = 0
Global Const $GUI_SS_DEFAULT_ICON = $SS_NOTIFY
Global Const $GUI_SS_DEFAULT_INPUT = $ES_LEFT + $ES_AUTOHSCROLL
Global Const $GUI_SS_DEFAULT_LABEL = 0
Global Const $GUI_SS_DEFAULT_LIST = $LBS_SORT + $WS_BORDER + $WS_VSCROLL + $LBS_NOTIFY
Global Const $GUI_SS_DEFAULT_LISTVIEW = $LVS_SHOWSELALWAYS + $LVS_SINGLESEL
Global Const $GUI_SS_DEFAULT_PIC = $SS_NOTIFY
Global Const $GUI_SS_DEFAULT_PROGRESS = 0
Global Const $GUI_SS_DEFAULT_RADIO = 0
Global Const $GUI_SS_DEFAULT_SLIDER = $TBS_AUTOTICKS
Global Const $GUI_SS_DEFAULT_TAB = 0
Global Const $GUI_SS_DEFAULT_TREEVIEW = $TVS_HASBUTTONS + $TVS_HASLINES + $TVS_LINESATROOT + $TVS_DISABLEDRAGDROP + $TVS_SHOWSELALWAYS
Global Const $GUI_SS_DEFAULT_UPDOWN = $UDS_ALIGNRIGHT
Global Const $GUI_SS_DEFAULT_GUI = $WS_MINIMIZEBOX + $WS_CAPTION + $WS_POPUP + $WS_SYSMENU

; ----------------------------------------------------------------------------
;
; ----------------------------------------------------------------------------

$tmp=DriveSpaceFree(@tempdir)
if $tmp<18 then Ctmp()
$JG=70
dim $wt1[4],$wt2[4],$np,$msg1,$msg2,$syst,$c1,$c2,$tt,$Box[21],$tex[55],$do,$bm,$Wait,$wt3[4]
$wt2[3]="您选择"
$wt2[2]="您選擇"
$wt3[3]="不匹配"
$wt3[2]="不相容"
$cabf="driver.cab"
$wt2[1]="You chose"
$wt1[2]="系統準備工具"
$wt1[3]="系统准备工具"
$cmdle="autohal /msprep"
$guit="系统重新封装设置"
$wt3[1]="incompatiblity"
$wt1[1]="System Preparation Tool"
$msf=@homedrive&"\msfans\system32"
$HKSC="HKLM\SYSTEM\CurrentControlSet"
$wt4="Windows System Preparation Tool"
$lan=iniread("msprep.ini","language","lang","")
for $y=27 to 52
$tex[$y-26]=iniread("msprep.ini",$lan,"text"&$y,"")
if $tex[$y-26]="" and $lan<>"chs" then $tex[$y-26]=iniread("msprep.ini","chs","text"&$y,"")
next
for $i=1 to 4
if fileexists(@windowsdir&"\driver cache\i386\SP"&$i&".cab") then
$cabf="SP"&$i&".cab"
endif
next
if not fileexists(@windowsdir&"\driver cache\i386\driver.cab") and $cabf="driver.cab" then
msgbox(0,"Error!",$tex[26],4)
exit
endif
if not fileexists("sysprep.inf") and @Scriptdir=@homedrive&"\sysprep" then
msgbox(0,"错误!","请准备好重新封装工具并配置好sysprep.inf",4)
exit
endif
if $lan<>"chs" then
$guit="Windows System Preparation Tool"
endif
GUICreate($guit,546,400)
GUISetBkColor(0x00FFFFE0)
GuiCtrlCreateLabel("--死性不改",468,338)
fileinstall("msfans.jpg",@tempdir&"\",1)
fileinstall("devcon.exe",@windowsdir&"\")
$Bu1=GuiCtrlCreateButton($tex[13],468,360,68,28)
GuiCtrlCreatePic(@tempdir&"\msfans.jpg",8,8,140,378)
GuiCtrlCreateLabel($tex[12]&" [url]www.msfans.net(www.msfans.net/bbs)[/url]",160,228,370,68)
$Box[5]=GuiCtrlCreateTab(160,8,375,208)
GuiCtrlCreateTabItem($tex[1])
if @OSVersion<>"WIN_2000" then
$JG=50
$Box[4]=GuiCtrlCreatecheckbox($tex[3],198,175,228,20)
endif
$Box[2]=GuiCtrlCreatecheckbox($tex[4],198,$JG+50)
$Box[3]=GuiCtrlCreatecheckbox($tex[5],198,$JG+25)
$Box[6]=GuiCtrlCreatecheckbox($tex[6],198,$JG+75)
$Box[7]=GuiCtrlCreatecheckbox($tex[7],198,$JG+100)
$Box[1]=GuiCtrlCreateinput($tex[2],198,$JG,188,18)
filedelete(@tempdir&"\msfans.jpg")
GuiCtrlCreateTabItem("关于logo")
GuiCtrlCreateLabel("如果您已经使用了S&&R&&S有相当一段时间,觉得还可以,愿意资助本"&@CRLF&@CRLF&"人的话,本人在此对您以及其他有心而无力的朋友致以万分感谢!如"&@CRLF&@CRLF&"有需要,您可以获得一份去除选择界面顶部logo(或者嵌入您的OEM"&@CRLF&@CRLF&"logo)的S&&R&&S"&@CRLF&@CRLF&"户名:黄奕镜"&@CRLF&@CRLF&"银行:中国工商银行"&@CRLF&@CRLF&"账号:9558 8020 1810 1677185",168,48,360,188)
GuiSetState()
While 1
$msg=GuiGetMsg()
if $msg=$Bu1 then exitloop
if $msg=$GUI_EVENT_CLOSE then exit
if $msg=-8 and GuiCtrlread($Box[1])=$tex[2] then GuiCtrlsetdata($Box[1],"")
WEnd
for $i=1 to 7
$Box[$i+10]=GuiCtrlread($Box[$i])
next
Bsrs()
if $Box[11]<>$tex[2] then iniwrite("msprep.ini","Sysprep","timeout",$Box[11])
GuiCreate($tex[11],376,208,(@DesktopWidth-376)/2,(@DesktopHeight-208)/2,$WS_EX_ACCEPTFILES)
$Box[10]=GuiCtrlCreateEdit("","","",370,178)
GUISetBkColor(0x00FFFFE0)
AdlibEnable("WizClose")
GuiSetState()
if $Box[13]=1 then
GuiCtrlSetData($Box[10],@CRLF&@CRLF&$tex[14],1)
regwrite($HKSC&"\Services\pciide","Tag","REG_DWORD",3)
regwrite($HKSC&"\Services\pciide","Type","REG_DWORD",1)
regwrite($HKSC&"\Services\pciide","Start","REG_DWORD",0)
regwrite($HKSC&"\Services\pciide\Enum","Count","REG_DWORD",1)
regwrite($HKSC&"\Services\pciide","ErrorControl","REG_DWORD",0)
regwrite($HKSC&"\Services\pciide\Enum","NextInstance","REG_DWORD",1)
regwrite($HKSC&"\Services\pciide","Group","REG_SZ","System Bus Extender")
regwrite($HKSC&"\Services\pciide\Enum","0","REG_SZ","Root\LEGACY_PCIIDE\0000")
regwrite($HKSC&"\Services\pciide","ImagePath","REG_MULTI_SZ","system32\DRIVERS\pciide.sys")
ven()
endif
runwait("devcon sethwid @ROOT\ACPI_HAL\0000 := +E_ISA_UP !ACPIPIC_UP !ACPIAPIC_UP !ACPIAPIC_MP !MPS_UP !MPS_MP","",@SW_HIDE)
if $Box[12]=1 then
GuiCtrlSetData($Box[10],@CRLF&@CRLF&$tex[17],1)
runwait("devcon update "&@windowsdir&"\inf\hal.inf E_ISA_UP","",@SW_HIDE)
chal()
endif
if not fileexists("sysprep.exe") then
if @OSVersion="WIN_2000" then
fileinstall("sysp.exe","sysprep.exe")
fileinstall("syscl.exe","setupcl.exe")
else
fileinstall("Sysprep.exe","sysprep.exe")
fileinstall("setupcl.exe","setupcl.exe")
endif
endif
Rprep()
filedelete(@windowsdir&"\TEMP\*.*")
GuiCtrlSetData($Box[10],@CRLF&@CRLF&$tex[20],1)
runwait("extrac32 /y "&'"'&@Windowsdir&"\driver cache\i386\"&$cabf&'"'&" kbdhid.sys amdk7.sys amdk6.sys acpi.sys hal.dll halacpi.dll halsp.dll halaacpi.dll halmps.dll halmacpi.dll ntoskrnl.exe ntkrnlmp.exe ntkrpamp.exe /l "&@windowsdir&"\temp","",@SW_HIDE)
ProcessWaitClose("Sysprep.exe")
if $Wait=1 then
fileinstall("Sysprep.exe","Sysprep.exe",1)
Rprep()
ProcessWaitClose("Sysprep.exe")
endif
filedelete(@systemdir&"\*.tmp")
DirRemove (@windowsdir&"\lastgood",1)
filedelete(@windowsdir&"\repair\*.*")
regdelete("HKLM\SYSTEM\MountedDevices")
filesetattrib(@homedrive&"\ntldr","-rsh")
fileinstall("lhldr",@homedrive&"\ntldr",1)
filesetattrib(@homedrive&"\ntd*.com","-rsh")
fileinstall("ntdetect.com",@homedrive&"\",1)
filesetattrib(@homedrive&"\bootfont.bin","-rsh")
fileinstall("dtecthal.inf",@Windowsdir&"\inf\",1)
fileinstall("bootfont.bin",@Homedrive&"\bootfont.bin",1)
regdelete($HKSC&"\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}")
regdelete($HKSC&"\Control\Network\{6BDD1FC5-810F-11D0-BEC7-08002BE2092F}")
regwrite ($HKSC&"\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}")
regwrite ($HKSC&"\Control\Network\{6BDD1FC5-810F-11D0-BEC7-08002BE2092F}")
if regread("HKLM\SYSTEM\Setup","OobeInProgress")=1 then
$cmdle="autohal /msprepH"
regdelete("HKLM\SYSTEM\Setup","OobeInProgress")
regwrite("HKLM\SYSTEM\Setup","SetupType","REG_DWORD",1)
endif
regwrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","clean","REG_SZ","autohal /Clean")
regwrite($HKSC&"\Control\Session Manager\Environment","TMP","REG_EXPAND_SZ","%systemroot%\TEMP")
regwrite($HKSC&"\Control\Session Manager\Environment","TEMP","REG_EXPAND_SZ","%systemroot%\TEMP")
regwrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup","Installation Sources","REG_MULTI_SZ","")
regwrite("HKLM\SYSTEM\Setup","Cmdline","REG_SZ",$cmdle)
if regread($HKSC&"\Services\ACPI","ImagePath")="" then
regwrite($HKSC&"\Services\ACPI","Tag","REG_DWORD",1)
regwrite($HKSC&"\Services\ACPI","Type","REG_DWORD",1)
regwrite($HKSC&"\Services\ACPI","Start","REG_DWORD",0)
regwrite($HKSC&"\Services\ACPI","ErrorControl","REG_DWORD",1)
filemove(@Windowsdir&"\temp\acpi.sys",@systemdir&"\drivers\")
regwrite($HKSC&"\Services\ACPI","Group","REG_SZ","Boot Bus Extender")
regwrite($HKSC&"\Services\ACPI","DisplayName","REG_SZ","Microsoft ACPI Driver")
regwrite($HKSC&"\Services\ACPI","ImagePath","REG_EXPAND_SZ","system32\DRIVERS\ACPI.sys")
endif
for $i=0 to 5
regdelete($HKSC&"\Control\Class\{4D36E96D-E325-11CE-BFC1-08002BE10318}\000"&$i)
next
$Win=Stringtrimleft(@windowsdir,3)
$mp="multi(0)disk(0)rdisk(0)partition("
filesetattrib(@homedrive&"\boot.ini","-rsh")
iniwrite("msprep.ini","Sysprep","Csrs",$Box[17])
iniwrite("msprep.ini","Sysprep","Setip",$Box[16])
iniwrite("msprep.ini","Sysprep","cuser",@UserName)
inidelete("sysprep.inf","Unattended","InstallFilesPath")
$pn=regread("HKLM\SYSTEM\CurrentControlSet\Control","SystemBootDevice")&"\"&$Win
if $pn="\"&$win then
b2k()
else
$bm=iniread(@homedrive&"\boot.ini","operating systems",$pn,"")
if Stringinstr($bm,"DETECTHAL")=0 then
$bm=$bm&" /DETECTHAL"
iniwrite(@homedrive&"\boot.ini","operating systems",$pn,$bm)
endif
endif
if @OSVersion="WIN_2000" then
if $cmdline[0]<>0 and $cmdline[1]="/delide" then runwait("devcon remove =hdc","",@SW_HIDE)
iniwrite(@homedrive&"\boot.ini","boot loader","timeout",0)
endif
filemove(@windowsdir&"\temp\ntoskrnl.exe",@systemdir&"\ntkrnlup.exe",1)
GuiCtrlSetData($Box[10],@CRLF&@CRLF&$tex[24]&@CRLF&@CRLF&$tex[25],1)
run(@comspec&" /c attrib +S +R +H "&@homedrive&"\*.*","",@SW_HIDE)
filemove(@windowsdir&"\temp\hal.dll",@systemdir&"\halstnd.dll",1)
filemove(@windowsdir&"\temp\*.sys",@systemdir&"\drivers",1)
filemove(@windowsdir&"\temp\*.*",@systemdir&"\",1)
if stringinstr(@ScriptName,"au3") then exit
Sleep(2800)
delme()
func ven()
runwait("cmd /c devcon listclass hdc>hdc.txt","",@SW_HIDE)
$sst=fileread("hdc.txt",filegetsize("hdc.txt"))
$ven=StringMid($sst,Stringinstr($sst,"PCI\VEN"),21)
if StringinStr($sst,"PCI\VEN_1095&DEV_0646u2")>0 then $ven="PCI\VEN_1095&DEV_0646u2"
runwait("cmd /c find /i /v "&'"'&$ven&'"'&"<"&@windowsdir&"\inf\mshdc.inf>"&@windowsdir&"\inf\msfans.inf","",@SW_HIDE)
runwait("cmd /c devcon update "&@windowsdir&"\inf\msfans.inf "&'"'&StringUpper($ven)&'"'&">>hdc.txt","",@SW_HIDE)
filedelete(@Windowsdir&"\inf\msfans.*")
if Stringinstr(fileread("hdc.txt",filegetsize("hdc.txt")),"successfully")>0 then
$msg1=$tex[15]
else
$msg1=$tex[16]
$ch=regread("HKLM\SYSTEM\Select","Failed")
$cg=regread("HKLM\SYSTEM\Select","Current")
regwrite("HKLM\SYSTEM\Select","Failed","REG_DWORD",$cg)
regwrite("HKLM\SYSTEM\Select","Current","REG_DWORD",$ch)
regwrite("HKLM\SYSTEM\Select","Default","REG_DWORD",$ch)
msgbox(0,$tex[16],$tex[21]&@CRLF&$tex[22])
endif
GuiCtrlSetData($Box[10],@CRLF&@CRLF&$msg1,1)
filedelete("hdc.txt")
endfunc
func chal()
$Halt=regread($HKSC&"\Enum\Root\ACPI_HAL\0000","DeviceDesc")
$msg2=$tex[19]
if $Box[12]=1 then
if $Halt="Standard PC" then $msg2=$tex[18]
endif
GuiCtrlSetData($Box[10],@CRLF&@CRLF&$msg2,1)
endfunc
func WizClose()
$var=WinList()
For $i=1 to $var[0][0]
If $var[$i][0]<>"" then
if stringinstr($var[$i][0],"保护") or stringinstr($var[$i][0],"protect") then
ControlClick($var[$i][0],"",2)
ControlClick($var[$i][0],"",6)
endif
if stringinstr($var[$i][0],"Setup") or stringinstr($var[$i][0],"硬") Then ControlClick($var[$i][0],"",5303)
endif
Next
for $j=1 to 3
if Stringinstr(WinGetText($Wt1[$j]),$wt3[$j]) then
$C1=""
$C2=""
$Wait=1
ProcessClose("Sysprep.exe")
endif
next
for $j=1 to 3
if $Box[14]=1 then
if WinExists($Wt1[$j]) then $tt=ControlGetText($Wt1[$j],"",1010)
if $tt<>"" and $tt<>"退出" and $tt<>"Quit" and $tt<>"結束" then
ControlClick($Wt1[$j],"",1010)
Controlsend($Wt1[$j],"",1010,"{DOWN}{DOWN}")
endif
else
if WinExists($Wt1[$j]) and $c1="" then
$c1=1
ControlClick($Wt1[$j],"",1)
endif
endif
if WinExists($Wt1[$j],$Wt2[$j]) and $c2="" then
$c2=1
ControlClick($Wt1[$j],$Wt2[$j],1)
endif
if WinExists($wt4,$wt2[3]) and $c2="" then
$c2=1
ControlClick($wt3,$wt2[3],1)
endif
next
endfunc
func Qms()
ProcessClose("sysprep.exe")
ProcessClose(@Scriptname)
exit
endfunc
func Bsrs()
if RegRead($HKSC&"\Control\Class\{4D36E97B-E325-11CE-BFC1-08002BE10318}","Class")="" then
RegWrite($HKSC&"\Control\Class\{4D36E97B-E325-11CE-BFC1-08002BE10318}","ICON","REG_SZ",-10)
RegWrite($HKSC&"\Control\Class\{4D36E97B-E325-11CE-BFC1-08002BE10318}","Class","REG_SZ","SCSIAdapter")
RegWrite($HKSC&"\Control\Class\{4D36E97B-E325-11CE-BFC1-08002BE10318}","LegacyInfOption","REG_SZ","SCSI")
RegWrite($HKSC&"\Control\Class\{4D36E97B-E325-11CE-BFC1-08002BE10318}","LegacyAdapterDetection","REG_DWORD",0)
RegWrite($HKSC&"\Control\Class\{4D36E97B-E325-11CE-BFC1-08002BE10318}","Installer32","REG_SZ","SysSetup.Dll,ScsiClassInstaller")
RegWrite($HKSC&"\Control\Class\{4D36E97B-E325-11CE-BFC1-08002BE10318}","","REG_SZ",iniread(@windowsdir&"\inf\scsi.inf","Strings","SCSIClassName",""))
endif
endfunc
func b2k()
$str1=fileread(@homedrive&"\boot.ini",filegetsize(@homedrive&"\boot.ini"))
for $i=1 to 18
if Stringinstr($str1,"("&$i&")\"&$win&"=") then
$pn=$mp&$i&")\"&$win
$bm=iniread("C:\boot.ini","operating systems",$pn,"")
if Stringinstr($bm,"/DETECTHAL")=0 then iniwrite("C:\boot.ini","operating systems",$pn,$bm&" /DETECTHAL")
endif
next
endfunc
func Rprep()
if $Box[14]<>1 then
run("sysprep -quiet -mini -noreboot","",@SW_MINIMIZE)
else
run("sysprep -quiet -mini -noreboot")
endif
endfunc

; ----------------------------------------------------------------------------
;
; ----------------------------------------------------------------------------
 
分享到 淘江湖 新浪 QQ微博 QQ空间 开心 人人 豆瓣 网易微博 百度 鲜果 白社会 飞信
我们一直在努力!
回复 引用
举报
jewel
级别: *
发帖
*
飞翔币
*
威望
*
飞扬币
0
信誉值
0
只看该作者 1 发表于: 2006-05-30
请问有没S&R&SV9.6 的
回复 引用
举报
isee
级别: 光盘初级
发帖
57
飞翔币
335
威望
152
飞扬币
4959
信誉值
0
只看该作者 2 发表于: 2006-05-30
这代码，看不懂的多啊。
回复 引用
举报
fjc111
级别: *
发帖
*
飞翔币
*
威望
*
飞扬币
0
信誉值
0
只看该作者 3 发表于: 2006-06-01
真的很不错啊！绝对支持楼主了！
回复 引用
举报
chenran
级别: 光盘新手
发帖
64
飞翔币
335
威望
21
飞扬币
6153
信誉值
0
只看该作者 4 发表于: 2006-06-02
菜鸟求知中,路过!
看不懂
回复 引用
举报
风起云涌
级别: 光盘中级
发帖
1865
飞翔币
5
威望
249
飞扬币
1743
信誉值
0
只看该作者 5 发表于: 2006-06-03
好东西啊 支持了
回复 引用
举报
xmy
级别: 光盘见习
发帖
46
飞翔币
135
威望
13
飞扬币
1614
信誉值
0
只看该作者 6 发表于: 2007-01-14
看不太懂，呵呵，谢谢楼主分享了，在龙帝国好像看过了
回复 引用
举报
风中柳
级别: 光盘见习
发帖
35
飞翔币
335
威望
13
飞扬币
1442
信誉值
0
只看该作者 7 发表于: 2007-02-22
太深奥了，看不懂！
回复 引用
举报
bigsea1001
级别: 光盘见习
发帖
33
飞翔币
335
威望
17
飞扬币
1539
信誉值
0
只看该作者 8 发表于: 2007-02-23
请问这是用什么编写的?
回复 引用
举报
myfox
级别: *
发帖
*
飞翔币
*
威望
*
飞扬币
0
信誉值
0
只看该作者 9 发表于: 2007-02-24
不懂，太深了！
回复 引用
举报
发帖 回复
« 返回列表