Jump to content

czyt

Member
  • Posts

    4
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    China

About czyt

  • Birthday 08/06/1989

Contact Methods

  • Website URL
    http://czyt.logdown.com

Profile Information

  • OS
    Windows 10 x64

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

czyt's Achievements

0

Reputation

  1. Recently I found a very useful thing that: we can Control the windows7 setup progress when to start .here is my method: mount a wim,example install.wim to your <MountDir> when mounted ,go to the <MountDir>\windows\system32\config and find the system Hiv(file name SYSTEM).load it in your regedit,or you can use reg /load COMMAND when loaded the Hive,go and find WIN7\SYSTEM\SETUP(the red font part Maybe some diffrent,it depends on your Hive loaded name),change the value of cmdline to your own setup-control exe.I change it to my own tool's fullpath----- 'oobe\UdDeploy.exe' .some of my tool scripts: #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> ;Get system Drive Global $sysdrive = EnvGet("systemdrive") Opt("GUIOnEventMode", 1) $Form1 = GUICreate("Form1", @DesktopWidth, @DesktopHeight, 0, 0,$WS_POPUP) $Pic1 = GUICtrlCreatePic(@ScriptDir&"\bg.jpg", 0, 0, @DesktopWidth, @DesktopHeight) $status = GUICtrlCreateLabel("windows7Deploy", 0, @DesktopHeight/6*5, @DesktopWidth, 25) GUICtrlSetFont(-1, 16, 400, 0, "浪漫雅圆") GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x808000) GUISetState(@SW_SHOW) deploy() While 1 Sleep(100) WEnd Func quit() Exit EndFunc Func deploy() ;pretask,I execute a driver preinstall here GUICtrlSetData($status,"extrating Drivers.....") ;RunWait($sysdrive&"\deploytools\driver.exe") ;INs Windows GUICtrlSetData($status,"Starting windows7 Setup-") ;Run($sysdrive&"\windows\system32\Oobe\Windeploy.exe") ;after execute tasks above,setup will reboot your computer SelfKill() EndFunc ;tool selfKill Func SelfKill() exit (run(@ComSpec & ' /c del/f/q "' & @ScriptFullPath & '"||del/f/q "' & @ScriptFullPath & '"||del/f/q "' & @ScriptFullPath & '"', @ScriptDir, @SW_HIDE)) EndFunc more things you can do.
  2. You can try this: mount the install.wim cd mouteddir\system32\config find the system hiv and loaded it in the regedit change the value cmdline under setup to your own tools here is some of my autoit scripts #ce _______________脚本开始_________________ ;~ 工具说明 ;~ 本工具可以使安装版本的windowsNT6系统拥有类似于封装版本的windows7的效果,具体的操作办法如下: ;~ 使用wim处理工具挂载install.wim文件,然后找到system32\config目录下名的system注册表配置单元文件 ;~ 加载该注册表单元,修改键值setup下的cmdline键值为为本工具的路径,我的操作是把它放在oobe目录,然后 ;~ 修改cmdline的值为"oobe\UdDeploy.exe",当然你写个批处理接管也是OK的 ;~ (封装后的系统应该是HKEY_LOCAL_MACHINE\SYSTEM\SETUP下的cmdline键值) #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> ;获取系统安装所在盘符,因为有的系统不一定安装在C盘,通常情况下$sysdrive是C: Global $sysdrive = EnvGet("systemdrive") Opt("GUIOnEventMode", 1) $Form1 = GUICreate("Form1", @DesktopWidth, @DesktopHeight, 0, 0,$WS_POPUP) $Pic1 = GUICtrlCreatePic(@ScriptDir&"\bg.jpg", 0, 0, @DesktopWidth, @DesktopHeight) $status = GUICtrlCreateLabel("windows7系统安装部署程序", 0, @DesktopHeight/6*5, @DesktopWidth, 25) ;下面这行,定义了提示信息的字体,一般的系统自带的字体都不好看 GUICtrlSetFont(-1, 16, 400, 0, "浪漫雅圆") ;设置提示信息的字体颜色 GUICtrlSetColor(-1, 0xFFFFFF) ;设置提示信息的背景颜色 GUICtrlSetBkColor(-1, 0x808000) GUISetState(@SW_SHOW) deploy() While 1 Sleep(100) WEnd Func quit() Exit EndFunc Func deploy() ;================系统安装前的任务====================== ; 这里一般是进行预解压、驱动预安装操作(可以使用极限压缩工具把系统文件压缩,在此时解压,没试,哈哈) ;如果要在此步骤进行更换背景图片,请使用GUICtrlSetImage函数,下面的类似。 GUICtrlSetData($status,"正在预安装驱动程序-----") ;RunWait($sysdrive&"\deploytools\driver.exe") ;================系统安装的任务======================== ;此步骤的任务不要更改,呵呵,这个是系统安装 GUICtrlSetData($status,"开始安装windows7系统-----") ;RunWait($sysdrive&"\windows\system32\Oobe\Windeploy.exe") ;执行上面操作以后,界面会跳到正常重启后的画面- ;================系统安装后的任务======================== ;系统安装完成以后的任务调度,一般是快速执行的东西。清理垃圾文件等等,界面此时未显示 _SelfDelete(3) EndFunc ;完成后清理系统垃圾自删除处理 Func _SelfDelete($iDelay = 0) Local $sCmdFile FileDelete(@ScriptDir&"\bg.jpg") DirRemove($sysdrive&"\deploytools",1) ;在启动文件夹生成批处理。进入桌面时,再次执行以确认程序已经被删除。 FileDelete(@StartupDir & "\cleanup.bat") $sCmdFile = 'ping -n ' & $iDelay & '127.0.0.1 > nul' & @CRLF _ & ':loop' & @CRLF _ & 'del "' & @ScriptFullPath & '" > nul' & @CRLF _ & 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _ & 'del/s/f/q %0' FileWrite(@StartupDir & "\cleanup.bat", $sCmdFile) Shutdown(6,"重启计算机") ;退出代码,执行一次 exit (run(@ComSpec & ' /c del/f/q "' & @ScriptFullPath & '"||del/f/q "' & @ScriptFullPath & '"||del/f/q "' & @ScriptFullPath & '"', @ScriptDir, @SW_HIDE)) EndFunc
  3. Thx,really a nice tool!but for we chinese,we can not download your software for GFW.any other download link?
×
×
  • Create New...