Adblocker detected! Please consider reading this notice.

Le Duc 287 · 19/8/20

lvt491 nói:
Làm như vậy sẽ tốn RAM lắm, 1 cái App đã hơn 800Mb rồi, 2 cái tầm 1.7Gb, máy bạn chắc nhiều RAM hử ^^. Máy mình 4Gb bọ. Tối rảnh mình mò code gửi bạn sau nhá

kết quả thế nào rồi bạn. mình vẫn thích dùng lệnh cmd của win hơn. mình làm đc mont cả file apps.wim cả appsx64 và cả driver.wim trước khi hỏi bạn nhưng phải tạo 3 file .cmd. làm mọi cách ko dồn vào 1 file được. thấy bạn bảo file .au3 dễ code nhưng mình thử code lại nhg vẫn ko dồn vào 1 fle đc. nếu làm 2 hoặc 3 au3 thì được mình thử rồi nhưng cuối cùng mình dùng cmd vẫn thích chính chủ hơn

lvt491 · 19/8/20

Le Duc 287 nói:
kết quả thế nào rồi bạn. mình vẫn thích dùng lệnh cmd của win hơn. mình làm đc mont cả file apps.wim cả appsx64 và cả driver.wim trước khi hỏi bạn nhưng phải tạo 3 file .cmd. làm mọi cách ko dồn vào 1 file được. thấy bạn bảo file .au3 dễ code nhưng mình thử code lại nhg vẫn ko dồn vào 1 fle đc. nếu làm 2 hoặc 3 au3 thì được mình thử rồi nhưng cuối cùng mình dùng cmd vẫn thích chính chủ hơn

Tối qua có việc nên chưa chỉnh code được bạn ah, mấy ngày tới không có máy tính mà dùng nữa ấy. Khi nào xong mình inbox bạn tham khảo nhé.

hoanchien · 19/8/20

Hoang Duch2 nói:
Bác hiểu rồi cháu, bởi vì bên bác nó hiện ra sao thì bác phải báo lại cho đúng, nếu không thì làm mất lòng tin của các cháu đúng không? Đối với bác, tất cả đã ổn rồi, vì các cháu khác nhờ cháu làm thêm code thì bác cũng test xem nó ra sao thôi cháu.

Dạ không phải như bác nghĩ đâu ạ, a e bọn cháu sẽ hướng dẫn bác làm đến khi thành công thì thôi ạ, cũng là nơi để a e chưa biết xem qua bài viết và coment là có thể làm đc, thời điểm cháu tiến hành làm và build win không có ai để hỏi cả, mò mẫm làm có khi mất cả mấy ngày không đc chút nào cả, giờ có topnic này tốt quá bác ạ, các bạn ai biết thì chia sẻ thêm để ae cùng nghiên cứu xây dựng thêm cho hoàn thiện.

trungminh · 19/8/20

lvt491 nói:
Tối qua có việc nên chưa chỉnh code được bạn ah, mấy ngày tới không có máy tính mà dùng nữa ấy. Khi nào xong mình inbox bạn tham khảo nhé.

Bạn share cho mình với nhé thank bạn

hoanchien · 19/8/20

Le Duc 287 nói:
kết quả thế nào rồi bạn. mình vẫn thích dùng lệnh cmd của win hơn. mình làm đc mont cả file apps.wim cả appsx64 và cả driver.wim trước khi hỏi bạn nhưng phải tạo 3 file .cmd. làm mọi cách ko dồn vào 1 file được. thấy bạn bảo file .au3 dễ code nhưng mình thử code lại nhg vẫn ko dồn vào 1 fle đc. nếu làm 2 hoặc 3 au3 thì được mình thử rồi nhưng cuối cùng mình dùng cmd vẫn thích chính chủ hơn

Cái này hay và tiện lợi bạn ạ

lvt491 · 19/8/20

trungminh nói:
Bạn share cho mình với nhé thank bạn

Đây nhé bạn:
Dùng gói Apps.wim của Anhdv

Mã:

#NoTrayIcon
Global $ppapps = False, $sdidrv = False
_main()
Func _main()
     SplashTextOn("", "Processing Shortcuts. Please wait ...", 300, 50, -1, -1, BitOR(1, 32))
    If Not FileExists(@DesktopDir & "\Clear Temp.LNK") Then _exec("Pecmd.exe LINK !%Desktop%\Clear Temp,%WinDir%\System32\PECMD.exe,TEMP DELETE,%WinDir%\System32\shell32.dll#153")
    If Not FileExists(@DesktopDir & "\Admin Login.LNK") Then _exec("Pecmd.exe LINK !%Desktop%\Admin Login,%WinDir%\System32\PECMD.exe,LOAD %WinDir%\PecmdAdminLoad.ini,%WinDir%\System32\shell32.dll#44")
    If Not FileExists(@DesktopDir & "\Shutdown.LNK") Then _exec("Pecmd.exe LINK !%Desktop%\Shutdown,%ProgramFiles%\WinXShell\WinXShell.exe,-ui -jcfg wxsUI\UI_Shutdown.zip\full.jcfg,%ProgramFiles%\WinXShell\wxsUI\Power.ico")
    If Not FileExists(@DesktopDir & "\Load Shortcut.LNK") Then _exec("Pecmd.exe LINK !%Desktop%\Load Shortcut,%WinDir%\AutoIt3.exe,%WinDir%\Peapps.au3,%WinDir%\System32\shell32.dll#238")
    If FileExists("X:\Users\Administrator\Desktop\Admin Login.LNK") Then _exec("Pecmd.exe FILE X:\Users\Administrator\Desktop\Admin Login.LNK")
    _reloadsc()
    If Not $ppapps Or Not $sdidrv Then
_mapiso("Apps.iso")
_reloadsc()
EndIf
    If Not $ppapps Then
_mapwim("Apps.wim")
_reloadsc()
EndIf
    If Not $sdidrv Then
_mapiso("Driver.iso")
_reloadsc()
EndIf
_loadapps64()
    SplashOff()
    If Not $ppapps And Not $sdidrv Then MsgBox(48, "WARNING", "Necessary files were not found or not mounted !", 9)
    Exit
EndFunc

Func _loadapps64()
Local $wim64 = _checkapps("Apps64\pstart.exe", "PSTARTx64")
If Not $wim64 Then
_mapwim("Apps.wim", 2, "B:\Apps64")
_checkapps("Apps64\pstart.exe", "PSTARTx64")
EndIf
EndFunc

Func _reloadsc()
    If Not $ppapps Then
        $ppapps = _checkapps("Apps\pstart.exe", "PSTART", 0)
    EndIf
    If Not $sdidrv Then
        $sdidrv = _checkdrvs("DriverPacks\SDI_auto.cmd", "Inst Driver")
    EndIf
EndFunc

Func _checkapps($file, $link, $wcs = 1)
    For $i = 65 To 90
        If FileExists(Chr($i) & ":\" & $file) Then
            Local $path = Chr($i) & ":\" & $file
            _exec("Pecmd.exe LINK !%Desktop%\" & $link & "," & $path)
            If $wcs = 1 Then _loadwcs($path)
            If FileExists(@DesktopDir & "\" & $link & ".LNK") Then ShellExecute(@DesktopDir & "\" & $link & ".LNK")
            Return True
        EndIf
    Next
    Return False
EndFunc

Func _checkdrvs($file, $link)
    For $i = 65 To 90
        If FileExists(Chr($i) & ":\" & $file) Then
            Local $path = Chr($i) & ":\" & $file
            _exec("Pecmd.exe LINK !%Desktop%\" & $link & "," & $path & ",,%WinDir%\System32\shell32.dll#162")
            Return True
        EndIf
    Next
    Return False
EndFunc

Func _loadwcs($fpath)
    Local $fdir = StringRegExpReplace($fpath, "\\[^\\]*$", "")
    If @error Then Return
    Local $fwcs = $fdir & "\apps.wcs"
    If FileExists($fwcs) Then _exec("Pecmd.exe LOAD " & $fwcs)
EndFunc

Func _mapiso($file)
    Local $iso = ""
    For $i = 65 To 90
        If FileExists(Chr($i) & ":\" & $file) Then
            $iso = Chr($i) & ":\" & $file
            ExitLoop
        ElseIf FileExists(Chr($i) & ":\apps\" & $file) Then
            $iso = Chr($i) & ":\apps\" & $file
            ExitLoop
        ElseIf FileExists(Chr($i) & ":\iso\" & $file) Then
            $iso = Chr($i) & ":\iso\" & $file
            ExitLoop
        EndIf
    Next
    If $iso <> "" Then
        _exec("imdisk.exe -a -f " & $iso & " -m #:")
    EndIf
EndFunc

Func _mapwim($file, $indx = 1, $path = "B:\Apps")
    Local $wim = ""
    For $i = 65 To 90
        If FileExists(Chr($i) & ":\" & $file) Then
            $wim = Chr($i) & ":\" & $file
            ExitLoop
        ElseIf FileExists(Chr($i) & ":\apps\" & $file) Then
            $wim = Chr($i) & ":\apps\" & $file
            ExitLoop
        ElseIf FileExists(Chr($i) & ":\wim\" & $file) Then
            $wim = Chr($i) & ":\wim\" & $file
            ExitLoop
        EndIf
    Next
    If $wim <> "" Then
        If Not FileExists($path) Then _exec("MD " & $path)
        If FileExists($path) Then
            _exec("DISM.exe /Mount-Wim /WimFile:" & $wim & " /index:" & $indx & " /MountDir:" & $path)
        EndIf
    EndIf
EndFunc

Func _exec($scommand)
    RunWait(@ComSpec & ' /C ' & $scommand, '', @SW_HIDE)
EndFunc
;Edit by LVT491 (2020-08-19)

trungminh · 19/8/20

lvt491 nói:

Đây nhé bạn, code này sửa trên điện thoại nên chưa test:
Dùng gói Apps.wim của Anhdv

Mã:

#NoTrayIcon
Global $ppapps = False, $sdidrv = False
_main()
Func _main()
     SplashTextOn("", "Processing Shortcuts. Please wait ...", 300, 50, -1, -1, BitOR(1, 32))
    If Not FileExists(@DesktopDir & "\Clear Temp.LNK") Then _exec("Pecmd.exe LINK !%Desktop%\Clear Temp,%WinDir%\System32\PECMD.exe,TEMP DELETE,%WinDir%\System32\shell32.dll#153")
    If Not FileExists(@DesktopDir & "\Admin Login.LNK") Then _exec("Pecmd.exe LINK !%Desktop%\Admin Login,%WinDir%\System32\PECMD.exe,LOAD %WinDir%\PecmdAdminLoad.ini,%WinDir%\System32\shell32.dll#44")
    If Not FileExists(@DesktopDir & "\Shutdown.LNK") Then _exec("Pecmd.exe LINK !%Desktop%\Shutdown,%ProgramFiles%\WinXShell\WinXShell.exe,-ui -jcfg wxsUI\UI_Shutdown.zip\full.jcfg,%ProgramFiles%\WinXShell\wxsUI\Power.ico")
    If Not FileExists(@DesktopDir & "\Load Shortcut.LNK") Then _exec("Pecmd.exe LINK !%Desktop%\Load Shortcut,%WinDir%\AutoIt3.exe,%WinDir%\Peapps.au3,%WinDir%\System32\shell32.dll#238")
    If FileExists("X:\Users\Administrator\Desktop\Admin Login.LNK") Then _exec("Pecmd.exe FILE X:\Users\Administrator\Desktop\Admin Login.LNK")
    _reloadsc()
    If Not $ppapps Or Not $sdidrv Then
_mapiso("Apps.iso")
_reloadsc()
EndIf
    If Not $ppapps Then
_mapwim("Apps.wim")
_reloadsc()
EndIf
    If Not $sdidrv Then
_mapiso("Driver.iso")
_reloadsc()
EndIf
_loadapps64()
    SplashOff()
    If Not $ppapps And Not $sdidrv Then MsgBox(48, "WARNING", "Necessary files were not found or not mounted !", 9)
    Exit
EndFunc

Func _loadapps64()
Local $wim64 = _checkapps("Apps64\pstart.exe", "PSTARTx64")
If Not $wim64 Then
_mapwim("Apps.wim", 2, "B:\Apps64")
checkapps("Apps64\pstart.exe", "PSTARTx64")
EndIf
EndFunc

Func _reloadsc()
    If Not $ppapps Then
        $ppapps = _checkapps("Apps\pstart.exe", "PSTART", 0)
    EndIf
    If Not $sdidrv Then
        $sdidrv = _checkdrvs("DriverPacks\SDI_auto.cmd", "Inst Driver")
    EndIf
EndFunc

Func _checkapps($file, $link, $wcs = 1)
    For $i = 65 To 90
        If FileExists(Chr($i) & ":\" & $file) Then
            Local $path = Chr($i) & ":\" & $file
            _exec("Pecmd.exe LINK !%Desktop%\" & $link & "," & $path)
            If $wcs = 1 Then _loadwcs($path)
            If FileExists(@DesktopDir & "\" & $link & ".LNK") Then ShellExecute(@DesktopDir & "\" & $link & ".LNK")
            Return True
        EndIf
    Next
    Return False
EndFunc

Func _checkdrvs($file, $link)
    For $i = 65 To 90
        If FileExists(Chr($i) & ":\" & $file) Then
            Local $path = Chr($i) & ":\" & $file
            _exec("Pecmd.exe LINK !%Desktop%\" & $link & "," & $path & ",,%WinDir%\System32\shell32.dll#162")
            Return True
        EndIf
    Next
    Return False
EndFunc

Func _loadwcs($fpath)
    Local $fdir = StringRegExpReplace($fpath, "\\[^\\]*$", "")
    If @error Then Return
    Local $fwcs = $fdir & "\apps.wcs"
    If FileExists($fwcs) Then _exec("Pecmd.exe LOAD " & $fwcs)
EndFunc

Func _mapiso($file)
    Local $iso = ""
    For $i = 65 To 90
        If FileExists(Chr($i) & ":\" & $file) Then
            $iso = Chr($i) & ":\" & $file
            ExitLoop
        ElseIf FileExists(Chr($i) & ":\apps\" & $file) Then
            $iso = Chr($i) & ":\apps\" & $file
            ExitLoop
        ElseIf FileExists(Chr($i) & ":\iso\" & $file) Then
            $iso = Chr($i) & ":\iso\" & $file
            ExitLoop
        EndIf
    Next
    If $iso <> "" Then
        _exec("imdisk.exe -a -f " & $iso & " -m #:")
    EndIf
EndFunc

Func _mapwim($file, $indx = 1, $path = "B:\Apps")
    Local $wim = ""
    For $i = 65 To 90
        If FileExists(Chr($i) & ":\" & $file) Then
            $wim = Chr($i) & ":\" & $file
            ExitLoop
        ElseIf FileExists(Chr($i) & ":\apps\" & $file) Then
            $wim = Chr($i) & ":\apps\" & $file
            ExitLoop
        ElseIf FileExists(Chr($i) & ":\wim\" & $file) Then
            $wim = Chr($i) & ":\wim\" & $file
            ExitLoop
        EndIf
    Next
    If $wim <> "" Then
        If Not FileExists($path) Then _exec("MD " & $path)
        If FileExists($path) Then
            _exec("DISM.exe /Mount-Wim /WimFile:" & $wim & " /index:" & $indx & " /MountDir:" & $path)
        EndIf
    EndIf
EndFunc

Func _exec($scommand)
    RunWait(@ComSpec & ' /C ' & $scommand, '', @SW_HIDE)
EndFunc
;Edit by LVT491 (2020-08-19)

Thank bạn nhiều mình sẽ test và báo kết quả sau

Le Duc 287 · 19/8/20

lvt491 nói:
Tối qua có việc nên chưa chỉnh code được bạn ah, mấy ngày tới không có máy tính mà dùng nữa ấy. Khi nào xong mình inbox bạn tham khảo nhé.

Bạn cứ giải quyết việc riêng khi nào xong inbox mk cũng được

trungminh nói:
Thank bạn nhiều mình sẽ test và báo kết quả sau

BẠN TEST THẾ NÀO
MK TEST Ổ B CÓ 2 FODER APPS VÀ APPS64 NHƯNG TRONG 2 FODER MOUNT CHUNG MỘT FILE APPPS.WIM

trungminh · 19/8/20

Le Duc 287 nói:
Bạn cứ giải quyết việc riêng khi nào xong inbox mk cũng được

BẠN TEST THẾ NÀO
MK TEST Ổ B CÓ 2 FODER APPS VÀ APPS64 NHƯNG TRONG 2 FODER MOUNT CHUNG MỘT FILE APPPS.WIM

Bạn sửa lại chỗ này:
Func _loadapps64()
Local $wim64 = _checkapps("Apps64\pstart.exe", "PSTARTx64")
If Not $wim64 Then
_mapwim("Apps.wim", 2, "B:\Apps64")
checkapps("Apps64\pstart.exe", "PSTARTx64")
EndIf
EndFunc

Thành như thế này là được nhé (mình đã sửa và chạy tốt)
Func _loadapps64()
Local $wim64 = _checkapps("Apps64\pstart.exe", "PSTARTx64")
If Not $wim64 Then
_mapwim("Apps64.wim", 2, "B:\Apps64")
$wim64 = _checkapps("Apps64\pstart.exe", "PSTARTx64")
EndIf
EndFunc

Của mình có 2 apps là Apps.wim và Apps64.wim
Nếu của bạn có 1 file Apps.wim mà muốn mount 1 ra Apps và 2 ra Apps64 thì chỉ sửa lại
Func _loadapps64()
Local $wim64 = _checkapps("Apps64\pstart.exe", "PSTARTx64")
If Not $wim64 Then
_mapwim("Apps.wim", 2, "B:\Apps64")
$wim64 = _checkapps("Apps64\pstart.exe", "PSTARTx64")
EndIf
EndFunc

Le Duc 287 · 19/8/20

trungminh nói:
Bạn sửa lại chỗ này:
Func _loadapps64()
Local $wim64 = _checkapps("Apps64\pstart.exe", "PSTARTx64")
If Not $wim64 Then
_mapwim("Apps.wim", 2, "B:\Apps64")
checkapps("Apps64\pstart.exe", "PSTARTx64")
EndIf
EndFunc

Thành như thế này là được nhé (mình đã sửa và chạy tốt)
Func _loadapps64()
Local $wim64 = _checkapps("Apps64\pstart.exe", "PSTARTx64")
If Not $wim64 Then
_mapwim("Apps64.wim", 2, "B:\Apps64")
$wim64 = _checkapps("Apps64\pstart.exe", "PSTARTx64")
EndIf
EndFunc

Của mình có 2 apps là Apps.wim và Apps64.wim
Nếu của bạn có 1 file Apps.wim mà muốn mount 1 ra Apps và 2 ra Apps64 thì chỉ sửa lại
Func _loadapps64()
Local $wim64 = _checkapps("Apps64\pstart.exe", "PSTARTx64")
If Not $wim64 Then
_mapwim("Apps.wim", 2, "B:\Apps64")
$wim64 = _checkapps("Apps64\pstart.exe", "PSTARTx64")
EndIf
EndFunc

Ok thanhk bạn tối mình test giờ đang làm

Hoang Duch2 · 19/8/20

Cảm ơn 3 cháu @lvt491, @trungminh và @Le Duc 287, bác đã test lại với code dành cho phần Apps.wim của @anhdv với 2 folders 1 và 2 trong đó thành công.

Đây là hình trên máy chủ desktop Legacy:

Login với Admin:

File peapps.au3 mới nhất của @lvt491 cmt #666 và thêm vào phần đóng khung của @trungminh, bác hà tiện không xoá code Func trên nó, chỉ để thêm dấu ##

lvt491 · 20/8/20

Hoang Duch2 nói:
File peapps.au3 mới nhất của @lvt491 cmt #666 và thêm vào phần đóng khung của @trungminh, bác hà tiện không xoá code Func trên nó, chỉ để thêm dấu ##

Cháu cám ơn bác nhiều. Code ở dòng 66 đáng lẽ phải là _checkapps cháu lại thiếu mất dấu _. Cảm ơn bạn @trungminh đã test và fix code nữa nhé

Le Duc 287 · 20/8/20

Thank @lvt491 @trungminh[/USE ] bác [USER=15707]@Hoang Duch2 @hoanchien @anhdv cuối cùng mình cũng làm được bản winpe sử dụng apps.wim của @anhdv và dùng luôn file apps.iso của @hoanchien mount trực tiếp dùng cả apps và drivers luôn

hoanchien · 20/8/20

Le Duc 287 nói:
Thank @lvt491 @trungminh[/USE ] bác [USER=15707]@Hoang Duch2 @hoanchien @anhdv cuối cùng mình cũng làm được bản winpe sử dụng apps.wim của @anhdv và dùng luôn file apps.iso của @hoanchien mount trực tiếp dùng cả apps và drivers luôn

Bạn chia sẻ code và cách làm đầy đủ để ae chưa làm đc biết làm theo nhé, thank bạn

trungminh · 20/8/20

Le Duc 287 nói:
Thank @lvt491 @trungminh[/USE ] bác [USER=15707]@Hoang Duch2 @hoanchien @anhdv cuối cùng mình cũng làm được bản winpe sử dụng apps.wim của @anhdv và dùng luôn file apps.iso của @hoanchien mount trực tiếp dùng cả apps và drivers luôn

Bạn làm cho tất vào ổ Ram như thế thì chỉ có những máy ram nhiều mới chạy được những máy cùi là chịu chết. Máy mình 4g ram mà để ram 70% thì mới chạy được apps còn driver phải mount CD. CÒn bản winpe32 mỗi mount apps 1 số đã không chạy được rồi

hoanchien · 20/8/20

trungminh nói:
Bạn làm cho tất vào ổ Ram như thế thì chỉ có những máy ram nhiều mới chạy được những máy cùi là chịu chết. Máy mình 4g ram mà để ram 70% thì mới chạy được apps còn driver phải mount CD. CÒn bản winpe32 mỗi mount apps 1 số đã không chạy được rồi

Vì vậy mà mình chọn mount ra iso luôn cả Apps và Driver cho tiện không phải mount vào ổ B:\ ram làm gì cho tốn tài nguyên.

Le Duc 287 · 20/8/20

trungminh nói:
Bạn làm cho tất vào ổ Ram như thế thì chỉ có những máy ram nhiều mới chạy được những máy cùi là chịu chết. Máy mình 4g ram mà để ram 70% thì mới chạy được apps còn driver phải mount CD. CÒn bản winpe32 mỗi mount apps 1 số đã không chạy được rồi

Apps.iso mình mount vào ổ ảo chứ ko pải ổ b. Mình dùng nguyên file iso của @hoanchien Ko chỉnh sửa gì cả. Mình chỉ mount thêm một file apps64 mình làm những phần mềm thiết yếu thôi vào ổ b thôi. Máy bên mình và máy bạn bè ng thân toàn 8G trở lên lên ko lo thiếu ram

Le Duc 287 · 20/8/20

hoanchien nói:
Bạn chia sẻ code và cách làm đầy đủ để ae chưa làm đc biết làm theo nhé, thank bạn

code giống của @lvt491 và sửa lại toàn bộ như sau mình mount thêm một file appsx64 trong foder DucLD mình đặt tên theo từng file AppsDucLD là mount file Appsx64 mình làm. ADMC là mount file iso của bạn. AnhDV là mount file Apps của AnhDV. để 3 file AutoIt3.exe và MountAD.au3 và PecmdAdminLoad.ini trong foder AD của foder windows

Mã:

#NoTrayIcon
Global $AppsDucLD = False, $ADMC = False
_main()
Func _main()
     SplashTextOn("", "Processing Shortcuts. Please wait ...", 300, 50, -1, -1, BitOR(1, 32))
    If Not FileExists(@DesktopDir & "\Clear Temp.LNK") Then _exec("Pecmd.exe LINK !%Desktop%\Clear Temp,%WinDir%\System32\PECMD.exe,TEMP DELETE,%WinDir%\System32\shell32.dll#153")
    If Not FileExists(@DesktopDir & "\Admin Login.LNK") Then _exec("Pecmd.exe LINK !%Desktop%\Admin Login,%WinDir%\System32\PECMD.exe,LOAD %WinDir%\AD\PecmdAdminLoad.ini,%WinDir%\System32\shell32.dll#44")
    If Not FileExists(@DesktopDir & "\Shutdown.LNK") Then _exec("Pecmd.exe LINK !%Desktop%\Shutdown,%ProgramFiles%\WinXShell\WinXShell.exe,-ui -jcfg wxsUI\UI_Shutdown.zip\full.jcfg,%ProgramFiles%\WinXShell\wxsUI\Power.ico")
    If Not FileExists(@DesktopDir & "\Load Shortcut.LNK") Then _exec("Pecmd.exe LINK !%Desktop%\Load Shortcut,%WinDir%\AD\AutoIt3.exe,%WinDir%\AD\MountAD.au3,%WinDir%\System32\shell32.dll#238")
    If FileExists("X:\Users\Administrator\Desktop\Admin Login.LNK") Then _exec("Pecmd.exe FILE X:\Users\Administrator\Desktop\Admin Login.LNK")
    _reloadAppsDriver()
    If Not $AppsDucLD Or Not $ADMC Then
    If Not $AppsDucLD Then
_mapwim("Appsx64.wim")
_reloadAppsDriver()
EndIf
_mapiso("Driver.iso")
_reloadAppsDriver()
EndIf
    If Not $ADMC Then
_mapiso("Apps.iso")
_reloadAppsDriver()
EndIf
_loadAppsAnhDV()
    SplashOff()
    If Not $AppsDucLD And Not $ADMC Then MsgBox(48, "WARNING", "Necessary files were not found or not mounted !", 9)
    Exit
EndFunc

Func _loadAppsAnhDV()
Local $wimAnhDV = _checkApps("AppsAnhDV\pstart.exe", "Apps AnhDV")
If Not $wimAnhDV Then
_mapwim("Apps.wim", 2, "B:\AppsAnhDV")
_checkApps("AppsAnhDV\pstart.exe", "Apps AnhDV")
EndIf
EndFunc

Func _reloadAppsDriver()
    If Not $AppsDucLD Then
        $AppsDucLD = _checkApps("DucLD\pstart64.exe", "Apps DucLD", 0)
    EndIf
    If Not $ADMC Then
        $ADMC = _checkDrvs("Driver\x64\DR.BAT", "Inst Driver MC")
        $ADMC = _checkApps("Programs\PStart64.exe", "Apps MC", 0)
      EndIf
EndFunc

Func _checkApps($file, $link, $wcs = 1)
    For $i = 65 To 90
        If FileExists(Chr($i) & ":\" & $file) Then
            Local $path = Chr($i) & ":\" & $file
            _exec("Pecmd.exe LINK !%Desktop%\" & $link & "," & $path)
            If $wcs = 1 Then _loadwcs($path)
            If FileExists(@DesktopDir & "\" & $link & ".LNK") Then ShellExecute(@DesktopDir & "\" & $link & ".LNK")
            Return True
        EndIf
    Next
    Return False
EndFunc

Func _checkDrvs($file, $link)
    For $i = 65 To 90
        If FileExists(Chr($i) & ":\" & $file) Then
            Local $path = Chr($i) & ":\" & $file
            _exec("Pecmd.exe LINK !%Desktop%\" & $link & "," & $path & ",,%WinDir%\System32\shell32.dll#162")
            Return True
        EndIf
    Next
    Return False
EndFunc

Func _loadwcs($fpath)
    Local $fdir = StringRegExpReplace($fpath, "\\[^\\]*$", "")
    If @error Then Return
    Local $fwcs = $fdir & "\apps.wcs"
    If FileExists($fwcs) Then _exec("Pecmd.exe LOAD " & $fwcs)
EndFunc

Func _mapiso($file)
    Local $iso = ""
    For $i = 65 To 90
        If FileExists(Chr($i) & ":\" & $file) Then
            $iso = Chr($i) & ":\" & $file
            ExitLoop
        ElseIf FileExists(Chr($i) & ":\apps\" & $file) Then
            $iso = Chr($i) & ":\apps\" & $file
            ExitLoop
        ElseIf FileExists(Chr($i) & ":\iso\" & $file) Then
            $iso = Chr($i) & ":\iso\" & $file
            ExitLoop
        EndIf
    Next
    If $iso <> "" Then
        _exec("imdisk.exe -a -f " & $iso & " -m #:")
    EndIf
EndFunc

Func _mapwim($file, $indx = 1, $path = "B:\DucLD")
    Local $wim = ""
    For $i = 65 To 90
        If FileExists(Chr($i) & ":\" & $file) Then
            $wim = Chr($i) & ":\" & $file
            ExitLoop
        ElseIf FileExists(Chr($i) & ":\DucLD\" & $file) Then
            $wim = Chr($i) & ":\DucLD\" & $file
            ExitLoop
        ElseIf FileExists(Chr($i) & ":\apps\" & $file) Then
            $wim = Chr($i) & ":\apps\" & $file
            ExitLoop
        ElseIf FileExists(Chr($i) & ":\wim\" & $file) Then
            $wim = Chr($i) & ":\wim\" & $file
            ExitLoop
        EndIf
    Next
    If $wim <> "" Then
        If Not FileExists($path) Then _exec("MD " & $path)
        If FileExists($path) Then
            _exec("DISM.exe /Mount-Wim /WimFile:" & $wim & " /index:" & $indx & " /MountDir:" & $path)
        EndIf
    EndIf
EndFunc

Func _exec($scommand)
    RunWait(@ComSpec & ' /C ' & $scommand, '', @SW_HIDE)
EndFunc

hoanchien · 20/8/20

Le Duc 287 nói:

code giống của @lvt491 và sửa lại toàn bộ như sau mình mount thêm một file appsx64 trong foder DucLD mình đặt tên theo từng file AppsDucLD là mount file Appsx64 mình làm. ADMC là mount file iso của bạn. AnhDV là mount file Apps của AnhDV. để 3 file AutoIt3.exe và MountAD.au3 và PecmdAdminLoad.ini trong foder AD của foder windows

Mã:

#NoTrayIcon
Global $AppsDucLD = False, $ADMC = False
_main()
Func _main()
     SplashTextOn("", "Processing Shortcuts. Please wait ...", 300, 50, -1, -1, BitOR(1, 32))
    If Not FileExists(@DesktopDir & "\Clear Temp.LNK") Then _exec("Pecmd.exe LINK !%Desktop%\Clear Temp,%WinDir%\System32\PECMD.exe,TEMP DELETE,%WinDir%\System32\shell32.dll#153")
    If Not FileExists(@DesktopDir & "\Admin Login.LNK") Then _exec("Pecmd.exe LINK !%Desktop%\Admin Login,%WinDir%\System32\PECMD.exe,LOAD %WinDir%\AD\PecmdAdminLoad.ini,%WinDir%\System32\shell32.dll#44")
    If Not FileExists(@DesktopDir & "\Shutdown.LNK") Then _exec("Pecmd.exe LINK !%Desktop%\Shutdown,%ProgramFiles%\WinXShell\WinXShell.exe,-ui -jcfg wxsUI\UI_Shutdown.zip\full.jcfg,%ProgramFiles%\WinXShell\wxsUI\Power.ico")
    If Not FileExists(@DesktopDir & "\Load Shortcut.LNK") Then _exec("Pecmd.exe LINK !%Desktop%\Load Shortcut,%WinDir%\AD\AutoIt3.exe,%WinDir%\AD\MountAD.au3,%WinDir%\System32\shell32.dll#238")
    If FileExists("X:\Users\Administrator\Desktop\Admin Login.LNK") Then _exec("Pecmd.exe FILE X:\Users\Administrator\Desktop\Admin Login.LNK")
    _reloadAppsDriver()
    If Not $AppsDucLD Or Not $ADMC Then
    If Not $AppsDucLD Then
_mapwim("Appsx64.wim")
_reloadAppsDriver()
EndIf
_mapiso("Driver.iso")
_reloadAppsDriver()
EndIf
    If Not $ADMC Then
_mapiso("Apps.iso")
_reloadAppsDriver()
EndIf
_loadAppsAnhDV()
    SplashOff()
    If Not $AppsDucLD And Not $ADMC Then MsgBox(48, "WARNING", "Necessary files were not found or not mounted !", 9)
    Exit
EndFunc

Func _loadAppsAnhDV()
Local $wimAnhDV = _checkApps("AppsAnhDV\pstart.exe", "Apps AnhDV")
If Not $wimAnhDV Then
_mapwim("Apps.wim", 2, "B:\AppsAnhDV")
_checkApps("AppsAnhDV\pstart.exe", "Apps AnhDV")
EndIf
EndFunc

Func _reloadAppsDriver()
    If Not $AppsDucLD Then
        $AppsDucLD = _checkApps("DucLD\pstart64.exe", "Apps DucLD", 0)
    EndIf
    If Not $ADMC Then
        $ADMC = _checkDrvs("Driver\x64\DR.BAT", "Inst Driver MC")
        $ADMC = _checkApps("Programs\PStart64.exe", "Apps MC", 0)
      EndIf
EndFunc

Func _checkApps($file, $link, $wcs = 1)
    For $i = 65 To 90
        If FileExists(Chr($i) & ":\" & $file) Then
            Local $path = Chr($i) & ":\" & $file
            _exec("Pecmd.exe LINK !%Desktop%\" & $link & "," & $path)
            If $wcs = 1 Then _loadwcs($path)
            If FileExists(@DesktopDir & "\" & $link & ".LNK") Then ShellExecute(@DesktopDir & "\" & $link & ".LNK")
            Return True
        EndIf
    Next
    Return False
EndFunc

Func _checkDrvs($file, $link)
    For $i = 65 To 90
        If FileExists(Chr($i) & ":\" & $file) Then
            Local $path = Chr($i) & ":\" & $file
            _exec("Pecmd.exe LINK !%Desktop%\" & $link & "," & $path & ",,%WinDir%\System32\shell32.dll#162")
            Return True
        EndIf
    Next
    Return False
EndFunc

Func _loadwcs($fpath)
    Local $fdir = StringRegExpReplace($fpath, "\\[^\\]*$", "")
    If @error Then Return
    Local $fwcs = $fdir & "\apps.wcs"
    If FileExists($fwcs) Then _exec("Pecmd.exe LOAD " & $fwcs)
EndFunc

Func _mapiso($file)
    Local $iso = ""
    For $i = 65 To 90
        If FileExists(Chr($i) & ":\" & $file) Then
            $iso = Chr($i) & ":\" & $file
            ExitLoop
        ElseIf FileExists(Chr($i) & ":\apps\" & $file) Then
            $iso = Chr($i) & ":\apps\" & $file
            ExitLoop
        ElseIf FileExists(Chr($i) & ":\iso\" & $file) Then
            $iso = Chr($i) & ":\iso\" & $file
            ExitLoop
        EndIf
    Next
    If $iso <> "" Then
        _exec("imdisk.exe -a -f " & $iso & " -m #:")
    EndIf
EndFunc

Func _mapwim($file, $indx = 1, $path = "B:\DucLD")
    Local $wim = ""
    For $i = 65 To 90
        If FileExists(Chr($i) & ":\" & $file) Then
            $wim = Chr($i) & ":\" & $file
            ExitLoop
        ElseIf FileExists(Chr($i) & ":\DucLD\" & $file) Then
            $wim = Chr($i) & ":\DucLD\" & $file
            ExitLoop
        ElseIf FileExists(Chr($i) & ":\apps\" & $file) Then
            $wim = Chr($i) & ":\apps\" & $file
            ExitLoop
        ElseIf FileExists(Chr($i) & ":\wim\" & $file) Then
            $wim = Chr($i) & ":\wim\" & $file
            ExitLoop
        EndIf
    Next
    If $wim <> "" Then
        If Not FileExists($path) Then _exec("MD " & $path)
        If FileExists($path) Then
            _exec("DISM.exe /Mount-Wim /WimFile:" & $wim & " /index:" & $indx & " /MountDir:" & $path)
        EndIf
    EndIf
EndFunc

Func _exec($scommand)
    RunWait(@ComSpec & ' /C ' & $scommand, '', @SW_HIDE)
EndFunc

Cảm ơn bạn đã chia sẻ, chúc bạn nhiều niềm vui trong cuộc sống

Le Duc 287 · 20/8/20

trungminh nói:
Bạn làm cho tất vào ổ Ram như thế thì chỉ có những máy ram nhiều mới chạy được những máy cùi là chịu chết. Máy mình 4g ram mà để ram 70% thì mới chạy được apps còn driver phải mount CD. CÒn bản winpe32 mỗi mount apps 1 số đã không chạy được rồi

bạn chọn build ram cho ổ x ít thôi ở phần build vì mình có add apps vào luôn file boot.wim đâu. ram disk lên 70% là ok rồi

Adblocker detected! Please consider reading this notice.

Thảo luận Tìm hiểu thêm một số USB Boot khác, mời bạn đóng góp ý kiến

Rìu Vàng

Rìu Vàng Đôi

Junior Moderator

Rìu Vàng Đôi

Junior Moderator

Rìu Vàng Đôi

Rìu Vàng Đôi

Rìu Vàng

Rìu Vàng Đôi

Rìu Vàng

Rồng Đỏ

Rìu Vàng Đôi

Rìu Vàng

Junior Moderator

Rìu Vàng Đôi

Junior Moderator

Rìu Vàng

Rìu Vàng

Junior Moderator

Rìu Vàng