【不回复也可见】【20120621】ZHS多功能维护盘【简繁体中文菜单】【绝版】

zhs509

原帖由 2011hiboy 于 2012-5-8 19:13 发表


我觉得通过VBS的筛选，指定可用盘符来指引批处理进行外置加载比较合理

原因：VBS可以做到：查看磁盘是否存在，是否可写（昨天老大提供了）
           将存在且可写的盘符设置到变量，我觉得VBS也可以做到

如果可以将那些盘符导出到一个文件disk.txt，那应该就好办多了。。。

批处理比较好的估计就会从disk.txt获取盘符了

回复 #1329 2011mking 的帖子
我猜测是它的for引发的，去了不该去的地方。。。

我自己则是调用任意分区的PETOOLS\PETOOLS.INI

[ 本帖最后由 zhs509 于 2012-5-8 19:17 编辑 ]

2011hiboy

肯定是for引起的。。。和vbs没有关系。。

但如果vbs调用含有for···（c d ···z）类似的语句，那么一起的问题又将到原回点。。


因为加载外置里面还有很多if命令。。vbs我又不会。。。

最好就是去除批处理里面的for命令，通过vbs引导bat执行。。

auto执行改成vbs来执行？？？？不懂啥意思。。。

[ 本帖最后由 2011hiboy 于 2012-5-8 19:38 编辑 ]

elai

原帖由 zhs509 于 2012-5-8 18:30 发表
那应该是要靠前一些调用，我下面的代码应该也是没问题的，我修改的pe刚好自带了setx.exe
我是进入桌面后pecmd调用的批处理，IE的有生效。临时目录的没生效，但注销也生效了
@echo off
color 0a
pushd % ...

刚才测试了一下老大的0503版7PE，同样的调用方式却压根没有生效，連R盘都没有创建！奇怪。。。

zhs509

原帖由 elai 于 2012-5-8 19:43 发表

刚才测试了一下老大的0503版7PE，同样的调用方式却压根没有生效，連R盘都没有创建！奇怪。。。

0503版本版本的本来就没创建R盘的。。。

只是今天玩一玩创建内存盘的

2012bdsjhf

在ThinkPadE520 i3处理器笔记本中测试，背景图片显示还是有些小问题，背景图片相当于是平铺，不是拉伸，以前版本也有过此问题

“进入RUN”模块，背景图片显示也是一样，背景相当于一张图片还多一部分

“Memtest内存检测”等几个模块，下面的英文注释，不是居中显示，

还有就是，启动后菜单模块显示前，等待的时间有些长，暂时只发现了这些小问题

zhs509

原帖由 2012bdsjhf 于 2012-5-8 19:54 发表
在ThinkPadE520 i3处理器笔记本中测试，背景图片显示还是有些小问题，背景图片相当于是平铺，不是拉伸，以前版本也有过此问题

“进入RUN”模块，背景图片显示也是一样，背景相当于一张图片还多一部分

“M ...

其实背景图的可以解决，但是为了保证进入VBE模式，我故意设置较大的分辨率范围（你可以改为不超过800×600就没问题）

当可识别的最佳分辨率超过800×600时，背景会多出一块。。。

或者可以自己修改菜单——个人时感觉没必要修改，这个可能出现的问题很久之前我就知道了

elai

原帖由 zhs509 于 2012-5-8 19:46 发表

0503版本版本的本来就没创建R盘的。。。

只是今天玩一玩创建内存盘的

当然是我自己加入相关文件后，再在PECMD中EXEC !%ProgramFiles%\Keys\创建内存盘并设置临时文件夹.exe调用！但是没起作用！！！

2011mking

原帖由 2011hiboy 于 2012-5-8 19:29 发表
肯定是for引起的。。。和vbs没有关系。。
但如果vbs调用含有for···（c d ···z）类似的语句，那么一起的问题又将到原回点。。
因为加载外置里面还有很多if命令。。vbs我又不会。。。
最好就是去 ...

处理好了，可用驱动器写在了环境变量 DDS 中，自行调用即可。
On Error Resume Next
Dim fso, SubDrives, i,DDS
Set fso = CreateObject("Scripting.FileSystemObject")
Set SubDrives = fso.Drives
set ws=WScript.CreateObject("WScript.Shell")
For Each i In SubDrives
    if i.IsReady=true then DDS=DDS&" "&i.DriveLetter
Next
Set pSysEnv = ws.Environment("System")
pSysEnv("DDS") = DDS

下面是运行上面的VBS后查看dds变量的结果

zhs509

原帖由 2011mking 于 2012-5-8 20:22 发表


处理好了，可用驱动器写在了环境变量 DDS 中，自行调用即可。
On Error Resume Next
Dim fso, SubDrives, i,DDS
Set fso = CreateObject("Scripting.FileSystemObject")
Set SubDrives = fso.Drives
s ...

谢谢老大。。。
这个好啊。。。

直接调用这个变量就是了

zhs509

原帖由 2011mking 于 2012-5-8 20:22 发表


处理好了，可用驱动器写在了环境变量 DDS 中，自行调用即可。
On Error Resume Next
Dim fso, SubDrives, i,DDS
Set fso = CreateObject("Scripting.FileSystemObject")
Set SubDrives = fso.Drives
s ...

谢谢老大，我批处理基础太差了！
老大能否简单给个例子？

2011mking

先运行这个vbs,假设名为DiskEnv.vbs

pecmd.ini中
Exec =Wscript.exe DiskEnv.vbs

然后用原来的 For ,只不过括号中的(C D E...)就改成了(%DDS%)了。

[ 本帖最后由 2011mking 于 2012-5-8 20:44 编辑 ]

zhs509

原帖由 2011mking 于 2012-5-8 20:37 发表
先运行这个vbs,然后

还是用原来的 For ,只不过括号中的 内容改成 %DDS% 试试。

可以了，谢谢老大。。。

原来我之前的另外的批处理有问题

2011mking

原帖由 elai 于 2012-5-8 20:09 发表

当然是我自己加入相关文件后，再在PECMD中EXEC !%ProgramFiles%\Keys\创建内存盘并设置临时文件夹.exe调用！但是没起作用！！！

估计是imdisk注册表没有导入或有问题，只解决文件，第一次调用会启动不了的。
重导一下imdisk的注册表试试。(下面附件你需要挂载software和system，挂载到HKEY_LOCAL_MACHINE下，分别取名为soft和sys,然后导入)

elai

原帖由 elai 于 2012-5-8 19:43 发表
刚才测试了一下老大的0503版7PE，同样的调用方式却压根没有生效，連R盘都没有创建！奇怪。。。

原帖由 zhs509 于 2012-5-8 19:46 发表
0503版本版本的本来就没创建R盘的。。。
只是今天玩一玩创建内存盘的

原帖由 elai 于 2012-5-8 20:09 发表
当然是我自己加入相关文件后，再在PECMD中EXEC !%ProgramFiles%\Keys\创建内存盘并设置临时文件夹.exe调用！但是没起作用！！！

晕，原来是EXEC !%ProgramFiles%\Keys\创建内存盘并设置临时文件夹.exe中的KEYS多了S，改为EXEC !%ProgramFiles%\Key\创建内存盘并设置临时文件夹.exe，一切OK了！

elai

原帖由 2011mking 于 2012-5-8 20:58 发表


估计是imdisk注册表没有导入或有问题，只解决文件，第一次调用会启动不了的。
重导一下imdisk的注册表试试。(下面附件你需要挂载software和system，挂载到HKEY_LOCAL_MACHINE下，分别取名为soft和sys,然后导入)

是我自己搞错了！PECMD.INI中的EXEC !%ProgramFiles%\Keys\创建内存盘并设置临时文件夹.exe中的KEYS多了S，改为EXEC !%ProgramFiles%\Key\创建内存盘并设置临时文件夹.exe，一切OK了！

zhs509

原帖由 elai 于 2012-5-8 21:00 发表

是我自己搞错了！PECMD.INI中的EXEC !%ProgramFiles%\Keys\创建内存盘并设置临时文件夹.exe中的KEYS多了S，改为EXEC !%ProgramFiles%\Key\创建内存盘并设置临时文件夹.exe，一切OK了！

能用就好。。。
我自己用的也改下看看效果会不会好点。。。

我自己是改名为Y盘了，其实都一样的

2011hiboy

太太太太太太太太太太感谢了
我这就去试试。。

2011hiboy

原帖由 2011mking 于 2012-5-8 20:22 发表


处理好了，可用驱动器写在了环境变量 DDS 中，自行调用即可。
On Error Resume Next
Dim fso, SubDrives, i,DDS
Set fso = CreateObject("Scripting.FileSystemObject")
Set SubDrives = fso.Drives
s ...

哈哈哈，成功了！！
Perfect！！！！
谢谢2011mking老大

zhs509

嘿嘿 我失败了。。。
     自己继续找原因，调整下代码。。。

baosheng00

还不错，下来用用。谢谢分享

hwg5386

不错的PE，收下了！！

2011mking

原帖由 zhs509 于 2012-5-8 21:37 发表
嘿嘿 我失败了。。。
     自己继续找原因，调整下代码。。。

进桌面调没问题，可不进桌面有问题，现已更改为新代码，经开机测试(我的外置要自动设R盘的，没成功R盘设不上) 没有问题了。

解决方案如下(原来VBS写环境用于Pe登陆前无法生效，现改为输出参数到CMD)：

DiskEnv.vbs (放到system32下)
-----------------------
On Error Resume Next
Dim fso, SubDrives, i,DDS
Set fso = CreateObject("Scripting.FileSystemObject")
Set SubDrives = fso.Drives
set ws=WScript.CreateObject("WScript.Shell")
For Each i In SubDrives
    if i.IsReady=true then DDS=DDS&" "&i.DriveLetter
Next
WScript.StdOut.Write DDS & Chr(13)


Findpetools.cmd 调用(仅示例，可以用自已的cmd)
----------------------------
@echo off
PUSHD %~dp0

for /f "delims=" %%a in ('Wscript //nologo %CD%\DiskEnv.vbs') do (
set DDS=%%a)

for %%a in (%DDS%) do (
  if exist %%a:\PETOOLS\安装驱动.cmd  Pecmd Exec !=%%a:\PETOOLS\外置安装.cmd && goto :end)
:end
Exit

注意，我这里的FindPetools是与DiskEnv.vbs放在同一目录的，如果没有放在同一目录，请改语句中的%CD%为相应的DiskEnv.vbs所在目录

将红字部份改为你的代码就行了。

[ 本帖最后由 2011mking 于 2012-5-9 00:44 编辑 ]

zhs509

原帖由 2011mking 于 2012-5-9 00:42 发表


进桌面调没问题，可不进桌面有问题，现已更改为新代码，经开机测试(我的外置要自动设R盘的，没成功R盘设不上) 没有问题了。

解决方案如下(原来VBS写环境用于Pe登陆前无法生效，现改为输出参数到CMD)：
...

谢谢老大，刚刚重启测试加载外置没问题了

1. 
   
2. @echo off
   
3. PUSHD %~dp0
   
4. for /f "delims=" %%a in ('Wscript //nologo %CD%\DiskEnv.vbs') do (
   
5. set DDS=%%a)
   
6. 
   
7. for %%a in (%DDS%) do (
   
8. PECMD.EXE LOAD %%a:\PETOOLS\PETOOLS.INI
   
9. dir /a %%a:\PETOOLS >nul 2>nul&&(
   
10. for /f "delims=" %%b in ('dir %%a:\PETOOLS /a-d /b /s') do PECMD LINK %%startmenu%%\%%~pb\%%~nxb,%%b
    
11. )
    
12. )
    
13. 
    

复制代码

[ 本帖最后由 zhs509 于 2012-5-9 01:03 编辑 ]

zhs509

20120509_Win7PE补丁包，适合20120503版的win7pe网络影音图文全功能版（UD版本的win7pe或单版的win7pe原版ISO文件）
http://www.ctdisk.com/file/6667638

主要更新内容：
potplayer更新为当前最新

精简配置小小输入法，仅保留拼音；添加极点五笔，可五笔、拼音、英文（可当翻译了）

自动根据内存大小创建内存盘，内存小于2G的不创建内存盘Y盘；若创建内存盘Y盘，则将临时目录设置到内存盘Y盘

搜索外置，跳过空驱动器，尽可能避免出错。或许已经解决了这个问题，有条件重现问题的可以试试看！

根据网友建议添加了“离线IP信息获取工具”

[ 本帖最后由 zhs509 于 2012-5-9 09:06 编辑 ]

chanel

原帖由 zhs509 于 2012-5-9 01:35 发表
20120509_Win7PE补丁包，适合20120503网络影音图文全功能版
http://www.ctdisk.com/file/6664666

更新内容：
potplayer更新为最新
精简配置小小输入法，仅保留拼音；添加极点五笔，可五笔、拼音、英文（可 ...

大侠还没睡啊。如果能打包一块提供XdeltaGui下载就好了。0PE的补丁呢？另外您提供的RUN模块如果再加上ZXW大大的就更强大了。
在研究VBE模式菜单，还没头绪。困死了，睡觉啦。

[ 本帖最后由 chanel 于 2012-5-9 03:13 编辑 ]

2010古彤

支持楼主 我正在用你的pe呢

zhs509

原帖由 chanel 于 2012-5-9 03:11 发表

大侠还没睡啊。如果能打包一块提供XdeltaGui下载就好了。0PE的补丁呢？另外您提供的RUN模块如果再加上ZXW大大的就更强大了。
在研究VBE模式菜单，还没头绪。困死了，睡觉啦。

补丁有提供XdeltaGui那个工具的，还提供了老九的GoHash可方便的校验文件

zhs509

将win7pe更新内容详细写下。。。

本次更新特别感谢2011mking老大的帮助和耐心指导！

20120509_Win7PE补丁包，适合20120503版的win7pe网络影音图文全功能版（UD版本的win7pe或单版的win7pe原版ISO文件）
http://www.ctdisk.com/file/6667638

主要更新内容：
potplayer更新为当前最新

精简配置小小输入法，仅保留拼音；添加极点五笔，可五笔、拼音、英文（可当翻译了）

自动根据PE所能识别的内存大小来创建内存盘，内存小于2G的不创建内存盘Y盘；若创建内存盘Y盘，则将临时目录设置到内存盘Y盘

搜索外置，跳过空驱动器，尽可能避免出错。或许已经解决了这个问题，有条件重现问题的可以试试看！

根据网友建议添加了“离线IP信息获取工具”


注：由于win7pe网络影音图文全功能版内核文件我隐藏保护了，是无法解开安装的。。。
      其实在硬盘或UD区直接map启动ISO文件不见得会多占用内存和启动速度变慢——至少个人启动感觉几乎没变化！
      硬盘上要安装，不是不能，参考下面的方法即可！附件的grub4dos内置菜单也适合UD版启动“WIN7PE.ISO”

      将ISO文件改名为WIN7PE.ISO放置到/BOOT/IMGS、/BOOT或根目录均可以，下载附件设置为引导即可！

      附件是grub4dos内置菜单改名的，win7pe.bin自己可根据需要用fbinsttool修改菜单内容

      修改BOOT.INI添加下面一行内容即可！（若为win7系统，在win7系统所在分区创建BOOT.INI，并添加下面一行内容即可！）
      C:\win7pe.bin="Win7PE 网络影音图文全功能版"

     这里C:\win7pe.bin的路径要改为实际的；如果你的系统盘符是D盘，改为D盘试试看

[ 本帖最后由 zhs509 于 2012-5-9 09:06 编辑 ]

yctc

很好的合盘，基本都有了

chanel

原帖由 zhs509 于 2012-5-9 07:45 发表
将win7pe更新内容详细写下。。。

本次更新特别感谢2011mking老大的帮助和耐心指导！

20120509_Win7PE补丁包，适合20120503版的win7pe网络影音图文全功能版（UD版本的win7pe或单版的win7pe原版ISO文件）
...

0PE也顺手来个补丁吧。