Win7镜像安装工具(改自fujianabc的win7/vista安装器)(全部源码)

republican

因为在写一个网络系统下载工具，需要安装win7的时候发现ms没有全参数的安装工具，遂参考fujianabc的硬盘安装器(Bat)(在此表示感谢)，自己用Au3写了一个win7安装工具。

1.程序启动遍历驱动器，寻找"Sources\install.wim"文件自动装载（自身目录寻找Install.wim）。若没有找到则弹出选择wim文件的对话框。
2.自匹配活动分区(ShowDrive不知道为什么没用)。
3.格式化步骤还是采用DOS窗口.
4.采用回显方式获取数据。


此版本可能不稳定，请大家在虚拟机下测试。

图片(图片怎么不能直接显示?)：
系统选择界面：
1.jpeg (42.79 KB, 下载次数: 686)

2010-5-2 12:08 上传

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

磁盘选择界面:
2.jpeg (47.43 KB, 下载次数: 193)

2010-5-2 12:08 上传

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

安装界面:
3.jpeg (20.04 KB, 下载次数: 164)

2010-5-2 12:08 上传

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

4.jpeg (43.65 KB, 下载次数: 144)

2010-5-2 12:08 上传

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

附件:

Nt6.part1.rar (292.97 KB, 下载次数: 991)

2010-5-2 11:57 上传

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

Nt6.part2.rar (292.97 KB, 下载次数: 687)

2010-5-2 11:57 上传

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

Nt6.part3.rar (237.42 KB, 下载次数: 680)

2010-5-2 11:57 上传

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

;//--------------源码-------------------
应求，附核心源码。

process1.rar (1.39 KB, 下载次数: 400)

2010-5-2 20:48 上传

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

没什么技术含量的东西，希望不要见笑。
有兴趣者一起更新吧。

不想写了，公开全部源码：

http://www.autoitx.com/thread-15161-1-1.html

[ 本帖最后由 republican 于 2010-5-3 21:44 编辑 ]

tegl

支持原创，请提供AU3源代码，谢谢~

republican

感谢支持！
需要的人多了我再提供源代码~~

wanghh

☆۩۞۩☆【谢谢提供！】 ☆۩۞۩☆

cmdy268

支持一下，不知道好用不

zhhsh

支持一下，我也需要这个源码，我想参考一下以后来完善我的工具

zhaohj

au3,支持一下。有源码更好！

tfa001

学习一下au3,谢谢分享

edwinsunday

特意来学习一下，谢谢了

xuexiang

建议
加一个引导修复选项
这样就可以恢复XP的备份了

xuexiang

还有这个格式化是建立在diskpart的基础上吗
还是程序自身的

xuexiang

或者加个选项
win7和xp可以选择

uu99

原帖由 xuexiang 于 2010-5-3 13:30 发表
建议
加一个引导修复选项
这样就可以恢复XP的备份了

这个建议好

冷山

这个挺不错，收藏备用

republican

原帖由 xuexiang 于 2010-5-3 13:32 发表
还有这个格式化是建立在diskpart的基础上吗
还是程序自身的

不好意思，让你失望了，我没这样想过。不过全部源码我在AutoIt论坛发了，需要的话可以过去看看。

xuexiang

哎
没有账号
没有邀请码
看不了呀

yang162

特意来学习一下，谢谢了

a22124497

支持呀，虽然没怎么用WIN7

超级懒虫

Win7镜像安装工具 【AU3源码】

a_wind

是AU3写的，一开始我就猜到了，呵呵～我把代码转过来:

1. #AutoIt3Wrapper_Icon=windows7.ico
   
2. #AutoIt3Wrapper_Res_Fileversion=0.9.0.0
   
3. #cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
   
4. Au3 版本:0.9.0.0
   
5. 脚本作者: republican
   
6. #ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本开始＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
   
7. #include <ButtonConstants.au3>
   
8. #include <GUIConstantsEx.au3>
   
9. #include <WindowsConstants.au3>
   
10. #include <GUIComboBox.au3>
    
11. #include <GuiConstantsEx.au3>
    
12. #include <Constants.au3>
    
13. #include <GUIListBox.au3>
    
14. #include <GuiConstantsEx.au3>
    
15. #include <GuiListView.au3>
    
16. #InClude <Process.Au3>
    
17. #include <StaticConstants.au3>
    
18. #include <EditConstants.au3>
    
19. #include <Constants.au3>
    
20. #include <StaticConstants.au3>
    
21. #include <ProgressConstants.au3>
    
22. Opt("GUIResizeMode", 802)
    
23. 
    
24. 
    
25. Global $title="踹小孩·特工组 Win7系统安装工具",$WinSize
    
26. Global $Image[20],$LevelInfo[20],$LevelDiscrip[20],$BUILD[20],$SPBUILD[20],$FullInfo[20],$Langue[20]
    
27. Global $FileNum,$FilePath,$ImageFIle
    
28. Global $PageNum=1,$LevelForm ,$Levelgroup,$LevelView,$SelectMoreButton,$SelectNextButton,$SelectCancelButton,$Levelgroup2,$LevelLabel
    
29. 
    
30. Global $DosTool=@TempDir&'\DsptW.eXe'
    
31. Global $IniFile=@TempDir&'\DskVol.InI'
    
32. Global $ShowDrive=@TempDir&'\ShowDrive.eXe'
    
33. Global $ComLine=$DosTool&' /A /Pdr >'&$IniFile
    
34. Global $DiskForm,$DiskGroup,$DiskList,$DiskNextButton,$DiskCancelButton,$diskgroup2,$diskcheck,$DiskRadio1,$DiskRadio2,$DiskCombo,$DiskRadio3
    
35. Global $LevelMode,$DiskPar,$ActivePar,$TarPar,$TarLan,$FormMode,$OldRead
    
36. Global $progressform,$add, $clear, $mylist, $Button1, $nmsg,$EditPage=2, $BootRes=0,$FixRes=0,$ChangeRes=0,$Progress1,$ProLabe1,$ProLabe2,$ProLabe3,$ProLabe4,$ProLabe5,$ProButton1,$ProButton2,$ProgressEdit
    
37. 
    
38. If $CmdLine[0] >0 Then
    
39.         $FilePath=$CmdLine[1]
    
40.         _FirstForm()
    
41. Else
    
42.         If FileExists(@ScriptDir&"Install.wim") Then
    
43.                 $FilePath=@ScriptDir&"Install.wim"
    
44.         Else
    
45.                 $var = DriveGetDrive( "all" )
    
46.                 If NOT @error Then
    
47.                         For $i = 1 to $var[0]
    
48.                                 If FileExists($var[$i]&"\sources\Install.wim") Then
    
49.                                         $FilePath=$var[$i]&"\sources\Install.wim"
    
50.                                         $i=$var[0]+1
    
51.                                 EndIf
    
52.                         Next
    
53.                 EndIf
    
54.                 If $FilePath= '' Then $FilePath=FileOpenDialog ( "请选择镜像文件", @ScriptDir, "IMageX镜像文件(*.wim)",3)
    
55.         EndIf
    
56.         If $FilePath<> '' Then _FirstForm()
    
57. EndIf
    
58. ;$FilePath='J:\sources\Install.wim'
    
59. ;_FirstForm()
    
60. 
    
61. 
    
62. Func _FirstForm()
    
63.         TrayTip("初始化程序中","正在解压核心程序...",3000)
    
64.         FileInstall('imagex.exe',@TempDir&'\imagex.exe')
    
65.         TrayTip("初始化程序中","正在提取镜像信息...",3000)
    
66. RunWait('cmd /c '&@TempDir&'\imagex.exe'&' /info '&$FilePath&' >'&@TempDir&'\wim.txt',@ScriptDir,@SW_HIDE)
    
67. _ReadWim(@TempDir&'\wim.txt')
    
68. FileDelete(@TempDir&'\wim.txt')
    
69. For $i = 1 To $FileNum
    
70.         TrayTip("初始化程序中","正在提取卷信息...",3000)
    
71.            RunWait('cmd /c '&@TempDir&'\imagex.exe'&' /info '&$FilePath&' '&$i&' >'&@TempDir&'\wim'&$i&'.txt',@ScriptDir,@SW_HIDE)
    
72.            Dim $TXT=@TempDir&'\wim'&$i&'.txt'
    
73.            _ReadFullWim($TXT,$i)
    
74.            FileDelete($TXT )
    
75. Next
    
76. TrayTip("","",0)
    
77. _InitialLevelForm()
    
78. EndFunc
    
79. Func _SecondForm()
    
80.         TrayTip("磁盘初始化中","正在获取信息...",3000)
    
81. If Not FileExists($ShowDrive) Then FileInstall('ShowDrive.Vxd',$ShowDrive,1)
    
82. _RunDOS($ShowDrive)
    
83. If Not FileExists($DosTool) Then FileInstall('DsptW.Vxd',$DosTool,1)
    
84.         _RunDOS($ComLine)
    
85.                
    
86. TrayTip("","",0)               
    
87. _IniTialDiskFOrm()
    
88. $PageNum=2
    
89. EndFunc
    
90. 
    
91. Func _InitialLevelForm()
    
92. #Region ### START Koda GUI section ### Form=
    
93. $LevelForm = GUICreate($title, 490, 400, -1, -1)
    
94. $Levelgroup = GUICtrlCreateGroup("请选择系统", 15, 15, 450, 200)
    
95.         
    
96.         Global $LevelView = _GUICtrlListView_Create($LevelForm, "", 25, 30, 430, 180)
    
97.         GUICtrlSetState($LevelView,$GUI_HIDE)
    
98.         _GUICtrlListView_SetExtendedListViewStyle($LevelView, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES))
    
99.         _GUICtrlListView_InsertColumn($LevelView, 0, "卷号", 40,2)
    
100.         _GUICtrlListView_InsertColumn($LevelView, 1, "系统全称", 280,0)
     
101.         _GUICtrlListView_InsertColumn($LevelView, 2, "版本号", 50,2)
     
102.         _GUICtrlListView_InsertColumn($LevelView, 3, "版本标识", 60,2)
     
103.         ;_GUICtrlListView_InsertColumn($LevelView, 4, "描述", 300,2)
     
104. For $i=1 To $FileNum
     
105.         _GUICtrlListView_AddItem($LevelView, $i, $i)
     
106.         _GUICtrlListView_AddSubItem($LevelView, $i-1, $Levelinfo[$i], 1)
     
107.         _GUICtrlListView_AddSubItem($LevelView, $i-1, $BUILD[$i], 2)
     
108.         _GUICtrlListView_AddSubItem($LevelView, $i-1, $SPBUILD[$i], 3)
     
109.         
     
110. Next
     
111.         
     
112. GUICtrlCreateGroup("", -99, -99, 1, 1)
     
113. $Levelgroup2=GUICtrlCreateGroup("详细描述", 15, 220, 450, 100)
     
114. $LevelLabel=GUICtrlCreateLabel("    点击卷列表以获得更多信息",25,240,435,50,$SS_left )
     
115. GUICtrlCreateGroup("", -99, -99, 1, 1)
     
116. 
     
117. $SelectMoreButton                        =GUICtrlCreateButton("详细描述",250,330,65,20)
     
118. GUICtrlSetState(-1,$GUI_DISABLE)
     
119. $SelectNextButton                        =GUICtrlCreateButton("下一步",325,330,65,20)
     
120. GUICtrlSetState(-1,$GUI_DISABLE)
     
121. $SelectCancelButton                =GUICtrlCreateButton("取消",395,330,65,20)
     
122. 
     
123. GUISetState(@SW_SHOW,$LevelForm)
     
124. #EndRegion ### END Koda GUI section ###
     
125. EndFunc
     
126. 
     
127. Func _IniTialDiskFOrm()
     
128. #Region ### START Koda GUI section ### Form=
     
129. $DiskForm = GUICreate($title, 490, 400, $WinSize[0], $WinSize[1])
     
130. $DiskGroup = GUICtrlCreateGroup("请选择系统分区", 15, 15, 450, 200)
     
131.         
     
132.         Global $DiskList = _GUICtrlListView_Create($DiskForm, "", 25, 30, 430, 180)
     
133.         GUICtrlSetState($DiskList,$GUI_HIDE)
     
134.         _GUICtrlListView_SetExtendedListViewStyle($DiskList, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES))
     
135.         _GUICtrlListView_InsertColumn($DiskList, 0, "驱动器", 50,2)
     
136.         _GUICtrlListView_InsertColumn($DiskList, 1, "分区编号", 60,2)
     
137.         _GUICtrlListView_InsertColumn($DiskList, 2, "分区状态", 60,2)
     
138.         _GUICtrlListView_InsertColumn($DiskList, 3, "卷标", 100,2)
     
139.         _GUICtrlListView_InsertColumn($DiskList, 4, "已用空间", 60,1)
     
140.         _GUICtrlListView_InsertColumn($DiskList, 5, "剩余空间", 60,1)
     
141.         _GUICtrlListView_InsertColumn($DiskList, 6, "类型", 60,0)
     
142. Local $diskinfo=FileOpen($IniFile)
     
143. Local $TotalLine=0
     
144. While 1
     
145.         FileReadLine($diskinfo,$TotalLine)
     
146.         If @error=-1 Then ExitLoop
     
147.         $TotalLine +=1
     
148. WEnd
     
149. Local $LineRead
     
150. For $LineRead =3 To $TotalLine -2
     
151.         Local $LineForRead=FileReadLine($diskinfo,$LineRead)
     
152.         Local $InfoForRead=StringSplit($LineForRead,"        ")
     
153.         For $i = 1 To $InfoForRead[0]
     
154.                 If $i = 1 Then
     
155.                         _GUICtrlListView_AddItem($DiskList, StringStripWS($InfoForRead[$i],8), $LineRead-3)
     
156.                         _GUICtrlListView_AddSubItem($DiskList, $LineRead-3, DriveGetFileSystem(StringStripWS($InfoForRead[$i],8)), 6)
     
157.                         ;_GUICtrlListView_AddSubItem($DiskList, $LineRead-3, 'FAT32', 6)
     
158.                 Else
     
159.                         If $InfoForRead[$i]="A" Then
     
160.                                 $InfoForRead[$i]="活动"
     
161.                                 $ActivePar=$InfoForRead[$i-2]
     
162.                         EndIf
     
163.                                 
     
164.                         _GUICtrlListView_AddSubItem($DiskList, $LineRead-3, StringStripWS($InfoForRead[$i],8), $i-1)
     
165.                 EndIf
     
166.                
     
167.         Next
     
168.         
     
169. Next
     
170. ;DriveGetFileSystem
     
171. 
     
172. GUICtrlCreateGroup("", -99, -99, 1, 1)
     
173. $diskgroup2=GUICtrlCreateGroup("其他操作", 15, 220, 450, 100)
     
174. $diskcheck=GUICtrlCreateCheckbox("手动选择系统盘符",25,235,200)
     
175. $diskRadio1=GUICtrlCreateRadio("格式化目标分区",25,255,220)
     
176. GUICtrlSetState(-1,$Gui_Checked)
     
177. $diskRadio2=GUICtrlCreateRadio("仅删除目标分区系统文件",25,275,220)
     
178. GUICtrlSetState(-1,$GUI_DISABLE)
     
179. $DiskRadio3=GUICtrlCreateRadio("保留目标分区系统文件(重命名)",25,295,220)
     
180. $DiskCombo= GUICtrlCreateCombo("",260,235,60)
     
181. GUICtrlSetData(-1, "C:|D:|E:|F:|G:|H:|I:|J:|K:|L:|M:|N:|O:|P:|Q:|R:|S:|T:|U:|V:|W:|Y:", "C:")
     
182. GUICtrlSetState(-1,$GUI_DISABLE)
     
183. GUICtrlCreateGroup("", -99, -99, 1, 1)
     
184. $DiskNextButton                        =GUICtrlCreateButton("下一步",325,330,65,20)
     
185. GUICtrlSetState(-1,$GUI_DISABLE)
     
186. $DiskCancelButton                =GUICtrlCreateButton("取消",395,330,65,20)
     
187. #EndRegion ### END Koda GUI section ###
     
188. EndFunc
     
189. 
     
190. 
     
191. ;_ProgressForm()
     
192. Func _ProgressForm()
     
193. #Region ### START Koda GUI section ### Form=
     
194. $progressform=GUICreate($title, 480, 150, $WinSize[0], $WinSize[1]);150
     
195. $ProgressEdit = GUICtrlCreateEdit("", 16, 152, 449, 169)
     
196. GUICtrlSetState(-1,$gui_disable)
     
197. $ProLabe1 = GUICtrlCreateLabel("文件解压进度：", 16, 16, 120, 17)
     
198. $Progress1 = GUICtrlCreateProgress(16, 40, 446, 17)
     
199. $ProLabe2 = GUICtrlCreateLabel("剩余时间: --:--", 340, 16, 120, 17)
     
200. $ProLabe3 = GUICtrlCreateLabel("引导文件修复：", 16, 64, 300, 17)
     
201. $ProLabe4 = GUICtrlCreateLabel("系统文件修正：", 16, 88, 300, 17)
     
202. $ProLabe5 = GUICtrlCreateLabel("系统盘符修正：", 16, 112, 300, 17)
     
203. $ProButton1 = GUICtrlCreateButton("执行", 384, 104, 75, 25)
     
204. $ProButton2 = GUICtrlCreateButton("详细过程", 296, 104, 75, 25)
     
205. GUICtrlSetState(-1,$gui_disable)
     
206. #EndRegion ### END Koda GUI section ###
     
207. GUISetState(@SW_SHOW)
     
208. EndFunc
     
209. 
     
210. 
     
211. While $PageNum=1
     
212.         $nMsg = GUIGetMsg()
     
213.         Switch $nMsg
     
214.                 Case $GUI_EVENT_CLOSE
     
215.                         Exit
     
216.                 Case $SelectCancelButton
     
217.                         ;MsgBox(4096,"haha",GUICtrlGetState($SelectNextButton))
     
218.                         Exit
     
219.                 Case $SelectMoreButton
     
220.                         _FullInfo()
     
221.                 Case $SelectNextButton
     
222.                         $LevelMode=_GUICtrlListView_GetSelectedIndices($LevelView)+1
     
223.                         $WinSize=WinGetPos($title,"请选择系统")
     
224.                         _SecondForm()
     
225.                         GUISetState(@SW_SHOW,$DiskForm)
     
226.                         GUISetState(@SW_HIDE,$LevelForm)
     
227.                         ;If $WinSize[0] <> "" And $WinSize[1] <> ""  Then  
     
228.                                 
     
229.         EndSwitch
     
230.         
     
231.         If GUICtrlGetState($SelectNextButton) <> 80 Then
     
232.                 If _GUICtrlListView_GetSelectedIndices($LevelView) <> '' Then
     
233.                         GUICtrlSetState($SelectNextButton,$Gui_enable)
     
234.                         
     
235.                 EndIf
     
236.         EndIf
     
237.         
     
238.                 If _GUICtrlListView_GetSelectedIndices($LevelView) <> '' Then
     
239.                         If GUICtrlRead($LevelLabel) <> '    '&$FullInfo[_GUICtrlListView_GetSelectedIndices($LevelView)+1] Then GUICtrlSetData($LevelLabel,'    '&$FullInfo[_GUICtrlListView_GetSelectedIndices($LevelView)+1])
     
240.                 EndIf
     
241.         
     
242. WEnd
     
243. 
     
244. While $PageNum=2
     
245.         $nMsg = GUIGetMsg()
     
246.         Switch $nMsg
     
247.                 Case $GUI_EVENT_CLOSE ;Or $SelectCancelButton
     
248.                         Exit
     
249.                 Case $DiskNextButton
     
250.                         $DiskPar=_GUICtrlListView_GetSelectedIndices($DiskList)+1
     
251.                         $TarPar=_GUICtrlListView_GetItemText($DiskList,$DiskPar-1,0)
     
252.                         If $langue[$DiskPar] <> '' Then
     
253.                                 $TarLan=$langue[$DiskPar]
     
254.                         Else
     
255.                                 $TarLan='en-US'
     
256.                         EndIf
     
257.                         ;MsgBox(4096,"haha",$LevelMode &' ' &$DiskPar&' ' &$ActivePar&' ' &$TarPar&' ' &$TarLan)
     
258.                         ;RunWait('cmd /c imagex.exe /apply '&$FilePath& ' '&$LevelMode& ' '&$TarPar&' &' & _
     
259.                         ;'pause','',@SW_MAXIMIZE)
     
260.                         If GUICtrlRead($diskRadio1) =1 Then
     
261.                                 $FormMode=1
     
262.                                 
     
263.                         ElseIf GUICtrlRead($diskRadio2) =1 Then
     
264.                                 $FormMode=2
     
265.                         ElseIf GUICtrlRead($diskRadio2) =1 Then
     
266.                                 $FormMode=3
     
267.                         EndIf
     
268.                         $WinSize=WinGetPos($title,"请选择系统分区")
     
269.                         GUISetState(@SW_HIDE,$DiskForm)
     
270.                         $PageNum=3
     
271.                         _ProgressForm()
     
272.                         ;GUISetState
     
273.                         ;_RunImageX()
     
274.                         ;GUISetState(@SW_SHOW,$DiskForm)
     
275.                         ;Sleep(3000)
     
276.                         ;Exit
     
277.                 Case $diskCancelButton
     
278.                         
     
279.                         
     
280.                         FileDelete(@TempDir&'\imagex.exe')
     
281.                         Exit
     
282.                 Case $diskcheck
     
283.                         If GUICtrlRead($diskcheck)=1 Then
     
284.                                 GUICtrlSetState($DiskCombo,$GUI_Enable)
     
285.                         ElseIf GUICtrlRead($diskcheck)<> 1 Then
     
286.                                 GUICtrlSetState($DiskCombo,$GUI_DISABLE)
     
287.                         EndIf
     
288.                         
     
289.                 EndSwitch
     
290.                
     
291.         If GUICtrlGetState($diskNextButton) <> 80 Then
     
292.                 If _GUICtrlListView_GetSelectedIndices($DiskList) <> '' Then
     
293.                         GUICtrlSetState($diskNextButton,$Gui_enable)
     
294.                 EndIf
     
295.         EndIf        
     
296.                
     
297.         If _GUICtrlListView_GetSelectedIndices($DiskList) <> '' Then
     
298.                         If GUICtrlRead($diskcheck) =4 Then
     
299.                                 If GUICtrlRead($DiskCombo)<> _GUICtrlListView_GetItemText($DiskList,_GUICtrlListView_GetSelectedIndices($DiskList),0) Then GUICtrlSetData($DiskCombo,_GUICtrlListView_GetItemText($DiskList,_GUICtrlListView_GetSelectedIndices($DiskList),0))
     
300.                         EndIf
     
301.         
     
302.          
     
303.         If $OldRead <>        _GUICtrlListView_GetItemText($DiskList,_GUICtrlListView_GetSelectedIndices($DiskList),5) Then
     
304.                 If _GUICtrlListView_GetItemText($DiskList,_GUICtrlListView_GetSelectedIndices($DiskList),5) < 5000  Then
     
305.                         GUICtrlSetState($DiskRadio3,$GUI_DISABLE)
     
306.                         If GUICtrlRead($DiskRadio3) =1 Then
     
307.                                 GUICtrlSetState($DiskRadio3,$gui_unchecked)
     
308.                                 GUICtrlSetState($DiskRadio1,$gui_checked)
     
309.                         EndIf
     
310.                 Else
     
311.                         GUICtrlSetState($DiskRadio3,$GUI_Enable)
     
312.                 EndIf
     
313.                
     
314.                 If  _GUICtrlListView_GetItemText($DiskList,_GUICtrlListView_GetSelectedIndices($DiskList),6) = 'NTFS' Then
     
315.                         GUICtrlSetState($DiskRadio3,$GUI_Enable)
     
316.                 Else
     
317.                         GUICtrlSetState($DiskRadio3,$gui_unchecked)
     
318.                         GUICtrlSetState($DiskRadio1,$gui_checked)
     
319.                         GUICtrlSetState($DiskRadio3,$GUI_DISABLE)
     
320.                 EndIf
     
321.                 $OldRead =        _GUICtrlListView_GetItemText($DiskList,_GUICtrlListView_GetSelectedIndices($DiskList),5)
     
322.         EndIf
     
323.         
     
324.         EndIf
     
325. WEnd
     
326. While $PageNum=3
     
327.         $nmsg = GUIGetMsg()
     
328.         Switch $nmsg
     
329.                 Case $GUI_EVENT_CLOSE
     
330.                         Exit
     
331.                                 Case $ProButton1
     
332.                                         If $FormMode=1 Then
     
333.                                                 TrayTip("操作过程","正在格式化磁盘",5000)
     
334.                                                 _FormatIt()
     
335.                                         ElseIf $FormMode=2 Then
     
336.                                                 _renOld()
     
337.                                         EndIf
     
338.                                                 ;TrayTip("操作过程","正在解压镜像",5000)
     
339.                                                 TrayTip("","",0)
     
340.                         _ImageX()
     
341.                                                 TrayTip("操作过程","正在修复引导",2000)
     
342.                                                 _FixBoot()
     
343.                                                 TrayTip("操作过程","正在修复系统位置",2000)
     
344.                                                 _FixLetter()
     
345.                                                 TrayTip("操作过程","正在更改系统盘符",2000)
     
346.                                                 _ChangeLetter()
     
347.                                                 If $BootRes=$FixRes=$ChangeRes=1 Then
     
348.                                                         GUISetState(@SW_HIDE)
     
349.                                                         TrayTip("操作结束","系统文件复制成功，请重启以继续安装",3000)
     
350.                                                         Sleep(3000)
     
351.                                                         Exit
     
352.                                                 EndIf
     
353.                                 Case $ProButton2
     
354.                                         If         $EditPage=1 Then
     
355.                                                 WinMove($title,"",Default,Default,Default,170)
     
356.                                                 GUICtrlSetData($ProButton2,"详细过程")
     
357.                                                 $EditPage=2
     
358.                                         Else
     
359.                                                 WinMove($title,"",Default,Default,Default,370)
     
360.                                                 GUICtrlSetData($ProButton2,"隐藏过程")
     
361.                                                 $EditPage=1
     
362.                                         EndIf
     
363.         EndSwitch
     
364. WEnd
     
365. 
     
366. 
     
367. 
     
368. 
     
369. 
     
370. 
     
371. Func _ReadWim($GhostFname)
     
372. Local $IniLineSum=0        ; 每次读取一行文本,直到文件结束.
     
373.                 ;$DrivePath="c"
     
374.                 Dim $EndNum,$FOne=0,$CDriver,$DDriver,$result=''
     
375.                
     
376.                 Dim $TempNum=1
     
377.                
     
378.                 While 1
     
379.                    $line = FileReadLine($GhostFname,$inilinesum)
     
380.                 If @error = -1 Then ExitLoop
     
381.                         ;//-----------------卷号-------
     
382.                         If StringLeft($line,12)="Image Count:" Then
     
383.                                 $FileNum=StringRight($line,StringLen($line)-13)
     
384.                         EndIf
     
385.                         If StringLeft(StringStripWS($line,1),6)='<IMAGE' Then
     
386.                                 $Image[$TempNum]=$inilinesum
     
387.                                 $result=$result& '  ' &@crlf&$Image[$TempNum]                        
     
388.                                 $TempNum+=1
     
389.                         EndIf
     
390.                
     
391.                 $inilinesum+=1
     
392.         WEnd
     
393.                         
     
394.                         $EndNum=$inilinesum-1
     
395.                         $Image[$TempNum]=$EndNum
     
396.                         $inilinesum=0
     
397.                
     
398.                 $result=''
     
399.         
     
400.                 For $i=1 To $FileNum
     
401.                         $x=$Image[$i]
     
402.                         While $x<$Image[$i+1]
     
403.                                            $line = FileReadLine($GhostFname,$x)
     
404.                                            If StringLeft(StringStripWS($line,1),6)='<NAME>' Then
     
405.                                                    $LevelInfo[$i]=_XmlChange($line)
     
406.                                                    $result=$result& '  ' &@crlf&$LevelInfo[$i]
     
407.                                                 ;MsgBox(4096,"haha",$i & $info[$i])
     
408.                                         ElseIf StringLeft(StringStripWS($line,1),12)='<DISPLAYNAME' Then
     
409.                                                 $LevelDiscrip[$i]=_XmlChange($line)
     
410.                                                 ;MsgBox(4096,"haha",$LevelDiscrip[$i])
     
411.                                                 $result=$result& '  ' &@crlf&$LevelDiscrip[$i]
     
412.                                         ElseIf StringLeft(StringStripWS($line,1),6)='<BUILD' Then
     
413.                                                 $BUILD[$i]=_XmlChange($line)
     
414.                                                 $result=$result& '  ' &@crlf&$BUILD[$i]
     
415.                                         ElseIf StringLeft(StringStripWS($line,1),8)='<SPBUILD' Then
     
416.                                                 $SPBUILD[$i]=_XmlChange($line)
     
417.                                                 $result=$result& '  ' &@crlf&$SPBUILD[$i]
     
418.                                         ElseIf StringLeft(StringStripWS($line,1),10)='<LANGUAGE>'Then
     
419.                                                 $langue[$i]=_XmlChange($line)
     
420.                                            EndIf
     
421.                                 $x+=1
     
422.                         WEnd
     
423.                    Next
     
424.         
     
425. 
     
426. EndFunc
     
427. Func _ReadFullWim($GhostFname,$i)
     
428.         Dim $FileNum,$EndNum,$IniLineSum=1,$FullInfo
     
429.         While 1
     
430.                 $line = FileReadLine($GhostFname,$IniLineSum)
     
431.                 If @error Then ExitLoop
     
432.                
     
433.                 If StringLeft(StringStripWS($line,1),9)='<DISPLAYD' Then
     
434.                         $FullInfo[$i]=_XmlChange($line)
     
435.                         ExitLoop
     
436.                 EndIf
     
437.                 $IniLineSum+=1
     
438.         WEnd
     
439.         
     
440. EndFunc
     
441. Func _FullInfo()
     
442.         $result1=_GUICtrlListView_GetSelectedIndices($LevelView)+1
     
443.         MsgBox(4096,$LevelDiscrip[$result1],$FullInfo[$result1])
     
444. EndFunc
     
445. Func _XmlChange($TxtInfo)
     
446.         Dim $PreRead=StringSplit(StringStripWS($TxtInfo,1),"<")
     
447.         Dim $NextRead=StringSplit($PreRead[2],">")
     
448.         Return $NextRead[2]
     
449. EndFunc
     
450. 
     
451. Func _RunImageX()
     
452.         
     
453.         FileInstall('bcdboot.exe',@TempDir&'\bcdboot.exe')
     
454.         FileInstall('fixletter.cmd',@TempDir&'\fixletter.cmd')
     
455.         FileInstall('osletter7.cmd',@TempDir&'\osletter7.cmd')
     
456.         FileInstall("bootsect.exe", @TempDir&'\bootsect.exe',1)
     
457.         RunWait('cmd /c '&@TempDir&'\imagex.exe'&' /apply '&$FilePath& ' '&$LevelMode& ' '&$TarPar&' &' & _
     
458.                         ''&@TempDir&'\bcdboot.exe'&' '&$TarPar&'\windows /s '&$ActivePar&' /l '&$TarLan&' &' & _
     
459.                         ''&@TempDir&'\fixletter.cmd'&' /currentos:'&$TarPar&' &' & _
     
460.                         ''&@TempDir&'\osletter7.cmd'&' /targetletter:'&$TarPar&' /currentos:'&$ActivePar&' &' & _
     
461.                         ''&@TempDir&'\bootsect.exe /nt60 sys &' & _
     
462.                         ''&@TempDir&'\bootsect.exe /nt60 '&$ActivePar&' &' & _
     
463.                         'pause',@ScriptDir,@SW_MAXIMIZE)
     
464.         FileDelete(@TempDir&'\bcdboot.exe')
     
465.         FileDelete(@TempDir&'\fixletter.cmd')
     
466.         FileDelete(@TempDir&'\osletter7.cmd')
     
467.         FileDelete(@TempDir&'\bootsect.exe')
     
468. EndFunc
     
469. Func _DeleteDir()
     
470.         
     
471.         If FileExists($TarPar&'\windows') Then
     
472.                 TrayTip("文件操作","正在删除Windows文件夹",3000)
     
473.                 RunWait('cmd /c rd /s /q "'&$TarPar&'\windows"')
     
474.         EndIf
     
475.         If FileExists($TarPar&'\Program Files') Then
     
476.                 TrayTip("文件操作","正在删除Program Files文件夹",3000)
     
477.                 RunWait('cmd /c rd /s /q "'&$TarPar&'\Program Files"')
     
478.         EndIf
     
479.         If FileExists($TarPar&'\ProgramData') Then
     
480.                 TrayTip("文件操作","正在删除ProgramData文件夹",3000)
     
481.                 RunWait('cmd /c rd /s /q "'&$TarPar&'\ProgramData"')
     
482.         EndIf
     
483.         If FileExists($TarPar&'\Users') Then
     
484.                 TrayTip("文件操作","正在删除Users文件夹",3000)
     
485.                 RunWait('cmd /c rd /s /q "'&$TarPar&'\Users"')
     
486.         EndIf
     
487.         If FileExists($TarPar&'\PerfLogs') Then
     
488.                 TrayTip("文件操作","正在删除PerfLogs文件夹",3000)
     
489.                 RunWait('cmd /c rd /s /q "'&$TarPar&'\PerfLogs"')
     
490.         EndIf
     
491.         If FileExists($TarPar&'\Documents and Settings') Then
     
492.                 TrayTip("文件操作","正在删除PerfLogs文件夹",3000)
     
493.                 RunWait('cmd /c rd /s /q "'&$TarPar&'\Documents and Settings"')
     
494.         EndIf
     
495.         TrayTip("","",0)
     
496. EndFunc
     
497. Func _DeleteDirOld()
     
498.         
     
499.         If FileExists($TarPar&'\windows.old') Then
     
500.                 TrayTip("文件操作","正在删除Windows.old文件夹",3000)
     
501.                 RunWait('cmd /c rd /s /q "'&$TarPar&'\windows.old"')
     
502.         EndIf
     
503.         If FileExists($TarPar&'\Program Files.old') Then
     
504.                 TrayTip("文件操作","正在删除Program Files.old文件夹",3000)
     
505.                 RunWait('cmd /c rd /s /q "'&$TarPar&'\Program Files.old"')
     
506.         EndIf
     
507.         If FileExists($TarPar&'\ProgramData.old') Then
     
508.                 TrayTip("文件操作","正在删除ProgramData文件夹.old",3000)
     
509.                 RunWait('cmd /c rd /s /q "'&$TarPar&'\ProgramData.old"')
     
510.         EndIf
     
511.         If FileExists($TarPar&'\Users.old') Then
     
512.                 TrayTip("文件操作","正在删除Users.old文件夹",3000)
     
513.                 RunWait('cmd /c rd /s /q "'&$TarPar&'\Users.old"')
     
514.         EndIf
     
515.         If FileExists($TarPar&'\PerfLogs.old') Then
     
516.                 TrayTip("文件操作","正在删除PerfLogs.old文件夹",3000)
     
517.                 RunWait('cmd /c rd /s /q "'&$TarPar&'\PerfLogs.old"')
     
518.         EndIf
     
519.         If FileExists($TarPar&'\Documents and Settings.old') Then
     
520.                 TrayTip("文件操作","正在删除PerfLogs.old文件夹",3000)
     
521.                 RunWait('cmd /c rd /s /q "'&$TarPar&'\Documents and Settings.old"')
     
522.         EndIf
     
523.         RunWait('cmd /c ren "'&$TarPar&'\windows" "windows.old" &' & _
     
524.                         'ren "'&$TarPar&'\Program Files" "Program Files.old" &' & _
     
525.                         'ren "'&$TarPar&'\ProgramData" "ProgramData.old" &' & _
     
526.                         'ren "'&$TarPar&'\Users" "Users.old" &' & _
     
527.                         'ren "'&$TarPar&'\PerfLogs" "PerfLogs.old" &' & _
     
528.                         'ren "'&$TarPar&'\Documents and Settings" "Documents and Settings.old" &' & _
     
529.                         'pause')
     
530.         
     
531.         TrayTip("","",0)
     
532. EndFunc
     
533. Func _FormatIt()
     
534.         RunWait("cmd /c format /fs:ntfs /q /y " & $TarPar&'')
     
535. EndFunc
     
536. Func _renOld()
     
537.         FileSetAttrib ( $TarPar&'\ProgramData', "-RSH")
     
538.         FileSetAttrib ( $TarPar&'\Documents and Settings', "-RSH")
     
539.         Local $search = FileFindFirstFile($TarPar&"\*.*"),$result1=''
     
540. While 1
     
541. Dim $file = FileFindNextFile($search)
     
542. If @error Then ExitLoop
     
543. If $result1='' Then
     
544.         $result1='ren "'&$TarPar &'\'&$file&'" "'&$file&'.old"'
     
545. Else
     
546. $result1 =$result1 &' & ren "'&$TarPar &'\'&$file&'" "'&$file&'.old"'
     
547. EndIf
     
548. WEnd
     
549. RunWait("cmd /c " & $result1 &'','',@SW_HIDE)
     
550. EndFunc
     
551. 
     
552. ;//-------------------New----------------------------------------
     
553. Func _ImageX()
     
554.         Local $foo, $line, $lines, $currentRead
     
555.                 GUICtrlSetState($ProButton2,$gui_enable)
     
556.                 $foo =  Run('cmd /c '&@TempDir&'\imagex.exe'&' /apply '&$FilePath& ' '&$LevelMode& ' '&$TarPar&' ', @ScriptDir, @SW_HIDE, $STDOUT_CHILD)
     
557.         While 1
     
558.                 $line = StdoutRead($foo)
     
559.                 If @error Then ExitLoop
     
560.                                 $msg = GUIGetMsg()
     
561.                                 Select
     
562.                                         Case $msg =$ProButton2
     
563.                                        
     
564.                                                 If         $EditPage=1 Then
     
565.                                                         WinMove($title,"",Default,Default,Default,170)
     
566.                                                         GUICtrlSetData($ProButton2,"详细过程")
     
567.                                                         $EditPage=2
     
568.                                                 ElseIf $EditPage=2 Then
     
569.                                                         WinMove($title,"",Default,Default,Default,370)
     
570.                                                         GUICtrlSetData($ProButton2,"隐藏过程")
     
571.                                                         $EditPage=1
     
572.                                                 EndIf                        
     
573.                                 EndSelect
     
574.                                 
     
575.                                 GUICtrlSetData($ProgressEdit, $line, -1)
     
576.                                 Dim $Progress,$ProgressA,$ProgressB,$RemainTime='',$RemainTimeA,$RemainTimeB,$RemainTimeC
     
577.                                 If StringStripWS($line,8)<>"" Then
     
578.                                         Dim $TxtRead=StringStripCR($line)
     
579.                                         If StringInStr($TxtRead,"Applying progress") Then
     
580.                                                 $ProgressA=StringSplit($TxtRead,"]")
     
581.                                                 $ProgressB=StringSplit($ProgressA[1],"[")
     
582.                                                 $Progress=StringStripCR(StringStripWS($ProgressB[2],8))
     
583.                                         EndIf
     
584.                                         GUICtrlSetData($Progress1,StringTrimRight($Progress,1))
     
585.                                         GUICtrlSetData($ProLabe1,"文件解压进度： " &$Progress )
     
586.                                         If StringInStr($TxtRead,"remaining") Then
     
587.                                                 $RemainTimeA=StringSplit(StringLeft($TxtRead,StringLen($TxtRead)-10),"o")
     
588.                                                 $RemainTimeB=StringRight($RemainTimeA[2],StringLen($RemainTimeA[2])-7)
     
589.                                                 If StringInStr($RemainTimeB,"mins") Then
     
590.                                                         $RemainTimeC=StringSplit($RemainTimeB,":")
     
591.                                                         $RemainTime="剩余时间: "&$RemainTimeC[1]&" 分 "&StringLeft($RemainTimeC[2],2)&" 秒 "
     
592.                                                 ElseIf StringInStr($RemainTimeB,"sec") Then
     
593.                                                         $RemainTime=StringLeft(StringStripCR(StringStripWS($RemainTimeB,8)),2)
     
594.                                                         If StringRight($RemainTime,1)="s" Then $RemainTime=StringLeft($RemainTime,1)
     
595.                                                                 $RemainTime="剩余时间: "&$RemainTime&" 秒 "
     
596.                                                         EndIf
     
597.                                                 EndIf
     
598.                                         If $RemainTime <> '' Then
     
599.                                        
     
600.                                         GUICtrlSetData($ProLabe2,$RemainTime)
     
601.                         EndIf
     
602.                         If StringInStr($TxtRead,"Successfully") Then
     
603.                                 GUICtrlSetData($ProLabe2,"")
     
604.                                 GUICtrlSetData($ProLabe1,"文件解压进度： 完成  ")
     
605.                         EndIf
     
606.                 EndIf
     
607.         WEnd
     
608. EndFunc   
     
609. Func _FixLetter()
     
610.         Local $foo1, $line, $lines, $currentRead
     
611.         GUICtrlSetState($ProButton2,$gui_enable)
     
612.         FileInstall('fixletter.cmd',@TempDir&'\fixletter.cmd')
     
613.         ;RunWait("cmd /c echo "&@TempDir&'\fixletter.cmd'&' /currentos:'&$TarPar&' & pause', @ScriptDir)
     
614.         $foo1 =  Run("cmd /c "&@TempDir&'\fixletter.cmd'&' /currentos:'&$TarPar&' & pause', @ScriptDir, @SW_HIDE, $STDOUT_CHILD)
     
615.         While 1
     
616.                 $line = StdoutRead($foo1)
     
617.                 If @error Then ExitLoop
     
618.                                 
     
619.                                 $msg = GUIGetMsg()
     
620.                                 Select
     
621.                                         Case $msg =$ProButton2
     
622.                                        
     
623.                                                 If         $EditPage=1 Then
     
624.                                                         WinMove($title,"",Default,Default,Default,170)
     
625.                                                         GUICtrlSetData($ProButton2,"详细过程")
     
626.                                                         $EditPage=2
     
627.                                                 ElseIf $EditPage=2 Then
     
628.                                                         WinMove($title,"",Default,Default,Default,370)
     
629.                                                         GUICtrlSetData($ProButton2,"隐藏过程")
     
630.                                                         $EditPage=1
     
631.                                                 EndIf                        
     
632.                                         EndSelect
     
633.                                 GUICtrlSetData($ProgressEdit, $line, -1)        
     
634.                                 If StringStripWS($line,8)<>"" Then
     
635.                                         Dim $TxtRead=StringStripCR($line)
     
636.                                         If StringInStr($TxtRead,"Failure") Then
     
637.                                                 GUICtrlSetData($ProLabe4,"系统文件修正： 失败  (详情请查看详细过程）")
     
638.                                                 $FixRes=2
     
639.                                         ElseIf StringInStr($TxtRead,"Script completed") Then
     
640.                                                 GUICtrlSetData($ProLabe4,"系统文件修正： 成功")
     
641.                                                 $FixRes=1
     
642.                                         EndIf
     
643.                                 EndIf
     
644.         WEnd
     
645.                         
     
646.                                 If $FixRes=0 Then GUICtrlSetData($ProLabe4,"系统文件修正： 失败  (详情请查看详细过程）")
     
647.                                 FileDelete(@TempDir&'\fixletter.cmd')
     
648. EndFunc
     
649.         
     
650. Func _ChangeLetter()
     
651.         Local $foo2, $line, $lines, $currentRead
     
652.         FileInstall('osletter7.cmd',@TempDir&'\osletter7.cmd')
     
653.         $foo2 =  Run("cmd /c "&@TempDir&'\osletter7.cmd'&' /targetletter:'&$TarPar&' /currentos:'&$ActivePar&' ', @ScriptDir, @SW_HIDE, $STDOUT_CHILD)
     
654.         While 1
     
655.                 $line = StdoutRead($foo2)
     
656.                 If @error Then ExitLoop
     
657.                                 
     
658.                                 $msg = GUIGetMsg()
     
659.                                 Select
     
660.                                         Case $msg =$ProButton2
     
661.                                        
     
662.                                                 If         $EditPage=1 Then
     
663.                                                         WinMove($title,"",Default,Default,Default,170)
     
664.                                                         GUICtrlSetData($ProButton2,"详细过程")
     
665.                                                         $EditPage=2
     
666.                                                 ElseIf $EditPage=2 Then
     
667.                                                         WinMove($title,"",Default,Default,Default,370)
     
668.                                                         GUICtrlSetData($ProButton2,"隐藏过程")
     
669.                                                         $EditPage=1
     
670.                                                 EndIf                        
     
671.                                         EndSelect
     
672.                                 GUICtrlSetData($ProgressEdit, $line, -1)        
     
673.                                 If StringStripWS($line,8)<>"" Then
     
674.                                         Dim $TxtRead=StringStripCR($line)
     
675.                                         If StringInStr($TxtRead,"Failure") Then
     
676.                                                 GUICtrlSetData($ProLabe5,"系统盘符修正： 失败  (详情请查看详细过程）")
     
677.                                                 $ChangeRes=2
     
678.                                         ElseIf StringInStr($TxtRead,"Script completed") Then
     
679.                                                 GUICtrlSetData($ProLabe5,"系统盘符修正： 成功")
     
680.                                                 $ChangeRes=1
     
681.                                         EndIf
     
682.                                 EndIf
     
683.         WEnd
     
684.                                 If $ChangeRes=0 Then GUICtrlSetData($ProLabe5,"系统文件修正： 失败  (详情请查看详细过程）")
     
685.                                 FileDelete(@TempDir&'\osletter7.cmd')
     
686.                                 FileInstall("bootsect.exe", @TempDir&'\bootsect.exe',1)
     
687.                                 RunWait('cmd /c '&@TempDir&'\bootsect.exe /nt60 sys &' & _
     
688.                                                         ''&@TempDir&'\bootsect.exe /nt60 '&$ActivePar&' ', "",@SW_HIDE)
     
689.                                 FileDelete(@TempDir&'\bootsect.exe')
     
690. EndFunc
     
691.                         
     
692. Func _FixBoot()
     
693.         Local $foo3, $line, $lines, $currentRead
     
694.         FileInstall('bcdboot.exe',@TempDir&'\bcdboot.exe')
     
695.         $foo3 =  Run("cmd /c "&@TempDir&'\bcdboot.exe'&' '&$TarPar&'\windows /s '&$ActivePar&' /l '&$TarLan&' ', @ScriptDir, @SW_HIDE, $STDOUT_CHILD)
     
696.         While 1
     
697.                 $line = StdoutRead($foo3)
     
698.                 If @error Then ExitLoop
     
699.                                 
     
700.                                 $msg = GUIGetMsg()
     
701.                                 Select
     
702.                                         Case $msg =$ProButton2
     
703.                                        
     
704.                                                 If         $EditPage=1 Then
     
705.                                                         WinMove($title,"",Default,Default,Default,170)
     
706.                                                         GUICtrlSetData($ProButton2,"详细过程")
     
707.                                                         $EditPage=2
     
708.                                                 ElseIf $EditPage=2 Then
     
709.                                                         WinMove($title,"",Default,Default,Default,370)
     
710.                                                         GUICtrlSetData($ProButton2,"隐藏过程")
     
711.                                                         $EditPage=1
     
712.                                                 EndIf                        
     
713.                                         EndSelect
     
714.                                 GUICtrlSetData($ProgressEdit, $line, -1)        
     
715.                                 If StringStripWS($line,8)<>"" Then
     
716.                                         Dim $TxtRead=StringStripCR($line)
     
717.                                         If StringInStr($TxtRead,"Failure") Then
     
718.                                                 GUICtrlSetData($ProLabe3,"引导文件修复： 失败  (详情请查看详细过程）")
     
719.                                                 $BootRes=2
     
720.                                         ElseIf StringInStr($TxtRead,"successfully") Then
     
721.                                                 GUICtrlSetData($ProLabe3,"引导文件修复： 成功")
     
722.                                                 $BootRes=1
     
723.                                         EndIf
     
724.                                 EndIf
     
725.         WEnd
     
726.                                 If $BootRes=0 Then GUICtrlSetData($ProLabe3,"引导文件修复： 失败  (详情请查看详细过程）")
     
727.                                 FileDelete(@TempDir&'\bcdboot.exe')
     
728. EndFunc
     
729.                         

复制代码

极度凶残

不错！很好用，谢谢楼主

yyjdelete

把图片扩展名改成jpg重新上传应该就可以显示了

201234

xuexiang 发表于 2010-5-4 09:54
哎
没有账号
没有邀请码

我有。。。。。。。。。。。。。。。。。。。。

865g

特意来学习一下

令狐大虾

只发源码却没有成品下载啊

2012w60711

想要AU3源碼+1
先感謝分享~~~