难得的东西（分享）小兵资料转移工具V3.0 au3源码

风一样的男孩

1. #include <GUIConstants.au3>
2. Opt("TrayIconHide", 1)
3. ;设置热键==================================================
4. HotKeySet("{Esc}", "quit")
5. Func quit()
6. DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $main, "int", 300, "long", 0x00050010)
7. exit
8. EndFunc
9. ;建立窗口==================================================
10. FileInstall("logo_bak.jpg",@TempDir&"\logo_bak.jpg")
11. $main = GUICreate ("个人资料转移工具V3.0",400,300,-1,-1)
12. GuiCtrlCreatePic(@TempDir&"\logo_bak.jpg",0,0, 400,90)
13. GUICtrlCreateLabel("│",260,281,120,16)
14. GUICtrlSetFont(-1, 16, 100, 0, "宋体")
15. GUICtrlSetState(-1, $GUI_DISABLE)
16. $link=GUICtrlCreateLabel("深度技术 小兵作品",280,284,110,12)
17. GUIctrlSetCursor($link,0)
18. $bar = GUICtrlCreateLabel("欢迎使用个人资料转移工具 V3.0",10,284,250,12)
19. FileDelete(@TempDir&"\logo_bak.jpg")
20. $DesktopDir=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop")
21. $DocDir=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Personal")
22. $FavorDir=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Favorites")
23. $CookiesDir=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Cookies")
24. $TempDir=RegRead("HKEY_CURRENT_USER\Environment","TEMP")
25. $CacheDir=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Cache")
26. $HistoryDir=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","History")
27. $RecentDir=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Recent")
28. ;------------------------
29. GUICtrlCreateTab (2,90,398,190)
31. GUICtrlCreateTabitem(" 文档数据 ")
32. $box_11 = GUICtrlCreateCheckbox ("我的文档", 30, 125, 65, 15)
33. GuiCtrlSetState(-1, $GUI_CHECKED)
34. $box_12 = GUICtrlCreateCheckbox ("收藏夹", 30, 150, 65, 15)
35. GuiCtrlSetState(-1, $GUI_CHECKED)
36. $box_13 = GUICtrlCreateCheckbox ("Cookies", 30, 175, 65, 15)
37. $box_14 = GUICtrlCreateCheckbox ("桌面文件", 30, 200, 65, 15)
38. $put_11 = GUICtrlCreateInput(@MyDocumentsDir, 100, 125, 270, 18, -1)
39. GUICtrlSetState(-1, $GUI_DISABLE)
40. $put_12 = GUICtrlCreateInput(@FavoritesDir, 100, 150, 270, 18, -1)
41. GUICtrlSetState(-1, $GUI_DISABLE)
42. $put_13 = GUICtrlCreateInput($CookiesDir, 100, 175, 270, 18, -1)
43. GUICtrlSetState(-1, $GUI_DISABLE)
44. $put_14 = GUICtrlCreateInput(@DesktopDir, 100, 200, 270, 18, -1)
45. GUICtrlSetState(-1, $GUI_DISABLE)
46. $group_1 = GUICtrlCreateGroup ("转移选项", 20, 230, 186, 40)
47. $box_15 = GUICtrlCreateCheckbox ("更改目录", 30, 246, 65, 15)
48. GuiCtrlSetState(-1, $GUI_CHECKED)
49. $box_16 = GUICtrlCreateCheckbox ("转移文档数据", 110, 246, 90, 15)
50. GuiCtrlSetState(-1, $GUI_CHECKED)
51. $var = DriveGetDrive( "FIXED" )
52. $disk = GUICtrlCreateCombo ("C:", 225,244,60,20,$CBS_DROPDOWNLIST)
53. if $var[0] = 2 then
54. GUICtrlSetData(-1,"D:","D:")
55. endif
56. if $var[0] = 3 then
57. GUICtrlSetData(-1,"D:|E:","D:")
58. endif
59. if $var[0] = 4 then
60. GUICtrlSetData(-1,"D:|E:|F:","D:")
61. endif
62. if $var[0] = 5 then
63. GUICtrlSetData(-1,"D:|E:|F:|G:","D:")
64. endif
65. if $var[0] > 5 then
66. GUICtrlSetData(-1,"D:|E:|F:|G:|H:","D:")
67. endif
68. $button_1 = GUICtrlCreateButton ("移 动", 305, 242, 60, 22)
69. ;------------------------
70. GUICtrlCreateTabitem(" 临时文件 ")
71. $box_21 = GUICtrlCreateCheckbox ("临时目录", 30, 125, 65, 15)
72. GuiCtrlSetState(-1, $GUI_CHECKED)
73. $box_22 = GUICtrlCreateCheckbox ("IE缓存", 30, 150, 65, 15)
74. GuiCtrlSetState(-1, $GUI_CHECKED)
75. $box_23 = GUICtrlCreateCheckbox ("历史记录", 30, 175, 65, 15)
76. $box_24 = GUICtrlCreateCheckbox ("最近文档", 30, 200, 65, 15)
77. $put_21 = GUICtrlCreateInput(@TempDir, 100, 125, 270, 18, -1)
78. GUICtrlSetState(-1, $GUI_DISABLE)
79. $put_22 = GUICtrlCreateInput($CacheDir, 100, 150, 270, 18, -1)
80. GUICtrlSetState(-1, $GUI_DISABLE)
81. $put_23 = GUICtrlCreateInput($HistoryDir, 100, 175, 270, 18, -1)
82. GUICtrlSetState(-1, $GUI_DISABLE)
83. $put_24 = GUICtrlCreateInput($RecentDir, 100, 200, 270, 18, -1)
84. GUICtrlSetState(-1, $GUI_DISABLE)
85. $group_2 = GUICtrlCreateGroup ("转移选项", 20, 230, 186, 40)
86. $box_25 = GUICtrlCreateCheckbox ("更改目录", 30, 246, 65, 15)
87. GuiCtrlSetState(-1, $GUI_CHECKED)
88. $box_26 = GUICtrlCreateCheckbox ("清空临时目录", 110, 246, 90, 15)
89. GuiCtrlSetState(-1, $GUI_CHECKED)
90. $var = DriveGetDrive( "FIXED" )
91. $disk = GUICtrlCreateCombo ("C:", 225,244,60,20,$CBS_DROPDOWNLIST)
92. if $var[0] = 2 then
93. GUICtrlSetData(-1,"D:","D:")
94. endif
95. if $var[0] = 3 then
96. GUICtrlSetData(-1,"D:|E:","D:")
97. endif
98. if $var[0] = 4 then
99. GUICtrlSetData(-1,"D:|E:|F:","D:")
100. endif
101. if $var[0] = 5 then
102. GUICtrlSetData(-1,"D:|E:|F:|G:","D:")
103. endif
104. if $var[0] > 5 then
105. GUICtrlSetData(-1,"D:|E:|F:|G:|H:","D:")
106. endif
107. $button_2 = GUICtrlCreateButton ("移 动", 305, 242, 60, 22)
108. ;------------------------
109. GUICtrlCreateTabitem(" 程序及菜单 ")
110. $box_31 = GUICtrlCreateCheckbox ("自定义一", 30, 125, 65, 15)
111. GuiCtrlSetState(-1, $GUI_CHECKED)
112. $box_32 = GUICtrlCreateCheckbox ("自定义二", 30, 150, 65, 15)
113. GuiCtrlSetState(-1, $GUI_CHECKED)
114. $box_33 = GUICtrlCreateCheckbox ("自定义三", 30, 175, 65, 15)
115. GuiCtrlSetState(-1, $GUI_CHECKED)
116. $box_34 = GUICtrlCreateCheckbox ("自定义四", 30, 200, 65, 15)
117. GuiCtrlSetState(-1, $GUI_CHECKED)
118. $put_31 = GUICtrlCreateInput("", 100, 125, 200, 18, -1)
119. $put_32 = GUICtrlCreateInput("", 100, 150, 200, 18, -1)
120. $put_33 = GUICtrlCreateInput("", 100, 175, 200, 18, -1)
121. $put_34 = GUICtrlCreateInput("", 100, 200, 200, 18, -1)
122. $open_31 = GUICtrlCreateButton ("浏 览", 305, 123, 60, 22)
123. $open_32 = GUICtrlCreateButton ("浏 览", 305, 148, 60, 22)
124. $open_33 = GUICtrlCreateButton ("浏 览", 305, 173, 60, 22)
125. $open_34 = GUICtrlCreateButton ("浏 览", 305, 198, 60, 22)
126. $group_3 = GUICtrlCreateGroup ("开始菜单", 20, 230, 186, 40)
127. $box_35 = GUICtrlCreateCheckbox ("当前用户", 30, 246, 65, 15)
128. $box_36 = GUICtrlCreateCheckbox ("所有用户", 110, 246, 90, 15)
129. $var = DriveGetDrive( "FIXED" )
130. $disk = GUICtrlCreateCombo ("C:", 225,244,60,20,$CBS_DROPDOWNLIST)
131. if $var[0] = 2 then
132. GUICtrlSetData(-1,"D:","D:")
133. endif
134. if $var[0] = 3 then
135. GUICtrlSetData(-1,"D:|E:","D:")
136. endif
137. if $var[0] = 4 then
138. GUICtrlSetData(-1,"D:|E:|F:","D:")
139. endif
140. if $var[0] = 5 then
141. GUICtrlSetData(-1,"D:|E:|F:|G:","D:")
142. endif
143. if $var[0] > 5 then
144. GUICtrlSetData(-1,"D:|E:|F:|G:|H:","D:")
145. endif
146. $button_3 = GUICtrlCreateButton ("移 动", 305, 242, 60, 22)
147. ;------------------------
148. GUICtrlCreateTabitem(" 恢复默认值 ")
149. $group_41 = GUICtrlCreateGroup ("可恢复的项目", 20, 120, 360, 105)
150. GUICtrlCreateLabel("恢复功能适用于2000/XP/2003系统，对98仅提供部分支持",50,140,320,15)
151. $box_41 = GUICtrlCreateCheckbox ("我的文档", 50, 160, 65, 15)
152. $box_42 = GUICtrlCreateCheckbox ("收藏夹", 50, 180, 65, 15)
153. $box_43 = GUICtrlCreateCheckbox ("桌面路径", 50, 200, 65, 15)
154. $box_44 = GUICtrlCreateCheckbox ("Cookies", 170, 160, 65, 15)
155. $box_45 = GUICtrlCreateCheckbox ("IE缓存", 170, 180, 65, 15)
156. $box_46 = GUICtrlCreateCheckbox ("历史记录", 170, 200, 65, 15)
157. $box_47 = GUICtrlCreateCheckbox ("临时目录", 290, 160, 65, 15)
158. $box_48 = GUICtrlCreateCheckbox ("最近文档", 290, 180, 65, 15)
159. $box_49 = GUICtrlCreateCheckbox ("共享文档", 290, 200, 65, 15)
160. $group_4 = GUICtrlCreateGroup ("恢复选项", 20, 230, 186, 40)
161. $box_51 = GUICtrlCreateCheckbox ("恢复目录", 30, 246, 65, 15)
162. GuiCtrlSetState(-1, $GUI_CHECKED)
163. $box_52 = GUICtrlCreateCheckbox ("转移文档数据", 110, 246, 90, 15)
164. GuiCtrlSetState(-1, $GUI_CHECKED)
165. $button_4 = GUICtrlCreateButton ("恢复系统默认", 245, 242, 120, 22)
166. ;------------------------
167. GUICtrlCreateTabitem(" 使用说明 ")
168. $1 = GUICtrlCreateLabel("本程序为绿色软件，用于重装系统前后的目录更改及数据备份",30,130,330,15)
169. $1 = GUICtrlCreateLabel("可将文档数据、临时文件及自定义的绿色软件移动到指定位置",30,150,330,15)
170. $2 = GUICtrlCreateLabel("其中，桌面、收藏夹、cookies将移动到“我的文档”目录下",30,170,330,15)
171. $3 = GUICtrlCreateLabel("IE缓存、历史记录、最近的文档将移动到临时目录“TEMP”下",30,190,330,15)
172. $4 = GUICtrlCreateLabel("自定义项目可以复制一些绿色软件到D盘的“我的文档”目录下",30,210,330,15)
173. $5 = GUICtrlCreateLabel("软件目录将以时间命名，开始菜单也可备份到“我的文档”下",30,230,330,15)
174. $6 = GUICtrlCreateLabel("您还可以恢复一些目录的默认路径，同时可转移目录内的文件",30,250,330,15)
176. ;------------------------
177. GUISetState(@SW_SHOW)
178. While 1
179. $msg = GUIGetMsg()
180. Select
181. Case $msg = $open_31
182. $program1 = FileSelectFolder ("", "c:\", "5", @ProgramFilesDir)
183.   IF $program1 Then
184.   GUICtrlSetData($put_31,$program1)
185.   EndIf
186. Case $msg = $open_32
187. $program2 = FileSelectFolder ("", "c:\", "5", @ProgramFilesDir)
188.   IF $program2 Then
189.   GUICtrlSetData($put_32,$program2)
190.   EndIf
191. Case $msg = $open_33
192. $program3 = FileSelectFolder ("", "c:\", "5", @ProgramFilesDir)
193.   IF $program3 Then
194.   GUICtrlSetData($put_33,$program3)
195.   EndIf
196. Case $msg = $open_34
197. $program4 = FileSelectFolder ("", "c:\", "5", @ProgramFilesDir)
198.   IF $program4 Then
199.   GUICtrlSetData($put_34,$program4)
200.   EndIf
201.       Case $msg = $button_1
202. IF GUICtrlRead ($disk) = "C:" THEN
203. $a= "C:"
204. ENDIF
205. IF GUICtrlRead ($disk) = "D:" THEN
206. $a= "D:"
207. ENDIF
208. IF GUICtrlRead ($disk) = "E:" THEN
209. $a= "E:"
210. ENDIF
211. IF GUICtrlRead ($disk) = "F:" THEN
212. $a= "F:"
213. ENDIF
214. IF GUICtrlRead ($disk) = "G:" THEN
215. $a= "G:"
216. ENDIF
217. IF GUICtrlRead ($disk) = "H:" THEN
218. $a= "H:"
219. ENDIF
220.       if GUICtrlRead ( $box_11 )=1 then
221.         mydoc()
222.       endif
223.       if GUICtrlRead ( $box_12 )=1 then
224.         Favor()
225.       endif
226.       if GUICtrlRead ( $box_13 )=1 then
227.         Cookies()
228.       endif
229.       if GUICtrlRead ( $box_14 )=1 then
230.         desktop()
231.       endif
232. MsgBox (0+64,"完成", "文档数据转移完成！注销或重启后生效！")
233.       Case $msg = $button_2
234. IF GUICtrlRead ($disk) = "C:" THEN
235. $a= "C:"
236. ENDIF
237. IF GUICtrlRead ($disk) = "D:" THEN
238. $a= "D:"
239. ENDIF
240. IF GUICtrlRead ($disk) = "E:" THEN
241. $a= "E:"
242. ENDIF
243. IF GUICtrlRead ($disk) = "F:" THEN
244. $a= "F:"
245. ENDIF
246. IF GUICtrlRead ($disk) = "G:" THEN
247. $a= "G:"
248. ENDIF
249. IF GUICtrlRead ($disk) = "H:" THEN
250. $a= "H:"
251. ENDIF
252. if GUICtrlRead ( $box_26 )=1 then
253. _Dirremove(@tempdir)
254. ENDIF
255.       if GUICtrlRead ( $box_21 )=1 then
256.         Temp()
257.       endif
258.       if GUICtrlRead ( $box_22 )=1 then
259.         IETemp()
260.       endif
261.       if GUICtrlRead ( $box_23 )=1 then
262.         History()
263.       endif
264.       if GUICtrlRead ( $box_24 )=1 then
265.         Recent()
266.       endif
267. MsgBox (0+64,"完成", "临时文件转移完成！注销或重启后生效！")
268.       Case $msg = $button_3
269. IF GUICtrlRead ($disk) = "C:" THEN
270. $a= "C:"
271. ENDIF
272. IF GUICtrlRead ($disk) = "D:" THEN
273. $a= "D:"
274. ENDIF
275. IF GUICtrlRead ($disk) = "E:" THEN
276. $a= "E:"
277. ENDIF
278. IF GUICtrlRead ($disk) = "F:" THEN
279. $a= "F:"
280. ENDIF
281. IF GUICtrlRead ($disk) = "G:" THEN
282. $a= "G:"
283. ENDIF
284. IF GUICtrlRead ($disk) = "H:" THEN
285. $a= "H:"
286. ENDIF
287.       if GUICtrlRead ( $box_31 )=1 then
288.         pro1()
289.       endif
290.       if GUICtrlRead ( $box_32 )=1 then
291.         pro2()
292.       endif
293.       if GUICtrlRead ( $box_33 )=1 then
294.         pro3()
295.       endif
296.       if GUICtrlRead ( $box_34 )=1 then
297.         pro4()
298.       endif
299.         start()
300. MsgBox (0+64,"完成", "操作成功！程序已复制到“我的文档”目录下！")
301.       Case $msg = $button_4
302.       if GUICtrlRead ( $box_41 )=1 then
303.         reset1()
304.       endif
305.       if GUICtrlRead ( $box_42 )=1 then
306.         reset2()
307.       endif
308.       if GUICtrlRead ( $box_43 )=1 then
309.         reset3()
310.       endif
311.       if GUICtrlRead ( $box_44 )=1 then
312.         reset4()
313.       endif
314.       if GUICtrlRead ( $box_45 )=1 then
315.         reset5()
316.       endif
317.       if GUICtrlRead ( $box_46 )=1 then
318.         reset6()
319.       endif
320.       if GUICtrlRead ( $box_47 )=1 then
321.         reset7()
322.       endif
323.       if GUICtrlRead ( $box_48 )=1 then
324.         reset8()
325.       endif
326.       if GUICtrlRead ( $box_49 )=1 then
327.         reset9()
328.       endif
329. MsgBox (0+64,"完成", "默认设置恢复成功！注销或重启后生效！")
330.       Case $msg = $link
331.       run(@ProgramFilesDir & "\Internet Explorer\IEXPLORE.EXE http://goto.blog.edu.cn")
332.       Case $msg = $GUI_EVENT_CLOSE
333.       quit()
334.     EndSelect
335. Wend
336. ;==================== 转移文档数据 =====================
337. func mydoc()
338. if GUICtrlRead ( $box_15 )=1 then
339. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Personal","REG_SZ",$a & "\我的文档")
340. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","My Pictures","REG_SZ",$a & "\我的文档\My Pictures")
341. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","My Music","REG_SZ",$a & "\我的文档\My Music")
342. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","My Video","REG_SZ",$a & "\我的文档\My Videos")
343. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Personal","REG_EXPAND_SZ",$a & "\我的文档")
344. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","My Music","REG_EXPAND_SZ",$a & "\我的文档\My Music")
345. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","My Pictures","REG_EXPAND_SZ",$a & "\我的文档\My Pictures")
346. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","My Video","REG_EXPAND_SZ",$a & "\我的文档\My Videos")
347. regwrite("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Cache","REG_SZ",$a & "\我的文档")
348. regwrite("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Download Directory","REG_SZ",$a & "\我的文档")
349. endif
350. if GUICtrlRead ( $box_16 )=1 then
351. DirCreate($a & "\我的文档\")
352. if @OSType="WIN32_NT" then
353. DirCopy($DocDir, $a&"\我的文档\",1)
354. fileCopy($DocDir&"\*.*", $a&"\我的文档\",1)
355. else
356. DirCopy("C:\My Documents\",$a&"\我的文档\",1)
357. filecopy ("C:\My Documents\*.*",$a&"\我的文档\",1)
358. endif
359. endif
360. endfunc
361. func desktop()
362. if GUICtrlRead ( $box_15 )=1 then
363. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop","REG_SZ",$a & "\我的文档\桌面")
364. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Desktop","REG_EXPAND_SZ",$a & "\我的文档\桌面")
365. regwrite("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop","REG_SZ",$a & "\我的文档\桌面")
366. endif
367. if GUICtrlRead ( $box_16 )=1 then
368. DirCreate($a & "\我的文档\桌面")
369. if @OSType="WIN32_NT" then
370. DirCopy($DesktopDir, $a&"\我的文档\桌面\",1)
371. fileCopy($DesktopDir&"\*.*", $a&"\我的文档\桌面\",1)
372. DirCopy("C:\Docume~1\" [url=mailto:&@username]&@username[/url]& "\桌面\", $a&"\我的文档\桌面\",1)
373. DirCopy("C:\Docume~1\all users\桌面\", $a&"\我的文档\桌面\",1)
374. filecopy ("C:\Docume~1\all users\桌面\*.*", $a&"\我的文档\桌面\",1)
375. filecopy ("C:\Docume~1\" [url=mailto:&@username]&@username[/url]& "\桌面\*.*",$a&"\我的文档\桌面\",1)
376. else
377. DirCopy("C:\WINDOWS\Desktop\",$a&"\我的文档\桌面\",1)
378. filecopy ("C:\WINDOWS\Desktop\*.*",$a&"\我的文档\桌面\",1)
379. endif
380. endif
381. endfunc
382. func Favor()
383. if GUICtrlRead ( $box_15 )=1 then
384. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Favorites","REG_SZ",$a & "\我的文档\收藏夹")
385. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Favorites","REG_EXPAND_SZ",$a & "\我的文档\收藏夹")
386. endif
387. if GUICtrlRead ( $box_16 )=1 then
388. DirCreate($a & "\我的文档\收藏夹")
389. if @OSType="WIN32_NT" then
390. DirCopy($FavorDir, $a&"\我的文档\收藏夹\",1)
391. fileCopy($FavorDir&"\*.*", $a&"\我的文档\收藏夹\",1)
392. else
393. DirCopy("C:\WINDOWS\Favori~1\",$a&"\我的文档\收藏夹\",1)
394. filecopy ("C:\WINDOWS\Favori~1\*.*",$a&"\我的文档\收藏夹\",1)
395. endif
396. endif
397. endfunc
398. func Cookies()
399. if GUICtrlRead ( $box_15 )=1 then
400. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Cookies","REG_SZ",$a & "\我的文档\Cookies")
401. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Cookies","REG_EXPAND_SZ",$a & "\我的文档\Cookies")
402. endif
403. if GUICtrlRead ( $box_16 )=1 then
404. DirCreate($a & "\我的文档\Cookies")
405. DirCopy($CookiesDir, $a&"\我的文档\Cookies\",1)
406. fileCopy($CookiesDir&"\*.*", $a&"\我的文档\Cookies\",1)
407. endif
408. endfunc
409. ;==================== 转移临时目录 =====================
410. func Temp()
411. if GUICtrlRead ( $box_25 )=1 then
412. DirCreate($a & "\Temp\FileTemp")
413. regwrite("HKEY_CURRENT_USER\Environment","TEMP","REG_EXPAND_SZ",$a & "\TEMP\FileTemp")
414. regwrite("HKEY_CURRENT_USER\Environment","TMP","REG_EXPAND_SZ",$a & "\TEMP\FileTemp")
415. endif
416. endfunc
417. func IETemp()
418. if GUICtrlRead ( $box_25 )=1 then
419. DirCreate($a & "\Temp\IETemp")
420. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Cache","REG_SZ",$a & "\Temp\IETemp")
421. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Cache","REG_EXPAND_SZ",$a & "\Temp\IETemp")
422. endif
423. endfunc
424. func History()
425. if GUICtrlRead ( $box_25 )=1 then
426. DirCreate($a & "\Temp\History")
427. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","History","REG_SZ",$a & "\Temp\History")
428. endif
429. endfunc
430. func Recent()
431. if GUICtrlRead ( $box_25 )=1 then
432. DirCreate($a & "\Temp\FileTemp\Recent")
433. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Recent","REG_SZ",$a & "\Temp\FileTemp\Recent")
434. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Recent","REG_EXPAND_SZ",$a & "\Temp\FileTemp\Recent")
435. endif
436. endfunc
437. ;==================== 自定义转移 =====================
438. func pro1()
439. if GUICtrlRead ( $put_31 ) <>"" then
440. DirCopy($program1, $a&"\我的文档\我的程序\"[url=mailto:&@YEAR&@MON&@MDAY&@HOUR&@MIN&@SEC,1]&@YEAR&@MON&@MDAY&@HOUR&@MIN&@SEC,1[/url])
441. sleep(1000)
442. EndIf
443. endfunc
444. func pro2()
445. if GUICtrlRead ( $put_32 ) <>"" then
446. DirCopy($program2, $a&"\我的文档\我的程序\"[url=mailto:&@YEAR&@MON&@MDAY&@HOUR&@MIN&@SEC,1]&@YEAR&@MON&@MDAY&@HOUR&@MIN&@SEC,1[/url])
447. sleep(1000)
448. EndIf
449. endfunc
450. func pro3()
451. if GUICtrlRead ( $put_33 ) <>"" then
452. DirCopy($program3, $a&"\我的文档\我的程序\"[url=mailto:&@YEAR&@MON&@MDAY&@HOUR&@MIN&@SEC,1]&@YEAR&@MON&@MDAY&@HOUR&@MIN&@SEC,1[/url])
453. sleep(1000)
454. EndIf
455. endfunc
456. func pro4()
457. if GUICtrlRead ( $put_34 ) <>"" then
458. DirCopy($program4, $a&"\我的文档\我的程序\"[url=mailto:&@YEAR&@MON&@MDAY&@HOUR&@MIN&@SEC,1]&@YEAR&@MON&@MDAY&@HOUR&@MIN&@SEC,1[/url])
459. EndIf
460. endfunc
461. func start()
462. if GUICtrlRead ( $box_35 )=1 then
463. DirCopy("C:\Docume~1\" [url=mailto:&@username]&@username[/url]& "\「开始」菜单\", $a&"\我的文档\「开始」菜单\",1)
464. EndIf
465. if GUICtrlRead ( $box_36 )=1 then
466. DirCopy("C:\Docume~1\all users\「开始」菜单\", $a&"\我的文档\「开始」菜单\",1)
467. EndIf
468. endfunc
469. ;==================== 恢复默认目录 =====================
470. func reset1()
471. if @OSType="WIN32_NT" then
472. $reset1 = "C:\Documents and Settings\" [url=mailto:&@username]&@username[/url]& "\My Documents"
473. else
474. $reset1 = "C:\My Documents"
475. endif
476. $DocDir=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Personal")
477. if GUICtrlRead ( $box_51 )=1 then
478. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Personal","REG_SZ", $reset1)
479. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","My Pictures","REG_SZ",$reset1 & "\My Pictures")
480. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","My Music","REG_SZ",$reset1 & "\My Music")
481. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","My Video","REG_SZ",$reset1 & "\My Videos")
482. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Personal","REG_EXPAND_SZ", "%USERPROFILE%\My Documents")
483. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","My Music","REG_EXPAND_SZ", "%USERPROFILE%\My Documents\My Music")
484. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","My Pictures","REG_EXPAND_SZ", "%USERPROFILE%\My Documents\My Pictures")
485. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","My Video","REG_EXPAND_SZ", "%USERPROFILE%\My Documents\My Videos")
486. regwrite("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Cache","REG_SZ",$reset1)
487. regwrite("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Download Directory","REG_SZ",$reset1)
488. endif
489. if GUICtrlRead ( $box_52 )=1 then
490. DirCopy($DocDir, $reset1,1)
491. fileCopy($DocDir&"\*.*", $reset1,1)
492. endif
493. endfunc
494. func reset2()
495. if @OSType="WIN32_NT" then
496. $reset2 = "C:\Documents and Settings\" [url=mailto:&@username]&@username[/url]& "\Favorites"
497. else
498. $reset2 = "C:\WINDOWS\Favorites"
499. endif
500. $FavorDir=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Favorites")
501. if GUICtrlRead ( $box_51 )=1 then
502. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Favorites","REG_SZ", $reset2)
503. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Favorites","REG_EXPAND_SZ", "%USERPROFILE%\Favorites")
504. endif
505. if GUICtrlRead ( $box_52 )=1 then
506. DirCopy($FavorDir, $reset2 ,1)
507. fileCopy($FavorDir&"\*.*", $reset2 ,1)
508. endif
509. endfunc
510. func reset3()
511. if @OSType="WIN32_NT" then
512. $reset3 = "C:\Documents and Settings\" [url=mailto:&@username]&@username[/url]& "\桌面"
513. else
514. $reset3 = "C:\WINDOWS\Desktop"
515. endif
516. $DesktopDir=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop")
517. if GUICtrlRead ( $box_51 )=1 then
518. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop","REG_SZ", $reset3)
519. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Desktop","REG_EXPAND_SZ", "%USERPROFILE%\桌面")
520. regwrite("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop","REG_SZ", "%USERPROFILE%\桌面")
521. endif
522. if GUICtrlRead ( $box_52 )=1 then
523. DirCopy($DesktopDir, $reset3,1)
524. fileCopy($DesktopDir&"\*.*", $reset3, 1)
525. endif
526. endfunc
527. func reset4()
528. if @OSType="WIN32_NT" then
529. $reset4 = "C:\Documents and Settings\" [url=mailto:&@username]&@username[/url]& "\Cookies"
530. else
531. $reset4 = "C:\WINDOWS\Cookies"
532. endif
533. if GUICtrlRead ( $box_51 )=1 then
534. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Cookies","REG_SZ", $reset4)
535. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Cookies","REG_EXPAND_SZ", "%USERPROFILE%\Cookies")
536. endif
537. if GUICtrlRead ( $box_52 )=1 then
538. DirCopy($CookiesDir, $reset4,1)
539. fileCopy($CookiesDir&"\*.*", $reset4,1)
540. endif
541. endfunc
542. func reset5()
543. if GUICtrlRead ( $box_51 )=1 then
544. if @OSType="WIN32_NT" then
545. $reset5 = "C:\Documents and Settings\" [url=mailto:&@username]&@username[/url]& "\Local Settings\Temporary Internet Files"
546. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Cache","REG_EXPAND_SZ", "%USERPROFILE%\Local Settings\Temporary Internet Files")
547. else
548. $reset5 = "C:\WINDOWS\Temporary Internet Files"
549. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Cache","REG_EXPAND_SZ", $reset5)
550. endif
551. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Cache","REG_SZ", $reset5)
552. endif
553. endfunc
554. func reset6()
555. if @OSType="WIN32_NT" then
556. $reset6 = "C:\Documents and Settings\" [url=mailto:&@username]&@username[/url]& "\Local Settings\History"
557. else
558. $reset6 = "C:\WINDOWS\History"
559. endif
560. if GUICtrlRead ( $box_51 )=1 then
561. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","History","REG_SZ",$reset6)
562. endif
563. endfunc
564. func reset7()
565. if GUICtrlRead ( $box_51 )=1 then
566. if @OSType="WIN32_NT" then
567. regwrite("HKEY_CURRENT_USER\Environment","TEMP","REG_EXPAND_SZ", "%USERPROFILE%\Local Settings\Temp")
568. regwrite("HKEY_CURRENT_USER\Environment","TMP","REG_EXPAND_SZ", "%USERPROFILE%\Local Settings\Temp")
569. endif
570. endif
571. endfunc
572. func reset8()
573. if @OSType="WIN32_NT" then
574. $reset8 = "C:\Documents and Settings\" [url=mailto:&@username]&@username[/url]& "\Recent"
575. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Recent","REG_EXPAND_SZ","%USERPROFILE%\Recent")
576. else
577. $reset8 = "C:\WINDOWS\Recent"
578. endif
579. if GUICtrlRead ( $box_51 )=1 then
580. regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Recent","REG_SZ", $reset8)
581. endif
582. endfunc
583. func reset9()
584. if @OSType="WIN32_NT" then
585. if GUICtrlRead ( $box_51 )=1 then
586. regwrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Common Documents","REG_SZ", "C:\Documents and Settings\All Users\Documents")
587. regwrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Personal","REG_SZ", "C:\Documents and Settings\All Users\Documents")
588. regwrite("HKEY_CURRENT_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Common Documents","REG_EXPAND_SZ","%ALLUSERSPROFILE%\Documents")
589. endif
590. endif
591. endfunc
592. ;==================== 清理临时文件 =====================
593. Func _Dirremove($searchdir)
594. $search = FileFindFirstFile($searchdir & "\*.*")
595. If $search = -1 Then return
596. While 1
597. $file = FileFindNextFile($search)
598. If @error Then
599.   Exitloop
600. ElseIf stringinstr(FileGetAttrib($searchdir & "\" & $file),"D") then
601.   Dirremove($searchdir & "\" & $file,1)
602. ElseIF stringinstr(FileGetAttrib($searchdir & "\" & $file),"R") then
603.   FileSetAttrib($searchdir & "\" & $file,"-R")
604.   FileDelete($searchdir & "\" & $file)
605.   FileSetAttrib($searchdir & "\" & $file,"+R")
606. Else
607.   FileDelete($searchdir & "\" & $file)
608. EndIf  
609. WEnd
610. EndFunc

复制代码

tonychen

这个好东西哦