基于永远的wing 做的WIN81PE ,DIY了一下,分享一些工具包

天涯行

系统取自 永远的wing 64位winpe5.1修正版1(wingwy-pe5.1-v1f1)
感谢 永远的wing 无私分享！
下载地址：
wingwy-pe5.1-v1f1.iso MD5：7f931189d41fe2b65fa07be1b970f3a8
下载： http://pan.baidu.com/s/1o6JRPiE

自已也从互联网上整理收集了一些软件.http://pan.baidu.com/s/1i35nrPN 密码:ycvt
感谢我所收集工具软件包中各位原创作者，制作者，分享者，谢谢！
如我无意中侵犯了您们的权利，请PM我，我将删除分享包中的相应软件。

最后，感谢 无忧论坛 提供学习及交流的平台，各位管理团队的成员，你们辛苦了！因年已40有余，再也没有力气去折腾这些了。这是最后一次折腾了。

我用WINPE的历程：WINXP PE，WIN7 PE，WIN 8.1 的PE，这三包平台我分别用的是 逆天使 静庵 永远的WING 三位大侠制作的，在此感谢他们三位，祝他们身体健康，生活幸福。还有一位 超版 dgxhls ，是他指点我合盘的，也表示十分感谢。

还有那些为制作WINPE系统付出辛勤劳动的各位朋友，也一并表示感谢。








又因为不懂DOS的FOR之类的高级应用,只好很笨拙的写了段代码完成自己想要实现的一个超级简单的功能.(就是查找工具软件所在目录,并复制到内存盘中)
主要是因为我也不懂编程，E文更是菜鸟，看了半天的帮助文档，才搞出下面这段代码，唉，OUT，不服老不行啊。汗水~~~

1. 
   
2. old_path$ = GetCurrentDirectory()
   
3. tools_path$ = "gltianya"
   
4. error_path$ = "gltianya"
   
5. petools_dir$ = "X:\gltianya"
   
6. 
   
7. 
   
8. CreateDirectory(petools_dir$)
   
9. 
   
10.   result1 = RunProgram("fsutil.exe"," fsinfo drives","", #PB_Program_Open | #PB_Program_Read)
    
11.   Output$ = ""
    
12.   If result1
    
13.     While ProgramRunning(result1)
    
14.       If AvailableProgramOutput(result1)
    
15.         Output$ + ReadProgramString(result1,#PB_Ascii)
    
16.       EndIf
    
17.     Wend
    
18.     Output$  + Chr(13)
    
19.     CloseProgram(result1) ; 关闭程序连接
    
20.   EndIf
    
21.   
    
22.   Output$=RemoveString(Output$,"驱动器:")
    
23.   Output$=(LTrim(RTrim(Output$)))
    
24.   For k=1 To Len(output$)-1 Step 4
    
25.     output1$=Mid(output$,k,4)
    
26.     new_path$ = RTrim(output1$)+tools_path$
    
27. 
    
28.     If SetCurrentDirectory(new_path$)
    
29.        Directory1$ = GetCurrentDirectory()
    
30. 
    
31.        If ExamineDirectory(0, Directory1$, "*.*") And (Mid(Directory1$,1,1) <> Mid(petools_dir$,1,1))
    
32. 
    
33.         If CopyDirectory(Directory1$,petools_dir$,"",#PB_FileSystem_Recursive | #PB_FileSystem_Force)
    
34.          
    
35.          If OpenWindow(0, 350, 350, 330, 90, "友情提示")
    
36. 
    
37.             Repeat
    
38.               Event = WaitWindowEvent()
    
39.               Text_0 = TextGadget(0, 10, 25,400, 50, "搜索到外置工具软件，已经将工具软件复制到 "+ petools_dir$ +Chr(13)+Chr(10)+Chr(13)+Chr(10)+"文件夹！")
    
40. 
    
41.               If Event = #PB_Event_CloseWindow  ; 手动关闭窗口
    
42.                  Quit = 1
    
43.               Else
    
44.                  ;Delay(5000)
    
45.                  Quit = 1
    
46.               EndIf
    
47.             Until Quit = 1
    
48.             CloseWindow(0)
    
49.           EndIf
    
50. 
    
51.        Else
    
52.           MessageRequester("提示","在启动盘根目录中未能找到 "+error_path$+ " 文件夹，无法加载外置软件工具！" )
    
53.        EndIf
    
54.      EndIf
    
55.     EndIf
    
56.    Next
    
57.    SetCurrentDirectory(old_path$)
    
58. End
    

复制代码

2012ryw

楼主能放出下载吗？谢谢

lnyyj

感谢楼主分享。请问在PE中 做程序的开机自启动 怎么做？

天涯行

这个东东其实就一个功能，查代所有可见磁盘根目录下的 gltianya ，找到后，复制到X的根目录下，这个文件我是放在了system32里，你可以按自己需要放在想放的地方，然后调用它就行了。如果不想要 gltianya 这个名字为目录名，用WINHEX 修改它，或者 用 PB 重新编译一个。
提醒一下：我提供的这个是X64版的，不是32位版的。
PS：当时我写这个小玩意的时候，很直观的想到把软件工具移动到X盘去，实际是复拷贝过去，或许改为 copysoft 更好记，不过当时懒得去改了，反正达到自己的目的就行。

觉觉去了。

thfgw

天涯行 发表于 2015-1-11 19:39
补充一句,我自己用的那段代码,我把提示那部分删除了,因为实际效果似乎未达到我想要的.

如果想改为别的目 ...

    movesoft.7z 放在哪里?怎么用

renchmin

非常不错的PE了，这个必须要支持一下的啊。

靠边站#傻瓜

2010WAIGO 发表于 2015-1-11 21:51
我70岁都不服老，您40多岁算什么老，再加把劲吧！

看到40多的大叔辈和70多的爷爷辈人物，我这个20出头的小孩子吓哭了

2011npwjm

人老了，不服不行，感谢楼主分享

泰立信

看来大家都是有一定年纪的了

天涯行

有朋友要BCD文件,贴上来 1.7z (8.15 KB, 下载次数: 41)

2015-1-11 22:14 上传

点击文件名下载附件
下载积分: 无忧币 -2

天涯行

有朋友要BCD文件,贴上来

WAIGO

我70岁都不服老，您40多岁算什么老，再加把劲吧！

天涯行

楼上的大侠,不是我不愿意上传合盘,体积近1.3G,我的ADSL上网,下载400K左右,上传则30-40K的速度.实在是心有余而力不足啊.

shan

启动管理器好有特点，放出合盘给大家研究一下可否？

白马探哥

大神，幸苦啦！

天涯行

补充一句,我自己用的那段代码,我把提示那部分删除了,因为实际效果似乎未达到我想要的.

如果想改为别的目录名,用WINHEX之类的工具直接查找替换' gltianya ' 为自己喜欢的就OK了.