|
- _SUB Loop
- FORM DriveType=%AllDrive%
- LSTR aStr=2,%AllDrive%
- FIND $%aStr%=C:,!FIND $%aStr%=X:,!FIND $%aStr%=Y:,!FIND $%DriveType%=DRIVE_CDROM,!FIND $%DriveType%=VIRTUAL_CDROM,!ENVI RDrive=%RDrive%|%aStr%
- MSTR AllDrive=4,0,%AllDrive%
- FIND $%AllDrive%=:,!CALL Loop
- _END
- _SUB SetWindows
- ENVI @Button1.Enable=%bE%
- ENVI @Button2.Enable=%bE%
- ENVI @Radio1.Enable=%bE%
- ENVI @Radio2.Enable=%bE%
- ENVI @Radio3.Enable=%bE%
- ENVI @Radio5.Enable=%bE%
- ENVI @Check1.Enable=%bE%
- ENVI @Check2.Enable=%bE%
- ENVI @List1.Enable=%bE%
- FIND $%bE%=1,FIND $%Targe%=0,ENVI @List1.Enable=1!ENVI @List1.Enable=0
- _END
- _SUB SetType
- FIND $%Radio1.Check%=1,ENVI Type=0
- FIND $%Radio2.Check%=1,ENVI Type=1
- _END
- _SUB SetTarge
- FIND $%Radio3.Check%=1,ENVI Targe=0
- FIND $%Radio5.Check%=1,ENVI Targe=2
- FIND $%Targe%=0,ENVI @List1.Enable=1!ENVI @List1.Enable=0
- _END
- _SUB Updata
- EXEC =bootsect.exe %BOOTSECT_CMD%
- MESS 操作完成。@提示#OK
- _END
- _SUB BOOTSECT
- ENVI bE=0
- CALL SetWindows
- ENVI Result=1
- TEAM ENVI Force=|ENVI Mbr=
- FIND $%Type%=0,ENVI NtBoot=/nt52!ENVI NtBoot=/nt60
- FIND $%Targe%=0,FIND $%ChoiceDrv%=选择一个分区,FIND $%List1%=%ChoiceDrv%,TEAM ENVI Result=0|MESS 请%ChoiceDrv%。@错误#OK
- FIND $%Result%=1,FIND $%Targe%=0,ENVI Volume=%List1%
- FIND $%Result%=1,FIND $%Targe%=2,ENVI Volume=ALL
- FIND $%Result%=1,FIND $%Check1.Check%=1,ENVI Force=/Force
- FIND $%Result%=1,FIND $%Check2.Check%=1,ENVI Mbr=/Mbr
- FIND $%Result%=1,ENVI BOOTSECT_CMD=%NtBoot% %Volume% %Force% %Mbr%
- FIND $%Result%=1,CALL Updata
- ENVI bE=1
- CALL SetWindows
- _END
- _SUB Windows1,W340H235,%WinName%,,#1
- LIST List1,L12T12W100H20,%ChoiceDrv%|%AllDrive%,,%ChoiceDrv%
- CHEK Check1,L128T10W200H20,/Force(强制卸除卷,必须谨慎!),,
- CHEK Check2,L128T30W200H20,/MBR(重新写入 MBR ),,
- GROU Group1,L12T48W308H56,启动代码
- RADI Radio1,L022T68W148H24,NT52(WinXP/2K3类型),CALL SetType,1
- RADI Radio2,L178T68W140H24,NT60(Win7/2K8类型),CALL SetType,,
- GROU Group2,L12T116W208H80,更新目标
- RADI Radio3,L024T136W184H24,DriveLetter(选择所指定的分区),CALL SetTarge,1,1
- RADI Radio5,L024T160W184H24,ALL(所有主分区的主启动代码),CALL SetTarge,,1
- ITEM Button1,L240T125W68H30,执行,CALL BOOTSECT
- ITEM Button2,L240T161W68H30,退出,KILL \%WinName%
- _END
- ENVI WinName=BootSect
- ENVI Type=0
- ENVI Targe=0
- ENVI NtBoot=/NT52
- ENVI Volume=C:
- FIND $%ChoiceDrv%=,ENVI ChoiceDrv=选择一个分区
- ENVI Result=0
- ENVI RDrive=C:
- FDRV AllDrive=
- CALL Loop
- ENVI AllDrive=%RDrive%
- CALL @Windows1
复制代码
网虫2008的pe中的一段bootsect.exe的gui界面代码,怎么在pecmd2012中运行没有反应,出不来界面。是不是它他的代码有问题,但是在他的pe中是可以的。
还有包内的示例代码中的
UDTOOL.wcs
VHD.wcs
运行也没有反应,出不来界面。 |
|