• 欢迎访问奇跡の海网站,本站不上传任何资源,所有资源均来自于网络,欢迎加入奇跡の海~!奇跡の海-WordPress QQ群
  • 本站下载资源为网络上收集整理而来,并且以计算机技术研究交流为目的,版权归原作者所有,仅供大家参考,学习,不存在任何商业目的与商业用途.
  • 本站系统镜像均来自于官方原版,ed2k可视为P2P下载链接。所有操作系统默认均为试用版,如有正版密钥可以有效激活,本站不提供任何激活和相关服务。

AutoIt3(au3)源码-PE系统下一键四区

AutoIT3 奇跡の海 6个月前 (01-10) 215次浏览 已收录 0个评论 扫描二维码

源码简介

AutoIt3(au3)源码-PE系统下一键四区
“系统安装”,”确认要将硬盘分为4个区吗?这会删除当前硬盘所有数据!

源码

Dim $CDRom,$i,$Target,$Drive,$Flag,$Flagr,$Flagrr
$Flag=MsgBox(1,"系统安装","确认要将硬盘分为4个区吗?这会删除当前硬盘所有数据!")
If $Flag=2 Then
Exit
EndIf
$Target="hd-4.gho"
For $i=90 To 67 Step -1
$Drive=Chr($i)
If FileExists($Drive & ":\GHOST\" & $Target) Then
$CDRom=$Drive & ":"
ExitLoop
EndIf
Next
If FileExists($CDRom) Then
If FileExists($CDRom & "\PESOFT\GHOST\Ghost32.exe") And FileExists($CDRom & "\ghost\hd-4.gho") Then
ToolTip(@CR&" 正在执行一键四区,请稍候... "&@CR, @DesktopWidth-220, @DesktopHeight-120)
Run($CDRom & "\PESOFT\GHOST\Ghost32.exe -nousb -clone,mode=load,src=" & $CDRom & "\ghost\hd-4.gho,dst=1 -fx")
ProcessWaitClose("Ghost32.exe")
ToolTip("")
$Flagr=MsgBox(1,"系统安装","硬盘分区完成,要立即安装XP系统到C盘吗?")
If $Flagr=2 Then
Exit
EndIf
IF FileExists($CDRom & "\ghost\winxp.gho") Then
ToolTip(@CR&" 正在执行恢复XP到C盘,请稍候... "&@CR, @DesktopWidth-260, @DesktopHeight-120)
Run($CDRom & "\PESOFT\GHOST\Ghost32.exe -nousb -clone,mode=pload,src=" & $CDRom & "\ghost\winxp.gho:1,dst=1:1 -crcignore -sure -fx")
ProcessWaitClose("Ghost32.exe")
ToolTip("")
$Flagrr=MsgBox(1,"系统安装","系统文件复制完成,请重启电脑完成安装",5)
If $Flagrr=2 Then
Exit
EndIf
Run(@ComSpec & " /c " & 'pecmd shut r', "", @SW_HIDE)
Else
MsgBox(0,"Error","未发现winxp.gho镜像文件!")
Exit
EndIf
ElseIf Not FileExists($CDRom & "\PESOFT\GHOST\Ghost32.exe") Then
MsgBox(0,"Error","未发现Ghost32.exe程序!")
Exit
EndIf
Else
MsgBox(0,"Error","未发现HD-4.GHO镜像文件!")
Exit
EndIf

版权声明:本站所有文章和资源使用CC BY-NC-SA 4.0协议授权发布 , 转载应当以相同方式注明文章来自“SeaOMC.COM->AutoIt3(au3)源码-PE系统下一键四区!在下边可以分享本文哦!
喜欢 (0)
[]
分享 (0)
奇跡の海
关于作者:
一个WordPress菜鸟!
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址