论坛 › 『 作品展览 』 › 桌面|PE通用，在线重装系统

wllx 发表于 2023-9-3 16:14:03

桌面|PE通用，在线重装系统

本帖最后由 wllx 于 2023-9-17 16:23 编辑



https://www.123pan.com/s/WIR7Vv-q3Qbv.html提取码:8899

怪咖很怪i 发表于 2023-9-3 18:18:37

温馨提示：这东西就当做楼主自己上传备份用了。
大家要使用的话，请谨慎！请谨慎！请谨慎！

wllx 发表于 2023-9-3 21:37:07

怪咖很怪i 发表于 2023-9-3 18:18
温馨提示：这东西就当做楼主自己上传备份用了。
大家要使用的话，请谨慎！请谨慎！请谨慎！

什么原因呢？

msold5 发表于 2023-9-4 09:55:27

这个有没有AU3源码学习下啊？

wllx 发表于 2023-9-4 11:47:33

本帖最后由 wllx 于 2023-9-4 11:50 编辑

msold5 发表于 2023-9-4 09:55
这个有没有AU3源码学习下啊？

msold5 发表于 2023-9-4 11:52:41

wllx 发表于 2023-9-4 11:47


谢谢！ 下载学习中

梦倾天下 发表于 2023-9-7 13:58:10

能无人值守重装系统吗？

wllx 发表于 2023-9-8 07:55:13

梦倾天下 发表于 2023-9-7 13:58
能无人值守重装系统吗？

已经内置 了的

xz00311 发表于 2023-9-11 23:18:17

库文件有2个没找到

wllx 发表于 2023-9-12 07:13:50

本帖最后由 wllx 于 2023-9-12 07:37 编辑

xz00311 发表于 2023-9-11 23:18
库文件有2个没找到
发出源码，是为了让你看看并创新，这只是一个例子，什么都发出来，那还发源码做啥？直接成品不好吗 ？有三个调用文件可以自己处理，一个是解析奶牛分享地址后写入配置文件好下载文件，另外一个是系统下 器。特别提示：现解析方法已被封，所需文件下载不了了，我没有直连地址。
boot.sdibootmgfw.efi 这些文件 都 要发给你？这个到处都 找得到。镜像查询.exe你自己不可以写一个？
代码 如下：皮肤文件 网上自己找


_WinAPI_Wow64EnableWow64FsRedirection(False)
Local $winos = IniRead("D:\mht\setup.ini", "OS", "Win", "")
_skins1()
Global $Dism = 'dism.exe',$font='微软雅黑'
$mht = GUICreate("镜像信息查看器（ESD|WIM）", 450, 328)
GUICtrlCreateLabel("镜   像:", 10, 10, 60, 30, BitOR(0x1, 0x0300))
GUICtrlSetFont(-1, 9, 400, 0, $font)
$LJPU = GUICtrlCreateInput($winos , 75, 12, 290, 26)
GUICtrlSetFont(-1, 9, 400, 0, $font)
$Button1 = GUICtrlCreateButton("...", 370, 12, 70, 26)
GUICtrlSetFont(-1, 9, 400, 0, $font)
GUICtrlCreateLabel("", 0, 46, 450, 1, $SS_BLACKRECT)
GUICtrlCreateLabel("镜像信息:", 10, 50, 60, 30, BitOR(0x1, 0x0300))
GUICtrlSetFont(-1, 8.5, 400, 0, $font)
$imageinfo = GUICtrlCreateList("", 10, 75, 430, 223)
GUICtrlSetFont(-1, 10, 400, 0, $font)
GUICtrlCreateLabel("数字就代表卷号并对应版本，请仔细选择你要安装的版本。", 10, 300, 430, 20, BitOR(0x1, 0x0300))
GUICtrlSetFont(-1, 10, 400, 0, $font)
GUISetState(@SW_SHOW)
MountImage()
While 1
      $nMsg = GUIGetMsg()
      Switch $nMsg
                Case -3
                        Exit
      Case $Button1
                        $file = FileOpenDialog("",@ScriptDir & "\wim\os","文件(*.esd;*.wim)", 1, "", $mht)
                        If $file Then GUICtrlSetData($LJPU, $file)
                        Sleep(500)
                        MountImage()
      EndSwitch
WEnd

Func MountImage()
      Local $sFilePath = @TempDir & '\ImageInfo.txt'
;~         FileDelete($sFilePath)
      GUICtrlSetData($imageinfo, "")
      RunWait(@ComSpec & ' /C ' & '@echo off &' & $Dism & ' /Get-ImageInfo /imagefile:"' & GUICtrlRead($LJPU)& '" >' & $sFilePath, @WindowsDir & '\system32', @SW_HIDE)
      $wimtxt = FileRead($sFilePath)
      Local $INDEX = StringRegExp($wimtxt, '索引: (\V+)', 3)
      Local $name = StringRegExp($wimtxt, '名称: (\V+)', 3)
      For $i = 0 To UBound($name) - 1
                GUICtrlSetData($imageinfo, $INDEX[$i] & "、" & $name[$i], $INDEX & "." & $name)
      Next
;~         FileDelete($sFilePath)
EndFunc   ;==>MountImage
Func _skins1()
      FileInstall("D:\au3\Skin\china.she", @TempDir & "\china.she", 1)
      FileInstall("D:\au3\Skin\Skin.dll", @TempDir & "\", 1)
      $skins = @TempDir & "\china.she"
      $Dll = DllOpen(@TempDir & "\Skin.dll")
      DllCall($Dll, "int", "SkinH_AttachEx", "str", $skins, "str", "mhgd")
      DllCall($Dll, "int", "SkinH_SetAero", "int", 1)
      FileDelete(@TempDir & "\china.she")
EndFunc   ;==>_skins1


源码发出，只是让你看看是否可以借用一些代码，不是叫你全盘照抄然后作为自己的思想

ycy 发表于 2023-9-17 10:47:43

楼主哪是新手啊，正则学不会啊，再地址不见了

wllx 发表于 2023-9-17 16:22:19

ycy 发表于 2023-9-17 10:47
楼主哪是新手啊，正则学不会啊，再地址不见了

https://www.123pan.com/s/WIR7Vv-q3Qbv.html提取码:8899

ycy 发表于 2023-9-18 21:45:23

wllx 发表于 2023-9-17 16:22
https://www.123pan.com/s/WIR7Vv-q3Qbv.html提取码:8899

谢谢分享！托盘图标好像需要隐藏下

xztpc 发表于 2023-12-8 18:11:42

挺好的 ！明天试试

xztpc 发表于 2023-12-8 20:23:58

打开IP显示的和我实际的ip不一样呢！

查看完整版本: 桌面|PE通用，在线重装系统