Adblocker detected! Please consider reading this notice.

Le Duc 287 · 24/4/21

Thêm 1 cách để mount Apps + Driver:

B1: Tải về file dưới đây và giải nén được file AutoIt3.exe

AutoIt3

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

B2: Mở notepad sao chép đoạn code dưới đây và lưu lại với tên là PeApps.au3 (Để Encoding là UTF8)
==> Sau này cần thêm bớt chỉnh sửa gì sẽ sửa ở file này cũng khá là tiện

Mã:

#NoTrayIcon

_Main()

;Chỉnh sửa các kiểu ở hàm Main() dưới đây:
Func _Main()
    Local $pstart = _PSTART_Shortcut()
    ;nếu đường dẫn khác Apps\PSTART.exe thì sửa thành: vd _PSTART_Shortcut('Program\PSTART64.exe')
    If $pstart = Null Then
        If _Mount_ISO() = True Then
            $pstart = _PSTART_Shortcut()
            _Load_WCSFile($pstart)
        EndIf

        ;nếu file tên khác Apps.iso thì sửa thành: vd: _Mount_ISO('Other.iso')
        ;nếu file tên khác Apps.wim và có nhiều index thì sửa thành: vd: _Mount_WIM('Apps64.wim', 2)
        ;mặc định sẽ mount file wim vào B:\Apps. Nếu thay đổi sửa thành: vd: _Mount_WIM('Apps64.wim', 2, 'R:\Apps64')
    Else
        ;load file Apps.wcs để có menu chuột phải
        _Load_WCSFile($pstart)
        ;nếu tên khác Apps.wcs thì sửa thành: vd: _Load_WCSFile($pstart, 'AppsP.wcs')
    EndIf

    ;If _Mount_WIM('Drv10x64.wim', 1, 'B:\Drivers') = True Then
    ;    _DPInst_Drivers('B:\Drivers')
    ;    _UnMount_WIM('B:\Drivers')
    ;EndIf

    ;_DPInst_Drivers(_Get_Path('DriverPacks'))
    ;_MyShortcut()
    Exit
EndFunc   ;==>_Main





;Functions +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Func _MyShortcut()
    ;LVT491 Function
    _Run_Wait('PECMD.exe LINK %Desktop%\Clear Temp,%WinDir%\System32\PECMD.exe,TEMP DELETE,%WinDir%\System32\shell32.dll#153')
    _Run_Wait('PECMD.exe LINK %Desktop%\Admin Login,%WinDir%\System32\PECMD.exe,LOAD %WinDir%\System32\PecmdAdminLoad.ini,%WinDir%\System32\shell32.dll#44')
    _Run_Wait('PECMD.exe LINK %Desktop%\PENetwork,%ProgramFiles%\PENetwork_x64\PENetwork.exe')
    _Run_Wait('PECMD.exe LINK %Desktop%\Explorer++,%ProgramFiles%\WinXShell\Explorer++.exe')
    FileDelete('X:\Users\Administrator\Desktop\Admin Login.LNK')
    Local $SDIPath = _Get_Path('DriverPacks\SDI_auto.au3')
    If $SDIPath <> Null Then _Run_Wait('PECMD.exe LINK %Desktop%\Inst Driver,%WinDir%\System32\AutoIt3.exe,' & $SDIPath & ',%WinDir%\System32\shell32.dll#162')
    _Run_Wait('PECMD.exe ENVI #TEMP=B:\Temp')
    _Run_Wait('PECMD.exe ENVI @@DeskTopFresh=1')
EndFunc   ;==>_MyShortcut

Func _Mount_ISO($FileName = 'Apps.iso')
    Local $FilePath = _Get_File($FileName)
    If $FilePath <> Null Then
        _Run_Wait('imdisk.exe -a -f ' & $FilePath & ' -m #:')
        Return True
    Else
        Return False
    EndIf
EndFunc   ;==>_Mount_ISO

Func _Mount_WIM($FileName = 'Apps.wim', $Index = 1, $MountDir = 'B:\Apps')
    Local $FilePath = _Get_File($FileName)
    If $FilePath <> Null Then
        DirCreate($MountDir)
        If Not FileExists($MountDir) Then Return False
        _Run_Wait('DISM.exe /Mount-Image /ImageFile:' & $FilePath & ' /Index:' & $Index & ' /MountDir:' & $MountDir)
        ;code imagex:
        ;_Run_Wait('imagex.exe /mountrw ' & $FilePath & ' ' & $Index & ' ' & $MountDir)
        Return True
    Else
        Return False
    EndIf
EndFunc   ;==>_Mount_WIM

Func _UnMount_WIM($MountDir = 'B:\Apps')
    _Run_Wait('DISM.exe /Unmount-Image /MountDir:' & $MountDir & ' /Discard')
    ;_Run_Wait('imagex.exe /unmount ' & $MountDir)
    FileDelete($MountDir)
EndFunc   ;==>_UnMount_WIM

Func _DPInst_Drivers($FolderDir)
    If FileExists($FolderDir) Then
        _Run_Wait('dpinst.exe /s /path ' & $FolderDir)
    EndIf
EndFunc   ;==>_DPInst_Drivers

Func _PSTART_Shortcut($FileName = 'Apps\PSTART.exe', $ShortcutName = 'PSTART')
    Local $FilePath = _Get_Path($FileName)
    If $FilePath <> Null Then
        _Run_Wait('PECMD.exe LINK %Desktop%\' & $ShortcutName & ',' & $FilePath)
        Return $FilePath
    Else
        Return Null
    EndIf
EndFunc   ;==>_PSTART_Shortcut

Func _Load_WCSFile($FileDir, $FileName = 'Apps.wcs')
    Local $FolderDir = StringRegExpReplace($FileDir, '\\[^\\]*$', '')
    If @error Then Return
    Local $FilePath = $FolderDir & '\' & $FileName
    If FileExists($FilePath) Then _Run_Wait('PECMD.exe LOAD ' & $FilePath)
EndFunc   ;==>_Load_WCSFile

Func _Get_Path($Path)
    Local $Drv = DriveGetDrive('ALL')
    For $i = 1 To $Drv[0]
        If FileExists($Drv[$i] & '\' & $Path) Then Return StringUpper($Drv[$i]) & '\' & $Path
    Next
    Return Null
EndFunc   ;==>_Get_Path

Func _Get_File($FileName)
    Local $Drv = DriveGetDrive('ALL'), $Fdl
    For $i = 1 To $Drv[0]
        If FileExists($Drv[$i] & '\' & $FileName) Then Return StringUpper($Drv[$i]) & '\' & $FileName
    Next

    For $i = 1 To $Drv[0]
        $Fdl = _FileListToArray(StringUpper($Drv[$i]), '*', 2, True)
        If Not @error Then
            For $j = 1 To $Fdl[0]
                If FileExists($Fdl[$j] & '\' & $FileName) Then Return $Fdl[$j] & '\' & $FileName
            Next
        EndIf
    Next
    Return Null
EndFunc   ;==>_Get_File

Func _Run_Wait($Command)
    RunWait(@ComSpec & ' /C ' & $Command, '', @SW_HIDE)
EndFunc   ;==>_Run_Wait

Func _FileListToArray($sFilePath, $sFilter = '*', $iFlag = 0, $bReturnPath = False)
    Local $sDelimiter = '|', $sFileList = '', $sFileName = '', $sFullPath = ''
    $sFilePath = StringRegExpReplace($sFilePath, '[\\/]+$', '') & '\'
    If $iFlag = Default Then $iFlag = 0
    If $bReturnPath Then $sFullPath = $sFilePath
    If $sFilter = Default Then $sFilter = '*'
    If Not FileExists($sFilePath) Then Return SetError(1, 0, 0)
    If StringRegExp($sFilter, '[\\/:><\|]|(?s)^\s*$') Then Return SetError(2, 0, 0)
    If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(3, 0, 0)

    Local $hSearch = FileFindFirstFile($sFilePath & $sFilter)
    If @error Then Return SetError(4, 0, 0)
    While 1
        $sFileName = FileFindNextFile($hSearch)
        If @error Then ExitLoop
        If ($iFlag + @extended = 2) Then ContinueLoop
        $sFileList &= $sDelimiter & $sFullPath & $sFileName
    WEnd
    FileClose($hSearch)

    If $sFileList = '' Then Return SetError(4, 0, 0)
    Return StringSplit(StringTrimLeft($sFileList, 1), $sDelimiter)
EndFunc   ;==>_FileListToArray

B3: Mở file winpe.wim của các bạn bằng 7-Zip, kéo thả 2 file ở B1, B2 vào folder \Windows\System32\ (Bấm Yes để lưu thay đổi)

B4: Vẫn ở phần 7-Zip chuột phải vào file Windows\System32\PECMD.ini chọn Edit để chỉnh sửa. Thêm 1 dòng như hình dưới đây sau đó lưu lại.

Mã:

EXEC %WinDir%\System32\AutoIt3.exe %WinDir%\System32\PeApps.au3

Xem phần đính kèm 22285

B5: Thử nghiệm xem nó có hoạt động hay không

mình thấy code của @anhdv mà trung minh gửi sử dụng để mount là hợp lý nhất nếu vì mk có thể mount hoặc unmount tùy thích khi đã vào winpe. trước mình dùng cmd mount và unmount nhưng phải thêm nhiều shortcut để mount những file mình thích hoặc unmount nếu không thích. còn với file của anhdv mình có thể thêm bất cứ file .wim nào nếu muốn chỉ cần thêm vào file winr.ini

Hoang Duch2 · 24/4/21

lvt491 nói:

Thêm 1 cách để mount Apps + Driver:

B1: Tải về file dưới đây và giải nén được file AutoIt3.exe

AutoIt3

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

B2: Mở notepad sao chép đoạn code dưới đây và lưu lại với tên là PeApps.au3 (Để Encoding là UTF8)
==> Sau này cần thêm bớt chỉnh sửa gì sẽ sửa ở file này cũng khá là tiện

Mã:

#NoTrayIcon

_Main()

;Chỉnh sửa các kiểu ở hàm Main() dưới đây:
Func _Main()
    Local $pstart = _PSTART_Shortcut()
    ;nếu đường dẫn khác Apps\PSTART.exe thì sửa thành: vd _PSTART_Shortcut('Program\PSTART64.exe')
    If $pstart = Null Then
        If _Mount_ISO() = True Then
            $pstart = _PSTART_Shortcut()
            _Load_WCSFile($pstart)
        EndIf

        ;nếu file tên khác Apps.iso thì sửa thành: vd: _Mount_ISO('Other.iso')
        ;nếu file tên khác Apps.wim và có nhiều index thì sửa thành: vd: _Mount_WIM('Apps64.wim', 2)
        ;mặc định sẽ mount file wim vào B:\Apps. Nếu thay đổi sửa thành: vd: _Mount_WIM('Apps64.wim', 2, 'R:\Apps64')
    Else
        ;load file Apps.wcs để có menu chuột phải
        _Load_WCSFile($pstart)
        ;nếu tên khác Apps.wcs thì sửa thành: vd: _Load_WCSFile($pstart, 'AppsP.wcs')
    EndIf

    ;If _Mount_WIM('Drv10x64.wim', 1, 'B:\Drivers') = True Then
    ;    _DPInst_Drivers('B:\Drivers')
    ;    _UnMount_WIM('B:\Drivers')
    ;EndIf

    ;_DPInst_Drivers(_Get_Path('DriverPacks'))
    ;_MyShortcut()
    Exit
EndFunc   ;==>_Main





;Functions +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Func _MyShortcut()
    ;LVT491 Function
    _Run_Wait('PECMD.exe LINK %Desktop%\Clear Temp,%WinDir%\System32\PECMD.exe,TEMP DELETE,%WinDir%\System32\shell32.dll#153')
    _Run_Wait('PECMD.exe LINK %Desktop%\Admin Login,%WinDir%\System32\PECMD.exe,LOAD %WinDir%\System32\PecmdAdminLoad.ini,%WinDir%\System32\shell32.dll#44')
    _Run_Wait('PECMD.exe LINK %Desktop%\PENetwork,%ProgramFiles%\PENetwork_x64\PENetwork.exe')
    _Run_Wait('PECMD.exe LINK %Desktop%\Explorer++,%ProgramFiles%\WinXShell\Explorer++.exe')
    FileDelete('X:\Users\Administrator\Desktop\Admin Login.LNK')
    Local $SDIPath = _Get_Path('DriverPacks\SDI_auto.au3')
    If $SDIPath <> Null Then _Run_Wait('PECMD.exe LINK %Desktop%\Inst Driver,%WinDir%\System32\AutoIt3.exe,' & $SDIPath & ',%WinDir%\System32\shell32.dll#162')
    _Run_Wait('PECMD.exe ENVI #TEMP=B:\Temp')
    _Run_Wait('PECMD.exe ENVI @@DeskTopFresh=1')
EndFunc   ;==>_MyShortcut

Func _Mount_ISO($FileName = 'Apps.iso')
    Local $FilePath = _Get_File($FileName)
    If $FilePath <> Null Then
        _Run_Wait('imdisk.exe -a -f ' & $FilePath & ' -m #:')
        Return True
    Else
        Return False
    EndIf
EndFunc   ;==>_Mount_ISO

Func _Mount_WIM($FileName = 'Apps.wim', $Index = 1, $MountDir = 'B:\Apps')
    Local $FilePath = _Get_File($FileName)
    If $FilePath <> Null Then
        DirCreate($MountDir)
        If Not FileExists($MountDir) Then Return False
        _Run_Wait('DISM.exe /Mount-Image /ImageFile:' & $FilePath & ' /Index:' & $Index & ' /MountDir:' & $MountDir)
        ;code imagex:
        ;_Run_Wait('imagex.exe /mountrw ' & $FilePath & ' ' & $Index & ' ' & $MountDir)
        Return True
    Else
        Return False
    EndIf
EndFunc   ;==>_Mount_WIM

Func _UnMount_WIM($MountDir = 'B:\Apps')
    _Run_Wait('DISM.exe /Unmount-Image /MountDir:' & $MountDir & ' /Discard')
    ;_Run_Wait('imagex.exe /unmount ' & $MountDir)
    FileDelete($MountDir)
EndFunc   ;==>_UnMount_WIM

Func _DPInst_Drivers($FolderDir)
    If FileExists($FolderDir) Then
        _Run_Wait('dpinst.exe /s /path ' & $FolderDir)
    EndIf
EndFunc   ;==>_DPInst_Drivers

Func _PSTART_Shortcut($FileName = 'Apps\PSTART.exe', $ShortcutName = 'PSTART')
    Local $FilePath = _Get_Path($FileName)
    If $FilePath <> Null Then
        _Run_Wait('PECMD.exe LINK %Desktop%\' & $ShortcutName & ',' & $FilePath)
        Return $FilePath
    Else
        Return Null
    EndIf
EndFunc   ;==>_PSTART_Shortcut

Func _Load_WCSFile($FileDir, $FileName = 'Apps.wcs')
    Local $FolderDir = StringRegExpReplace($FileDir, '\\[^\\]*$', '')
    If @error Then Return
    Local $FilePath = $FolderDir & '\' & $FileName
    If FileExists($FilePath) Then _Run_Wait('PECMD.exe LOAD ' & $FilePath)
EndFunc   ;==>_Load_WCSFile

Func _Get_Path($Path)
    Local $Drv = DriveGetDrive('ALL')
    For $i = 1 To $Drv[0]
        If FileExists($Drv[$i] & '\' & $Path) Then Return StringUpper($Drv[$i]) & '\' & $Path
    Next
    Return Null
EndFunc   ;==>_Get_Path

Func _Get_File($FileName)
    Local $Drv = DriveGetDrive('ALL'), $Fdl
    For $i = 1 To $Drv[0]
        If FileExists($Drv[$i] & '\' & $FileName) Then Return StringUpper($Drv[$i]) & '\' & $FileName
    Next

    For $i = 1 To $Drv[0]
        $Fdl = _FileListToArray(StringUpper($Drv[$i]), '*', 2, True)
        If Not @error Then
            For $j = 1 To $Fdl[0]
                If FileExists($Fdl[$j] & '\' & $FileName) Then Return $Fdl[$j] & '\' & $FileName
            Next
        EndIf
    Next
    Return Null
EndFunc   ;==>_Get_File

Func _Run_Wait($Command)
    RunWait(@ComSpec & ' /C ' & $Command, '', @SW_HIDE)
EndFunc   ;==>_Run_Wait

Func _FileListToArray($sFilePath, $sFilter = '*', $iFlag = 0, $bReturnPath = False)
    Local $sDelimiter = '|', $sFileList = '', $sFileName = '', $sFullPath = ''
    $sFilePath = StringRegExpReplace($sFilePath, '[\\/]+$', '') & '\'
    If $iFlag = Default Then $iFlag = 0
    If $bReturnPath Then $sFullPath = $sFilePath
    If $sFilter = Default Then $sFilter = '*'
    If Not FileExists($sFilePath) Then Return SetError(1, 0, 0)
    If StringRegExp($sFilter, '[\\/:><\|]|(?s)^\s*$') Then Return SetError(2, 0, 0)
    If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(3, 0, 0)

    Local $hSearch = FileFindFirstFile($sFilePath & $sFilter)
    If @error Then Return SetError(4, 0, 0)
    While 1
        $sFileName = FileFindNextFile($hSearch)
        If @error Then ExitLoop
        If ($iFlag + @extended = 2) Then ContinueLoop
        $sFileList &= $sDelimiter & $sFullPath & $sFileName
    WEnd
    FileClose($hSearch)

    If $sFileList = '' Then Return SetError(4, 0, 0)
    Return StringSplit(StringTrimLeft($sFileList, 1), $sDelimiter)
EndFunc   ;==>_FileListToArray

B3: Mở file winpe.wim của các bạn bằng 7-Zip, kéo thả 2 file ở B1, B2 vào folder \Windows\System32\ (Bấm Yes để lưu thay đổi)

B4: Vẫn ở phần 7-Zip chuột phải vào file Windows\System32\PECMD.ini chọn Edit để chỉnh sửa. Thêm 1 dòng như hình dưới đây sau đó lưu lại.

Mã:

EXEC %WinDir%\System32\AutoIt3.exe %WinDir%\System32\PeApps.au3

Xem phần đính kèm 22285

B5: Thử nghiệm xem nó có hoạt động hay không

Cảm ơn cháu đã chia sẻ, từ từ bác sẽ test code của cháu trên một bản XPE khác nhé.

Hoang Duch2 · 24/4/21

Le Duc 287 nói:

Bác @Hoang Duch2 code file WinR.ini cháu cho thêm mount và UnMount file AppsP.wim

Mã:

_SUB MApps
      IFEX R:\ppApps,!path R:\ppApps
      Forx !\Apps\Apps.wim,app,1,team exec =!imagex.exe /mount %app% 2 R:\ppApps|exec =pecmd load R:\ppApps\apps.wcs|exec R:\ppApps\Pstart.exe
_END


_SUB MAppsP
      IFEX R:\ppAppsP,!path R:\ppAppsP
      Forx !\Apps\AppsP.wim,app,1,team exec =!imagex.exe /mount %app% 2 R:\ppAppsP|exec =pecmd load R:\ppAppsP\Appsp.wcs|exec R:\ppAppsP\PSTARTP.exe
_END


_SUB MDriver
      Kill dpinst.exe
      IFEX R:\Drivers,team exec =!imagex.exe /unmount R:\Drivers|path #R:\Drivers
      IFEX R:\Drivers,!path R:\Drivers
      forx !\Apps\Drv10x64.wim,Driv,1,team exec =!imagex /mount %Driv% 1 R:\Drivers
      IFEX R:\Drivers\N,team call TBDM|load %systemroot%\system32\DrivR.ini!call TBD
_END


_SUB WIM
          IFEX R:\ppApps\Apps.wcs,call PS!Call MApps
_END

_SUB WIMP
          IFEX R:\ppAppsP\AppsP.wcs,call PS!Call MAppsP
_END

_SUB DRV
          IFEX R:\Drivers\N\W,Call TBDM!call MDriver
_END

_SUB UApps
      KILL Pstart.exe
      exec [email protected] /unmount R:\ppApps
    path #R:\ppApps
_END

_SUB UAppsP
      KILL PSTARTP.exe
      exec [email protected] /unmount R:\ppAppsP
    path #R:\ppAppsP
_END


_SUB UDriver
  exec [email protected] /unmount R:\Drivers
  path #R:\Drivers
_END


_SUB UALL
      IFEX R:\ppApps\Apps.wcs,call UApps
      IFEX R:\ppApps\Apps.wcs,call UApps64
      IFEX R:\ppAppsP\AppsP.wcs,call UApps
      IFEX R:\ppAppsP\AppsP.wcs,call UApps64
       IFEX R:\Drivers\N,call UDriver
_END

_SUB Windows1,W405H95,Apps Manager,,MountApps.ico
    GROU Group1,L5T8W200H50,MOUNT:
    ITEM Button1,L10T25W40H24,Apps,team CALL WIM|call TBA
    ITEM Button2,L60T25W40H24,AppsP,team CALL WIMP|call TBAP
    ITEM Button3,L110T25W40H24,Driver,CALL  MDriver
    ITEM Button4,L160T25W40H24,MyTool,CALL Mytool
    //ITEM Button60,L180T25W45H24,MyDriver,CALL MMDriver
    GROU Group2,L215T8W190H50,UNMOUNT:
    ITEM Button5,L220T25W35H24,Apps,team CALL UApps|call TB
    ITEM Button6,L265T25W35H24,AppsP,team CALL UAppsP|call TB
    ITEM Button7,L310T25W40H24,Driver,team CALL UDriver|call TB
    ITEM Button8,L355T25W35H24,ALL,team CALL UALL|call TB
_END

_SUB Not
    MESS Khong du RAM de su dung cong cu nay!!! \n Ban co muon su dung "WimTools" de thay the?  @Canh Bao #YN *10000 $Y
    FIND $%YESNO%=YES,load %systemroot%\system32\WimY.ini!ENVI NOMEM=Yes
_END


_SUB TBA
        IFEX R:\ppApps\Apps.wcs,!TIPS Chưa Mount thành công Apps, Copy Apps.wim  vào folder APPS...,3000,4,X:\Windows\DLD\ICO\programs.ico
    wait 1000
_END

_SUB TBAP
        IFEX R:\ppAppsP\AppsP.wcs,!TIPS Chưa Mount thành công Apps, Copy Apps.wim  vào folder APPS...,3000,4,X:\Windows\DLD\ICO\programs.ico
    wait 1000
_END

_SUB TBD
        IFEX R:\Drivers\N,!TIPS Chưa Mount thành công Driver, Copy Drv10x64.wim vào folder APPS...,3000,4,X:\Windows\DLD\ICO\DriverFolder.ico
    wait 1000
_END


_SUB TB
    TIPS Unmount thành công, Bạn có thể mount lại...,3000,4,X:\Windows\DLD\ICO\programs.ico
_END

_SUB TBDM
    TIPS Driver đã được mount..., Bạn đã có thể cài đặt Driver...,5000,4,X:\Windows\DLD\ICO\programs.ico
_END

_SUB PS
    TIPS Sử dụng nút Pstart ở taskbar, Hoặc nhấp chuột phải trên Desktop để chọn ứng dụng ...,3000,4,X:\Windows\DLD\ICO\programs.ico
_END

CAll @windows1

Cảm ơn cháu, vậy là bác tạo thêm file WinR.ini rồi chép vào System32 đúng không cháu? Hôm qua với lệnh mount thêm vào từ pecmd.ini của @trungminh, nó mount lên được nhưng có một số soft bác không chạy được với AppsP.wim này, chẳng hạn như là : DrWeb, Teamviewer ( đã login vào Admin ), soft maker... Sáng nay bác lấy thử Apps cũ, không có phần AppsP thế vào thì mở được DrWeb nhưng Teamviewer vẫn chưa được làm bác cũng hơi nản.

Hoang Duch2 · 24/4/21

@Le Duc 287 , bác save lộn tên là WimR.ini thay vì WinR.ini, boot vào không thấy hiện AppsP lên cháu à.

À không phải cháu ơi, nó có đúng đây, như vậy thì mình phải bỏ bớt một file sao cháu?

Le Duc 287 · 25/4/21

Bác @Hoang Duch2 bác tạo file WimR.INI cho vào system32 xong thêm shortcut ra màn hình

thêm dòng này vào pecmd.ini

Mã:

LINK %Desktop%\Mount Tool,%WinDir%\System32\PECMD.exe,Wimr.INI,%WinDir%\System32\MountApps.ico

Bác nhơ chọn ramdisk là ổ R như của AnhDv ở dòng này

Mã:

EXEC @!%WinDir%\System32\StartImDIsk.exe 69 % R: DLD-ADPE "NTFS Compressed" "R:\Temp

Update bác sửa file của trung minh gửi bằng nội dung file của cháu là ok nhé giờ cháu mới nhìn ảnh bác gửi

Le Duc 287 · 25/4/21

Bác @Hoang Duch2 bác sửa lại dòng này để unmount all được nhé

Mã:

_SUB UALL
      IFEX R:\ppApps\Apps.wcs,call UApps
      IFEX R:\ppApps\Apps.wcs,call UApps64
      IFEX R:\ppAppsP\AppsP.wcs,call UAppsP
      IFEX R:\ppAppsP\AppsP.wcs,call UApps64P
       IFEX R:\Drivers\N,call UDriver
_END

Hoặc file đầy đủ đây bác

Mã:

_SUB MApps
      IFEX R:\ppApps,!path R:\ppApps
      Forx !\Apps\Apps.wim,app,1,team exec =!imagex.exe /mount %app% 2 R:\ppApps|exec =pecmd load R:\ppApps\apps.wcs|exec R:\ppApps\Pstart.exe
_END


_SUB MAppsP
      IFEX R:\ppAppsP,!path R:\ppAppsP
      Forx !\Apps\AppsP.wim,app,1,team exec =!imagex.exe /mount %app% 2 R:\ppAppsP|exec =pecmd load R:\ppAppsP\Appsp.wcs|exec R:\ppAppsP\PSTARTP.exe
_END


_SUB MDriver
      Kill dpinst.exe
      IFEX R:\Drivers,team exec =!imagex.exe /unmount R:\Drivers|path #R:\Drivers
      IFEX R:\Drivers,!path R:\Drivers
      forx !\Apps\Drv10x64.wim,Driv,1,team exec =!imagex /mount %Driv% 1 R:\Drivers
      IFEX R:\Drivers\N,team call TBDM|load %systemroot%\system32\DrivR.ini!call TBD
_END


_SUB WIM
          IFEX R:\ppApps\Apps.wcs,call PS!Call MApps
_END

_SUB WIMP
          IFEX R:\ppAppsP\AppsP.wcs,call PS!Call MAppsP
_END

_SUB DRV
          IFEX R:\Drivers\N\W,Call TBDM!call MDriver
_END

_SUB UApps
      KILL Pstart.exe
      exec [email protected] /unmount R:\ppApps
    path #R:\ppApps
_END

_SUB UAppsP
      KILL PSTARTP.exe
      exec [email protected] /unmount R:\ppAppsP
    path #R:\ppAppsP
_END


_SUB UDriver
  exec [email protected] /unmount R:\Drivers
  path #R:\Drivers
_END
   

_SUB UALL
      IFEX R:\ppApps\Apps.wcs,call UApps
      IFEX R:\ppApps\Apps.wcs,call UApps64
      IFEX R:\ppAppsP\AppsP.wcs,call UAppsP
      IFEX R:\ppAppsP\AppsP.wcs,call UApps64P
       IFEX R:\Drivers\N,call UDriver
_END

_SUB Windows1,W405H95,Apps Manager,,MountApps.ico
    GROU Group1,L5T8W200H50,MOUNT:
    ITEM Button1,L10T25W40H24,Apps,team CALL WIM|call TBA
    ITEM Button2,L60T25W40H24,AppsP,team CALL WIMP|call TBAP  
    ITEM Button3,L110T25W40H24,Driver,CALL  MDriver
    ITEM Button4,L160T25W40H24,MyTool,CALL Mytool
    //ITEM Button60,L180T25W45H24,MyDriver,CALL MMDriver
    GROU Group2,L215T8W190H50,UNMOUNT:  
    ITEM Button5,L220T25W35H24,Apps,team CALL UApps|call TB
    ITEM Button6,L265T25W35H24,AppsP,team CALL UAppsP|call TB  
    ITEM Button7,L310T25W40H24,Driver,team CALL UDriver|call TB
    ITEM Button8,L355T25W35H24,ALL,team CALL UALL|call TB
_END

_SUB Not
    MESS Khong du RAM de su dung cong cu nay!!! \n Ban co muon su dung "WimTools" de thay the?  @Canh Bao #YN *10000 $Y
    FIND $%YESNO%=YES,load %systemroot%\system32\WimY.ini!ENVI NOMEM=Yes
_END


_SUB TBA
        IFEX R:\ppApps\Apps.wcs,!TIPS Chưa Mount thành công Apps, Copy Apps.wim  vào folder APPS...,3000,4,X:\Windows\DLD\ICO\programs.ico
    wait 1000
_END

_SUB TBAP
        IFEX R:\ppAppsP\AppsP.wcs,!TIPS Chưa Mount thành công Apps, Copy Apps.wim  vào folder APPS...,3000,4,X:\Windows\DLD\ICO\programs.ico
    wait 1000
_END

_SUB TBD
        IFEX R:\Drivers\N,!TIPS Chưa Mount thành công Driver, Copy Drv10x64.wim vào folder APPS...,3000,4,X:\Windows\DLD\ICO\DriverFolder.ico
    wait 1000
_END


_SUB TB
    TIPS Unmount thành công, Bạn có thể mount lại...,3000,4,X:\Windows\DLD\ICO\programs.ico
_END

_SUB TBDM
    TIPS Driver đã được mount..., Bạn đã có thể cài đặt Driver...,5000,4,X:\Windows\DLD\ICO\programs.ico
_END

_SUB PS
    TIPS Sử dụng nút Pstart ở taskbar, Hoặc nhấp chuột phải trên Desktop để chọn ứng dụng ...,3000,4,X:\Windows\DLD\ICO\programs.ico
_END

CAll @windows1

Hoang Duch2 · 25/4/21

Le Duc 287 nói:
Bác @Hoang Duch2 bác tạo file WimR.INI cho vào system32 xong thêm shortcut ra màn hình

thêm dòng này vào pecmd.ini

Mã:

LINK %Desktop%\Mount Tool,%WinDir%\System32\PECMD.exe,Wimr.INI,%WinDir%\System32\MountApps.ico

Bác nhơ chọn ramdisk là ổ R như của AnhDv ở dòng này

Mã:

EXEC @!%WinDir%\System32\StartImDIsk.exe 69 % R: DLD-ADPE "NTFS Compressed" "R:\Temp

Update bác sửa file của trung minh gửi bằng nội dung file của cháu là ok nhé giờ cháu mới nhìn ảnh bác gửi

Bác muốn hỏi cháu có 2 files từ System32 : 1 là WimR.ini ; 2 là WinR.ini mà file số 2 là bác chép của cháu. Vậy bác có phải xoá bớt 1 file không? Lúc bác mở ra thấy nội dung đều giống nhau đó.

Le Duc 287 · 25/4/21

Hoang Duch2 nói:
Bác muốn hỏi cháu có 2 files từ System32 : 1 là WimR.ini ; 2 là WinR.ini mà file số 2 là bác chép của cháu. Vậy bác có phải xoá bớt 1 file không? Lúc bác mở ra thấy nội dung đều giống nhau đó.

Bác sửa nội dung file wimr cũ của bạn Trung Minh bằng code cháu vừa sửa lại là ok nó là file wimr.ini cháu viết nhầm vì cháu đổi tên lung tung lên ko nhớ file trung minh gửi là gì chỉ nhớ mang máng. Bác copy lại code mới nhé cháu có sửa lại một chút vì cháu quên để đường dẫn theo foder của cháu

Hoang Duch2 · 25/4/21

@Le Duc 287 , kết quả tốt rồi cháu nhưng cái AppsP.wim này bác không mở được DrWeb, bên cháu có mở được không?

Mở TV từ appsp.wim cũng không được:

Nếu bác vào lại Programs cũ của XPE thì mở được TV:

DrWeb thì vẫn mở được từ Apps của hoanchien:

Coi như phần AppsP.wim của anhdv chỉ chạy tốt trên bản PE của cháu ấy với cách build khác, bác cũng đã thử với Apps bản cũ hơn rồi, cái đó chỉ chạy được DrWeb thôi, TV thì bị lỗi. Thôi thì bây giờ mình dùng hỗn tạp, cái nào chạy đươc thì dùng, khỏi sửa tới sửa lui làm cực bác cháu mình quá.

Hoang Duch2 · 25/4/21

lvt491 nói:

Thêm 1 cách để mount Apps + Driver:

B1: Tải về file dưới đây và giải nén được file AutoIt3.exe

AutoIt3

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

B2: Mở notepad sao chép đoạn code dưới đây và lưu lại với tên là PeApps.au3 (Để Encoding là UTF8)
==> Sau này cần thêm bớt chỉnh sửa gì sẽ sửa ở file này cũng khá là tiện

Mã:

#NoTrayIcon

_Main()

;Chỉnh sửa các kiểu ở hàm Main() dưới đây:
Func _Main()
    Local $pstart = _PSTART_Shortcut()
    ;nếu đường dẫn khác Apps\PSTART.exe thì sửa thành: vd _PSTART_Shortcut('Program\PSTART64.exe')
    If $pstart = Null Then
        If _Mount_ISO() = True Then
            $pstart = _PSTART_Shortcut()
            _Load_WCSFile($pstart)
        EndIf

        ;nếu file tên khác Apps.iso thì sửa thành: vd: _Mount_ISO('Other.iso')
        ;nếu file tên khác Apps.wim và có nhiều index thì sửa thành: vd: _Mount_WIM('Apps64.wim', 2)
        ;mặc định sẽ mount file wim vào B:\Apps. Nếu thay đổi sửa thành: vd: _Mount_WIM('Apps64.wim', 2, 'R:\Apps64')
    Else
        ;load file Apps.wcs để có menu chuột phải
        _Load_WCSFile($pstart)
        ;nếu tên khác Apps.wcs thì sửa thành: vd: _Load_WCSFile($pstart, 'AppsP.wcs')
    EndIf

    ;If _Mount_WIM('Drv10x64.wim', 1, 'B:\Drivers') = True Then
    ;    _DPInst_Drivers('B:\Drivers')
    ;    _UnMount_WIM('B:\Drivers')
    ;EndIf

    ;_DPInst_Drivers(_Get_Path('DriverPacks'))
    ;_MyShortcut()
    Exit
EndFunc   ;==>_Main





;Functions +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Func _MyShortcut()
    ;LVT491 Function
    _Run_Wait('PECMD.exe LINK %Desktop%\Clear Temp,%WinDir%\System32\PECMD.exe,TEMP DELETE,%WinDir%\System32\shell32.dll#153')
    _Run_Wait('PECMD.exe LINK %Desktop%\Admin Login,%WinDir%\System32\PECMD.exe,LOAD %WinDir%\System32\PecmdAdminLoad.ini,%WinDir%\System32\shell32.dll#44')
    _Run_Wait('PECMD.exe LINK %Desktop%\PENetwork,%ProgramFiles%\PENetwork_x64\PENetwork.exe')
    _Run_Wait('PECMD.exe LINK %Desktop%\Explorer++,%ProgramFiles%\WinXShell\Explorer++.exe')
    FileDelete('X:\Users\Administrator\Desktop\Admin Login.LNK')
    Local $SDIPath = _Get_Path('DriverPacks\SDI_auto.au3')
    If $SDIPath <> Null Then _Run_Wait('PECMD.exe LINK %Desktop%\Inst Driver,%WinDir%\System32\AutoIt3.exe,' & $SDIPath & ',%WinDir%\System32\shell32.dll#162')
    _Run_Wait('PECMD.exe ENVI #TEMP=B:\Temp')
    _Run_Wait('PECMD.exe ENVI @@DeskTopFresh=1')
EndFunc   ;==>_MyShortcut

Func _Mount_ISO($FileName = 'Apps.iso')
    Local $FilePath = _Get_File($FileName)
    If $FilePath <> Null Then
        _Run_Wait('imdisk.exe -a -f ' & $FilePath & ' -m #:')
        Return True
    Else
        Return False
    EndIf
EndFunc   ;==>_Mount_ISO

Func _Mount_WIM($FileName = 'Apps.wim', $Index = 1, $MountDir = 'B:\Apps')
    Local $FilePath = _Get_File($FileName)
    If $FilePath <> Null Then
        DirCreate($MountDir)
        If Not FileExists($MountDir) Then Return False
        _Run_Wait('DISM.exe /Mount-Image /ImageFile:' & $FilePath & ' /Index:' & $Index & ' /MountDir:' & $MountDir)
        ;code imagex:
        ;_Run_Wait('imagex.exe /mountrw ' & $FilePath & ' ' & $Index & ' ' & $MountDir)
        Return True
    Else
        Return False
    EndIf
EndFunc   ;==>_Mount_WIM

Func _UnMount_WIM($MountDir = 'B:\Apps')
    _Run_Wait('DISM.exe /Unmount-Image /MountDir:' & $MountDir & ' /Discard')
    ;_Run_Wait('imagex.exe /unmount ' & $MountDir)
    FileDelete($MountDir)
EndFunc   ;==>_UnMount_WIM

Func _DPInst_Drivers($FolderDir)
    If FileExists($FolderDir) Then
        _Run_Wait('dpinst.exe /s /path ' & $FolderDir)
    EndIf
EndFunc   ;==>_DPInst_Drivers

Func _PSTART_Shortcut($FileName = 'Apps\PSTART.exe', $ShortcutName = 'PSTART')
    Local $FilePath = _Get_Path($FileName)
    If $FilePath <> Null Then
        _Run_Wait('PECMD.exe LINK %Desktop%\' & $ShortcutName & ',' & $FilePath)
        Return $FilePath
    Else
        Return Null
    EndIf
EndFunc   ;==>_PSTART_Shortcut

Func _Load_WCSFile($FileDir, $FileName = 'Apps.wcs')
    Local $FolderDir = StringRegExpReplace($FileDir, '\\[^\\]*$', '')
    If @error Then Return
    Local $FilePath = $FolderDir & '\' & $FileName
    If FileExists($FilePath) Then _Run_Wait('PECMD.exe LOAD ' & $FilePath)
EndFunc   ;==>_Load_WCSFile

Func _Get_Path($Path)
    Local $Drv = DriveGetDrive('ALL')
    For $i = 1 To $Drv[0]
        If FileExists($Drv[$i] & '\' & $Path) Then Return StringUpper($Drv[$i]) & '\' & $Path
    Next
    Return Null
EndFunc   ;==>_Get_Path

Func _Get_File($FileName)
    Local $Drv = DriveGetDrive('ALL'), $Fdl
    For $i = 1 To $Drv[0]
        If FileExists($Drv[$i] & '\' & $FileName) Then Return StringUpper($Drv[$i]) & '\' & $FileName
    Next

    For $i = 1 To $Drv[0]
        $Fdl = _FileListToArray(StringUpper($Drv[$i]), '*', 2, True)
        If Not @error Then
            For $j = 1 To $Fdl[0]
                If FileExists($Fdl[$j] & '\' & $FileName) Then Return $Fdl[$j] & '\' & $FileName
            Next
        EndIf
    Next
    Return Null
EndFunc   ;==>_Get_File

Func _Run_Wait($Command)
    RunWait(@ComSpec & ' /C ' & $Command, '', @SW_HIDE)
EndFunc   ;==>_Run_Wait

Func _FileListToArray($sFilePath, $sFilter = '*', $iFlag = 0, $bReturnPath = False)
    Local $sDelimiter = '|', $sFileList = '', $sFileName = '', $sFullPath = ''
    $sFilePath = StringRegExpReplace($sFilePath, '[\\/]+$', '') & '\'
    If $iFlag = Default Then $iFlag = 0
    If $bReturnPath Then $sFullPath = $sFilePath
    If $sFilter = Default Then $sFilter = '*'
    If Not FileExists($sFilePath) Then Return SetError(1, 0, 0)
    If StringRegExp($sFilter, '[\\/:><\|]|(?s)^\s*$') Then Return SetError(2, 0, 0)
    If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(3, 0, 0)

    Local $hSearch = FileFindFirstFile($sFilePath & $sFilter)
    If @error Then Return SetError(4, 0, 0)
    While 1
        $sFileName = FileFindNextFile($hSearch)
        If @error Then ExitLoop
        If ($iFlag + @extended = 2) Then ContinueLoop
        $sFileList &= $sDelimiter & $sFullPath & $sFileName
    WEnd
    FileClose($hSearch)

    If $sFileList = '' Then Return SetError(4, 0, 0)
    Return StringSplit(StringTrimLeft($sFileList, 1), $sDelimiter)
EndFunc   ;==>_FileListToArray

B3: Mở file winpe.wim của các bạn bằng 7-Zip, kéo thả 2 file ở B1, B2 vào folder \Windows\System32\ (Bấm Yes để lưu thay đổi)

B4: Vẫn ở phần 7-Zip chuột phải vào file Windows\System32\PECMD.ini chọn Edit để chỉnh sửa. Thêm 1 dòng như hình dưới đây sau đó lưu lại.

Mã:

EXEC %WinDir%\System32\AutoIt3.exe %WinDir%\System32\PeApps.au3

Xem phần đính kèm 22285

B5: Thử nghiệm xem nó có hoạt động hay không

Bác đã làm đủ các bước, chắc bác làm gì sai nên không thấy hiện gì mới hết cháu à:

Hình này cho thấy nó còn dùng Programs cũ :

Sau khi rename Programs, boot vào lại thì như thế này:

Nhờ cháu xem lại giúp bác nhé. Cảm ơn cháu rất nhiều.

Le Duc 287 · 25/4/21

Hoang Duch2 nói:
@Le Duc 287 , kết quả tốt rồi cháu nhưng cái AppsP.wim này bác không mở được DrWeb, bên cháu có mở được không?

Mở TV từ appsp.wim cũng không được:

Nếu bác vào lại Programs cũ của XPE thì mở được TV:

DrWeb thì vẫn mở được từ Apps của hoanchien:

Coi như phần AppsP.wim của anhdv chỉ chạy tốt trên bản PE của cháu ấy với cách build khác, bác cũng đã thử với Apps bản cũ hơn rồi, cái đó chỉ chạy được DrWeb thôi, TV thì bị lỗi. Thôi thì bây giờ mình dùng hỗn tạp, cái nào chạy đươc thì dùng, khỏi sửa tới sửa lui làm cực bác cháu mình quá.

Bản pro mới có tv và drweb bác chọn file apps cũ của anhdv cho vào xong đổi tên thành appsp là có

Hoang Duch2 · 25/4/21

Le Duc 287 nói:
Bản pro mới có tv và drweb bác chọn file apps cũ của anhdv cho vào xong đổi tên thành appsp là có

Cháu nói Apps cũ của bản nào vậy cháu? Có phải bản 2.0.5 là bản free cuối cùng?

Le Duc 287 · 25/4/21

Hoang Duch2 nói:
Cháu nói Apps cũ của bản nào vậy cháu? Có phải bản 2.0.5 là bản free cuối cùng?

Bác test bản 2.0.5 xem

Hoang Duch2 · 25/4/21

Le Duc 287 nói:
Bác test bản 2.0.5 xem

Apps này bác có test rồi cháu, hiện chỉ mở được DrWeb còn TV thì không? Chép vào không đổi Apps.wim thành AppsP.wim được cháu, nếu đổi thì không tự mount lên được.

lvt491 · 25/4/21

Nội dung file .au3 cháu để mặc định là mount file Apps.iso. Nếu mount file wim bác thử sửa lại như các gợi ý trong đó xem sao ạ.

Bác chụp giúp cháu đường dẫn của file pstart.exe, app.wsc trong các gói apps của các pro với ạ. Để cháu sửa lại file au3

Le Duc 287 · 25/4/21

Hoang Duch2 nói:
Apps này bác có test rồi cháu, hiện chỉ mở được DrWeb còn TV thì không? Chép vào không đổi Apps.wim thành AppsP.wim được cháu, nếu đổi thì không tự mount lên được.

Đúng rồi cháu quên mất cấu trúc file appsp khác so với apps vì anhdv cho thêm p vào file vd appsp.wcs và pstartp.exe bác đổi lại codeo những dòng này xoá p đi là ok

Hoang Duch2 · 25/4/21

lvt491 nói:
Nội dung file .au3 cháu để mặc định là mount file Apps.iso. Nếu mount file wim bác thử sửa lại như các gợi ý trong đó xem sao ạ.

Cảm ơn cháu nhé, kết quả tốt đây cháu ơi, đây là apps cũ, một lát nữa bác sẽ chép lại apps mới có appsP vào xem có load được hay không nhé:

Hoang Duch2 · 25/4/21

lvt491 nói:
Nội dung file .au3 cháu để mặc định là mount file Apps.iso. Nếu mount file wim bác thử sửa lại như các gợi ý trong đó xem sao ạ.

Bác chụp giúp cháu đường dẫn của file pstart.exe, app.wsc trong các gói apps của các pro với ạ. Để cháu sửa lại file au3

Đây là từ apps cũ 2.0.5 của anhdv, phải hình này không cháu?

Ở bản mới có apps.wim và appsP.wim như sau:

Hoang Duch2 · 25/4/21

Còn Apps của hoanchien là ISO cháu ơi:

Le Duc 287 · 25/4/21

Bác @Hoang Duch2 codeo mount apps.wim 2020 đổi file tên thành apps20.wim

Mã:

_SUB MApps
      IFEX R:\ppApps,!path R:\ppApps
      Forx !\Apps\Apps.wim,app,1,team exec =!imagex.exe /mount %app% 2 R:\ppApps|exec =pecmd load R:\ppApps\apps.wcs|exec R:\ppApps\Pstart.exe
_END


_SUB MAppsP
      IFEX R:\ppAppsP,!path R:\ppAppsP
      Forx !\Apps\Apps20.wim,app,1,team exec =!imagex.exe /mount %app% 2 R:\ppAppsP|exec =pecmd load R:\ppAppsP\Apps.wcs|exec R:\ppAppsP\PSTART.exe
_END


_SUB MDriver
      Kill dpinst.exe
      IFEX R:\Drivers,team exec =!imagex.exe /unmount R:\Drivers|path #R:\Drivers
      IFEX R:\Drivers,!path R:\Drivers
      forx !\Apps\Drv10x64.wim,Driv,1,team exec =!imagex /mount %Driv% 1 R:\Drivers
      IFEX R:\Drivers\N,team call TBDM|load %systemroot%\system32\DrivR.ini!call TBD
_END


_SUB WIM
          IFEX R:\ppApps\Apps.wcs,call PS!Call MApps
_END

_SUB WIMP
          IFEX R:\ppAppsP\Apps.wcs,call PS!Call MAppsP
_END

_SUB DRV
          IFEX R:\Drivers\N\W,Call TBDM!call MDriver
_END

_SUB UApps
      KILL Pstart.exe
      exec [email protected] /unmount R:\ppApps
    path #R:\ppApps
_END

_SUB UAppsP
      KILL PSTARTP.exe
      exec [email protected] /unmount R:\ppAppsP
    path #R:\ppAppsP
_END


_SUB UDriver
  exec [email protected] /unmount R:\Drivers
  path #R:\Drivers
_END


_SUB UALL
      IFEX R:\ppApps\Apps.wcs,call UApps
      IFEX R:\ppApps\Apps.wcs,call UApps64
      IFEX R:\ppAppsP\Apps.wcs,call UAppsP
      IFEX R:\ppAppsP\Apps.wcs,call UApps64P
       IFEX R:\Drivers\N,call UDriver
_END

_SUB Windows1,W415H95,Apps Manager,,MountApps.ico
    GROU Group1,L5T8W200H50,MOUNT:
    ITEM Button1,L10T25W40H24,Apps,team CALL WIM|call TBA
    ITEM Button2,L60T25W50H24,Apps20,team CALL WIMP|call TBAP
    ITEM Button3,L120T25W40H24,Driver,CALL  MDriver
    ITEM Button4,L170T25W40H24,MyTool,CALL Mytool
    //ITEM Button60,L180T25W45H24,MyDriver,CALL MMDriver
    GROU Group2,L235T8W190H50,UNMOUNT:
    ITEM Button5,L230T25W35H24,Apps,team CALL UApps|call TB
    ITEM Button6,L275T25W35H24,AppsP,team CALL UAppsP|call TB
    ITEM Button7,L320T25W40H24,Driver,team CALL UDriver|call TB
    ITEM Button8,L365T25W35H24,ALL,team CALL UALL|call TB
_END

_SUB Not
    MESS Khong du RAM de su dung cong cu nay!!! \n Ban co muon su dung "WimTools" de thay the?  @Canh Bao #YN *10000 $Y
    FIND $%YESNO%=YES,load %systemroot%\system32\WimY.ini!ENVI NOMEM=Yes
_END


_SUB TBA
        IFEX R:\ppApps\Apps.wcs,!TIPS Chưa Mount thành công Apps, Copy Apps.wim  vào folder APPS...,3000,4,X:\Windows\DLD\ICO\programs.ico
    wait 1000
_END

_SUB TBAP
        IFEX R:\ppAppsP\Apps.wcs,!TIPS Chưa Mount thành công Apps, Copy Apps.wim  vào folder APPS...,3000,4,X:\Windows\DLD\ICO\programs.ico
    wait 1000
_END

_SUB TBD
        IFEX R:\Drivers\N,!TIPS Chưa Mount thành công Driver, Copy Drv10x64.wim vào folder APPS...,3000,4,X:\Windows\DLD\ICO\DriverFolder.ico
    wait 1000
_END


_SUB TB
    TIPS Unmount thành công, Bạn có thể mount lại...,3000,4,X:\Windows\DLD\ICO\programs.ico
_END

_SUB TBDM
    TIPS Driver đã được mount..., Bạn đã có thể cài đặt Driver...,5000,4,X:\Windows\DLD\ICO\programs.ico
_END

_SUB PS
    TIPS Sử dụng nút Pstart ở taskbar, Hoặc nhấp chuột phải trên Desktop để chọn ứng dụng ...,3000,4,X:\Windows\DLD\ICO\programs.ico
_END

CAll @windows1

Adblocker detected! Please consider reading this notice.

Thảo luận Các bước căn bản để tạo Win10PE từ tools WinBuilder-WIN10XPE, mời các Pro vào góp ý thêm.

Rìu Vàng

Rồng Đỏ

Rồng Đỏ

Rồng Đỏ

Rìu Vàng

Rìu Vàng

Rồng Đỏ

Rìu Vàng

Rồng Đỏ

Rồng Đỏ

Rìu Vàng

Rồng Đỏ

Rìu Vàng

Rồng Đỏ

Rìu Vàng Đôi

Rìu Vàng

Rồng Đỏ

Rồng Đỏ

Rồng Đỏ

Rìu Vàng