难得的东西（分享）小兵资料转移工具V3.0 au3源码
#include <GUIConstants.au3>Opt("TrayIconHide", 1)
;设置热键==================================================
HotKeySet("{Esc}", "quit")
Func quit()
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $main, "int", 300, "long", 0x00050010)
exit
EndFunc
;建立窗口==================================================
FileInstall("logo_bak.jpg",@TempDir&"\logo_bak.jpg")
$main = GUICreate ("个人资料转移工具V3.0",400,300,-1,-1)
GuiCtrlCreatePic(@TempDir&"\logo_bak.jpg",0,0, 400,90)
GUICtrlCreateLabel("│",260,281,120,16)
GUICtrlSetFont(-1, 16, 100, 0, "宋体")
GUICtrlSetState(-1, $GUI_DISABLE)
$link=GUICtrlCreateLabel("深度技术 小兵作品",280,284,110,12)
GUIctrlSetCursor($link,0)
$bar = GUICtrlCreateLabel("欢迎使用个人资料转移工具 V3.0",10,284,250,12)
FileDelete(@TempDir&"\logo_bak.jpg")
$DesktopDir=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop")
$DocDir=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Personal")
$FavorDir=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Favorites")
$CookiesDir=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Cookies")
$TempDir=RegRead("HKEY_CURRENT_USER\Environment","TEMP")
$CacheDir=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Cache")
$HistoryDir=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","History")
$RecentDir=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Recent")
;------------------------
GUICtrlCreateTab (2,90,398,190)
GUICtrlCreateTabitem(" 文档数据 ")
$box_11 = GUICtrlCreateCheckbox ("我的文档", 30, 125, 65, 15)
GuiCtrlSetState(-1, $GUI_CHECKED)
$box_12 = GUICtrlCreateCheckbox ("收藏夹", 30, 150, 65, 15)
GuiCtrlSetState(-1, $GUI_CHECKED)
$box_13 = GUICtrlCreateCheckbox ("Cookies", 30, 175, 65, 15)
$box_14 = GUICtrlCreateCheckbox ("桌面文件", 30, 200, 65, 15)
$put_11 = GUICtrlCreateInput(@MyDocumentsDir, 100, 125, 270, 18, -1)
GUICtrlSetState(-1, $GUI_DISABLE)
$put_12 = GUICtrlCreateInput(@FavoritesDir, 100, 150, 270, 18, -1)
GUICtrlSetState(-1, $GUI_DISABLE)
$put_13 = GUICtrlCreateInput($CookiesDir, 100, 175, 270, 18, -1)
GUICtrlSetState(-1, $GUI_DISABLE)
$put_14 = GUICtrlCreateInput(@DesktopDir, 100, 200, 270, 18, -1)
GUICtrlSetState(-1, $GUI_DISABLE)
$group_1 = GUICtrlCreateGroup ("转移选项", 20, 230, 186, 40)
$box_15 = GUICtrlCreateCheckbox ("更改目录", 30, 246, 65, 15)
GuiCtrlSetState(-1, $GUI_CHECKED)
$box_16 = GUICtrlCreateCheckbox ("转移文档数据", 110, 246, 90, 15)
GuiCtrlSetState(-1, $GUI_CHECKED)
$var = DriveGetDrive( "FIXED" )
$disk = GUICtrlCreateCombo ("C:", 225,244,60,20,$CBS_DROPDOWNLIST)
if $var = 2 then
GUICtrlSetData(-1,"D:","D:")
endif
if $var = 3 then
GUICtrlSetData(-1,"D:|E:","D:")
endif
if $var = 4 then
GUICtrlSetData(-1,"D:|E:|F:","D:")
endif
if $var = 5 then
GUICtrlSetData(-1,"D:|E:|F:|G:","D:")
endif
if $var > 5 then
GUICtrlSetData(-1,"D:|E:|F:|G:|H:","D:")
endif
$button_1 = GUICtrlCreateButton ("移 动", 305, 242, 60, 22)
;------------------------
GUICtrlCreateTabitem(" 临时文件 ")
$box_21 = GUICtrlCreateCheckbox ("临时目录", 30, 125, 65, 15)
GuiCtrlSetState(-1, $GUI_CHECKED)
$box_22 = GUICtrlCreateCheckbox ("IE缓存", 30, 150, 65, 15)
GuiCtrlSetState(-1, $GUI_CHECKED)
$box_23 = GUICtrlCreateCheckbox ("历史记录", 30, 175, 65, 15)
$box_24 = GUICtrlCreateCheckbox ("最近文档", 30, 200, 65, 15)
$put_21 = GUICtrlCreateInput(@TempDir, 100, 125, 270, 18, -1)
GUICtrlSetState(-1, $GUI_DISABLE)
$put_22 = GUICtrlCreateInput($CacheDir, 100, 150, 270, 18, -1)
GUICtrlSetState(-1, $GUI_DISABLE)
$put_23 = GUICtrlCreateInput($HistoryDir, 100, 175, 270, 18, -1)
GUICtrlSetState(-1, $GUI_DISABLE)
$put_24 = GUICtrlCreateInput($RecentDir, 100, 200, 270, 18, -1)
GUICtrlSetState(-1, $GUI_DISABLE)
$group_2 = GUICtrlCreateGroup ("转移选项", 20, 230, 186, 40)
$box_25 = GUICtrlCreateCheckbox ("更改目录", 30, 246, 65, 15)
GuiCtrlSetState(-1, $GUI_CHECKED)
$box_26 = GUICtrlCreateCheckbox ("清空临时目录", 110, 246, 90, 15)
GuiCtrlSetState(-1, $GUI_CHECKED)
$var = DriveGetDrive( "FIXED" )
$disk = GUICtrlCreateCombo ("C:", 225,244,60,20,$CBS_DROPDOWNLIST)
if $var = 2 then
GUICtrlSetData(-1,"D:","D:")
endif
if $var = 3 then
GUICtrlSetData(-1,"D:|E:","D:")
endif
if $var = 4 then
GUICtrlSetData(-1,"D:|E:|F:","D:")
endif
if $var = 5 then
GUICtrlSetData(-1,"D:|E:|F:|G:","D:")
endif
if $var > 5 then
GUICtrlSetData(-1,"D:|E:|F:|G:|H:","D:")
endif
$button_2 = GUICtrlCreateButton ("移 动", 305, 242, 60, 22)
;------------------------
GUICtrlCreateTabitem(" 程序及菜单 ")
$box_31 = GUICtrlCreateCheckbox ("自定义一", 30, 125, 65, 15)
GuiCtrlSetState(-1, $GUI_CHECKED)
$box_32 = GUICtrlCreateCheckbox ("自定义二", 30, 150, 65, 15)
GuiCtrlSetState(-1, $GUI_CHECKED)
$box_33 = GUICtrlCreateCheckbox ("自定义三", 30, 175, 65, 15)
GuiCtrlSetState(-1, $GUI_CHECKED)
$box_34 = GUICtrlCreateCheckbox ("自定义四", 30, 200, 65, 15)
GuiCtrlSetState(-1, $GUI_CHECKED)
$put_31 = GUICtrlCreateInput("", 100, 125, 200, 18, -1)
$put_32 = GUICtrlCreateInput("", 100, 150, 200, 18, -1)
$put_33 = GUICtrlCreateInput("", 100, 175, 200, 18, -1)
$put_34 = GUICtrlCreateInput("", 100, 200, 200, 18, -1)
$open_31 = GUICtrlCreateButton ("浏 览", 305, 123, 60, 22)
$open_32 = GUICtrlCreateButton ("浏 览", 305, 148, 60, 22)
$open_33 = GUICtrlCreateButton ("浏 览", 305, 173, 60, 22)
$open_34 = GUICtrlCreateButton ("浏 览", 305, 198, 60, 22)
$group_3 = GUICtrlCreateGroup ("开始菜单", 20, 230, 186, 40)
$box_35 = GUICtrlCreateCheckbox ("当前用户", 30, 246, 65, 15)
$box_36 = GUICtrlCreateCheckbox ("所有用户", 110, 246, 90, 15)
$var = DriveGetDrive( "FIXED" )
$disk = GUICtrlCreateCombo ("C:", 225,244,60,20,$CBS_DROPDOWNLIST)
if $var = 2 then
GUICtrlSetData(-1,"D:","D:")
endif
if $var = 3 then
GUICtrlSetData(-1,"D:|E:","D:")
endif
if $var = 4 then
GUICtrlSetData(-1,"D:|E:|F:","D:")
endif
if $var = 5 then
GUICtrlSetData(-1,"D:|E:|F:|G:","D:")
endif
if $var > 5 then
GUICtrlSetData(-1,"D:|E:|F:|G:|H:","D:")
endif
$button_3 = GUICtrlCreateButton ("移 动", 305, 242, 60, 22)
;------------------------
GUICtrlCreateTabitem(" 恢复默认值 ")
$group_41 = GUICtrlCreateGroup ("可恢复的项目", 20, 120, 360, 105)
GUICtrlCreateLabel("恢复功能适用于2000/XP/2003系统，对98仅提供部分支持",50,140,320,15)
$box_41 = GUICtrlCreateCheckbox ("我的文档", 50, 160, 65, 15)
$box_42 = GUICtrlCreateCheckbox ("收藏夹", 50, 180, 65, 15)
$box_43 = GUICtrlCreateCheckbox ("桌面路径", 50, 200, 65, 15)
$box_44 = GUICtrlCreateCheckbox ("Cookies", 170, 160, 65, 15)
$box_45 = GUICtrlCreateCheckbox ("IE缓存", 170, 180, 65, 15)
$box_46 = GUICtrlCreateCheckbox ("历史记录", 170, 200, 65, 15)
$box_47 = GUICtrlCreateCheckbox ("临时目录", 290, 160, 65, 15)
$box_48 = GUICtrlCreateCheckbox ("最近文档", 290, 180, 65, 15)
$box_49 = GUICtrlCreateCheckbox ("共享文档", 290, 200, 65, 15)
$group_4 = GUICtrlCreateGroup ("恢复选项", 20, 230, 186, 40)
$box_51 = GUICtrlCreateCheckbox ("恢复目录", 30, 246, 65, 15)
GuiCtrlSetState(-1, $GUI_CHECKED)
$box_52 = GUICtrlCreateCheckbox ("转移文档数据", 110, 246, 90, 15)
GuiCtrlSetState(-1, $GUI_CHECKED)
$button_4 = GUICtrlCreateButton ("恢复系统默认", 245, 242, 120, 22)
;------------------------
GUICtrlCreateTabitem(" 使用说明 ")
$1 = GUICtrlCreateLabel("本程序为绿色软件，用于重装系统前后的目录更改及数据备份",30,130,330,15)
$1 = GUICtrlCreateLabel("可将文档数据、临时文件及自定义的绿色软件移动到指定位置",30,150,330,15)
$2 = GUICtrlCreateLabel("其中，桌面、收藏夹、cookies将移动到“我的文档”目录下",30,170,330,15)
$3 = GUICtrlCreateLabel("IE缓存、历史记录、最近的文档将移动到临时目录“TEMP”下",30,190,330,15)
$4 = GUICtrlCreateLabel("自定义项目可以复制一些绿色软件到D盘的“我的文档”目录下",30,210,330,15)
$5 = GUICtrlCreateLabel("软件目录将以时间命名，开始菜单也可备份到“我的文档”下",30,230,330,15)
$6 = GUICtrlCreateLabel("您还可以恢复一些目录的默认路径，同时可转移目录内的文件",30,250,330,15)
;------------------------
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $open_31
$program1 = FileSelectFolder ("", "c:\", "5", @ProgramFilesDir)
IF $program1 Then
GUICtrlSetData($put_31,$program1)
EndIf
Case $msg = $open_32
$program2 = FileSelectFolder ("", "c:\", "5", @ProgramFilesDir)
IF $program2 Then
GUICtrlSetData($put_32,$program2)
EndIf
Case $msg = $open_33
$program3 = FileSelectFolder ("", "c:\", "5", @ProgramFilesDir)
IF $program3 Then
GUICtrlSetData($put_33,$program3)
EndIf
Case $msg = $open_34
$program4 = FileSelectFolder ("", "c:\", "5", @ProgramFilesDir)
IF $program4 Then
GUICtrlSetData($put_34,$program4)
EndIf
Case $msg = $button_1
IF GUICtrlRead ($disk) = "C:" THEN
$a= "C:"
ENDIF
IF GUICtrlRead ($disk) = "D:" THEN
$a= "D:"
ENDIF
IF GUICtrlRead ($disk) = "E:" THEN
$a= "E:"
ENDIF
IF GUICtrlRead ($disk) = "F:" THEN
$a= "F:"
ENDIF
IF GUICtrlRead ($disk) = "G:" THEN
$a= "G:"
ENDIF
IF GUICtrlRead ($disk) = "H:" THEN
$a= "H:"
ENDIF
if GUICtrlRead ( $box_11 )=1 then
mydoc()
endif
if GUICtrlRead ( $box_12 )=1 then
Favor()
endif
if GUICtrlRead ( $box_13 )=1 then
Cookies()
endif
if GUICtrlRead ( $box_14 )=1 then
desktop()
endif
MsgBox (0+64,"完成", "文档数据转移完成！注销或重启后生效！")
Case $msg = $button_2
IF GUICtrlRead ($disk) = "C:" THEN
$a= "C:"
ENDIF
IF GUICtrlRead ($disk) = "D:" THEN
$a= "D:"
ENDIF
IF GUICtrlRead ($disk) = "E:" THEN
$a= "E:"
ENDIF
IF GUICtrlRead ($disk) = "F:" THEN
$a= "F:"
ENDIF
IF GUICtrlRead ($disk) = "G:" THEN
$a= "G:"
ENDIF
IF GUICtrlRead ($disk) = "H:" THEN
$a= "H:"
ENDIF
if GUICtrlRead ( $box_26 )=1 then
_Dirremove(@tempdir)
ENDIF
if GUICtrlRead ( $box_21 )=1 then
Temp()
endif
if GUICtrlRead ( $box_22 )=1 then
IETemp()
endif
if GUICtrlRead ( $box_23 )=1 then
History()
endif
if GUICtrlRead ( $box_24 )=1 then
Recent()
endif
MsgBox (0+64,"完成", "临时文件转移完成！注销或重启后生效！")
Case $msg = $button_3
IF GUICtrlRead ($disk) = "C:" THEN
$a= "C:"
ENDIF
IF GUICtrlRead ($disk) = "D:" THEN
$a= "D:"
ENDIF
IF GUICtrlRead ($disk) = "E:" THEN
$a= "E:"
ENDIF
IF GUICtrlRead ($disk) = "F:" THEN
$a= "F:"
ENDIF
IF GUICtrlRead ($disk) = "G:" THEN
$a= "G:"
ENDIF
IF GUICtrlRead ($disk) = "H:" THEN
$a= "H:"
ENDIF
if GUICtrlRead ( $box_31 )=1 then
pro1()
endif
if GUICtrlRead ( $box_32 )=1 then
pro2()
endif
if GUICtrlRead ( $box_33 )=1 then
pro3()
endif
if GUICtrlRead ( $box_34 )=1 then
pro4()
endif
start()
MsgBox (0+64,"完成", "操作成功！程序已复制到“我的文档”目录下！")
Case $msg = $button_4
if GUICtrlRead ( $box_41 )=1 then
reset1()
endif
if GUICtrlRead ( $box_42 )=1 then
reset2()
endif
if GUICtrlRead ( $box_43 )=1 then
reset3()
endif
if GUICtrlRead ( $box_44 )=1 then
reset4()
endif
if GUICtrlRead ( $box_45 )=1 then
reset5()
endif
if GUICtrlRead ( $box_46 )=1 then
reset6()
endif
if GUICtrlRead ( $box_47 )=1 then
reset7()
endif
if GUICtrlRead ( $box_48 )=1 then
reset8()
endif
if GUICtrlRead ( $box_49 )=1 then
reset9()
endif
MsgBox (0+64,"完成", "默认设置恢复成功！注销或重启后生效！")
Case $msg = $link
run(@ProgramFilesDir & "\Internet Explorer\IEXPLORE.EXE http://goto.blog.edu.cn")
Case $msg = $GUI_EVENT_CLOSE
quit()
EndSelect
Wend
;==================== 转移文档数据 =====================
func mydoc()
if GUICtrlRead ( $box_15 )=1 then
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Personal","REG_SZ",$a & "\我的文档")
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","My Pictures","REG_SZ",$a & "\我的文档\My Pictures")
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","My Music","REG_SZ",$a & "\我的文档\My Music")
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","My Video","REG_SZ",$a & "\我的文档\My Videos")
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Personal","REG_EXPAND_SZ",$a & "\我的文档")
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","My Music","REG_EXPAND_SZ",$a & "\我的文档\My Music")
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","My Pictures","REG_EXPAND_SZ",$a & "\我的文档\My Pictures")
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","My Video","REG_EXPAND_SZ",$a & "\我的文档\My Videos")
regwrite("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Cache","REG_SZ",$a & "\我的文档")
regwrite("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Download Directory","REG_SZ",$a & "\我的文档")
endif
if GUICtrlRead ( $box_16 )=1 then
DirCreate($a & "\我的文档\")
if @OSType="WIN32_NT" then
DirCopy($DocDir, $a&"\我的文档\",1)
fileCopy($DocDir&"\*.*", $a&"\我的文档\",1)
else
DirCopy("C:\My Documents\",$a&"\我的文档\",1)
filecopy ("C:\My Documents\*.*",$a&"\我的文档\",1)
endif
endif
endfunc
func desktop()
if GUICtrlRead ( $box_15 )=1 then
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop","REG_SZ",$a & "\我的文档\桌面")
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Desktop","REG_EXPAND_SZ",$a & "\我的文档\桌面")
regwrite("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop","REG_SZ",$a & "\我的文档\桌面")
endif
if GUICtrlRead ( $box_16 )=1 then
DirCreate($a & "\我的文档\桌面")
if @OSType="WIN32_NT" then
DirCopy($DesktopDir, $a&"\我的文档\桌面\",1)
fileCopy($DesktopDir&"\*.*", $a&"\我的文档\桌面\",1)
DirCopy("C:\Docume~1\" &@username& "\桌面\", $a&"\我的文档\桌面\",1)
DirCopy("C:\Docume~1\all users\桌面\", $a&"\我的文档\桌面\",1)
filecopy ("C:\Docume~1\all users\桌面\*.*", $a&"\我的文档\桌面\",1)
filecopy ("C:\Docume~1\" &@username& "\桌面\*.*",$a&"\我的文档\桌面\",1)
else
DirCopy("C:\WINDOWS\Desktop\",$a&"\我的文档\桌面\",1)
filecopy ("C:\WINDOWS\Desktop\*.*",$a&"\我的文档\桌面\",1)
endif
endif
endfunc
func Favor()
if GUICtrlRead ( $box_15 )=1 then
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Favorites","REG_SZ",$a & "\我的文档\收藏夹")
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Favorites","REG_EXPAND_SZ",$a & "\我的文档\收藏夹")
endif
if GUICtrlRead ( $box_16 )=1 then
DirCreate($a & "\我的文档\收藏夹")
if @OSType="WIN32_NT" then
DirCopy($FavorDir, $a&"\我的文档\收藏夹\",1)
fileCopy($FavorDir&"\*.*", $a&"\我的文档\收藏夹\",1)
else
DirCopy("C:\WINDOWS\Favori~1\",$a&"\我的文档\收藏夹\",1)
filecopy ("C:\WINDOWS\Favori~1\*.*",$a&"\我的文档\收藏夹\",1)
endif
endif
endfunc
func Cookies()
if GUICtrlRead ( $box_15 )=1 then
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Cookies","REG_SZ",$a & "\我的文档\Cookies")
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Cookies","REG_EXPAND_SZ",$a & "\我的文档\Cookies")
endif
if GUICtrlRead ( $box_16 )=1 then
DirCreate($a & "\我的文档\Cookies")
DirCopy($CookiesDir, $a&"\我的文档\Cookies\",1)
fileCopy($CookiesDir&"\*.*", $a&"\我的文档\Cookies\",1)
endif
endfunc
;==================== 转移临时目录 =====================
func Temp()
if GUICtrlRead ( $box_25 )=1 then
DirCreate($a & "\Temp\FileTemp")
regwrite("HKEY_CURRENT_USER\Environment","TEMP","REG_EXPAND_SZ",$a & "\TEMP\FileTemp")
regwrite("HKEY_CURRENT_USER\Environment","TMP","REG_EXPAND_SZ",$a & "\TEMP\FileTemp")
endif
endfunc
func IETemp()
if GUICtrlRead ( $box_25 )=1 then
DirCreate($a & "\Temp\IETemp")
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Cache","REG_SZ",$a & "\Temp\IETemp")
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Cache","REG_EXPAND_SZ",$a & "\Temp\IETemp")
endif
endfunc
func History()
if GUICtrlRead ( $box_25 )=1 then
DirCreate($a & "\Temp\History")
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","History","REG_SZ",$a & "\Temp\History")
endif
endfunc
func Recent()
if GUICtrlRead ( $box_25 )=1 then
DirCreate($a & "\Temp\FileTemp\Recent")
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Recent","REG_SZ",$a & "\Temp\FileTemp\Recent")
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Recent","REG_EXPAND_SZ",$a & "\Temp\FileTemp\Recent")
endif
endfunc
;==================== 自定义转移 =====================
func pro1()
if GUICtrlRead ( $put_31 ) <>"" then
DirCopy($program1, $a&"\我的文档\我的程序\"&@YEAR&@MON&@MDAY&@HOUR&@MIN&@SEC,1)
sleep(1000)
EndIf
endfunc
func pro2()
if GUICtrlRead ( $put_32 ) <>"" then
DirCopy($program2, $a&"\我的文档\我的程序\"&@YEAR&@MON&@MDAY&@HOUR&@MIN&@SEC,1)
sleep(1000)
EndIf
endfunc
func pro3()
if GUICtrlRead ( $put_33 ) <>"" then
DirCopy($program3, $a&"\我的文档\我的程序\"&@YEAR&@MON&@MDAY&@HOUR&@MIN&@SEC,1)
sleep(1000)
EndIf
endfunc
func pro4()
if GUICtrlRead ( $put_34 ) <>"" then
DirCopy($program4, $a&"\我的文档\我的程序\"&@YEAR&@MON&@MDAY&@HOUR&@MIN&@SEC,1)
EndIf
endfunc
func start()
if GUICtrlRead ( $box_35 )=1 then
DirCopy("C:\Docume~1\" &@username& "\「开始」菜单\", $a&"\我的文档\「开始」菜单\",1)
EndIf
if GUICtrlRead ( $box_36 )=1 then
DirCopy("C:\Docume~1\all users\「开始」菜单\", $a&"\我的文档\「开始」菜单\",1)
EndIf
endfunc
;==================== 恢复默认目录 =====================
func reset1()
if @OSType="WIN32_NT" then
$reset1 = "C:\Documents and Settings\" &@username& "\My Documents"
else
$reset1 = "C:\My Documents"
endif
$DocDir=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Personal")
if GUICtrlRead ( $box_51 )=1 then
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Personal","REG_SZ", $reset1)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","My Pictures","REG_SZ",$reset1 & "\My Pictures")
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","My Music","REG_SZ",$reset1 & "\My Music")
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","My Video","REG_SZ",$reset1 & "\My Videos")
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Personal","REG_EXPAND_SZ", "%USERPROFILE%\My Documents")
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","My Music","REG_EXPAND_SZ", "%USERPROFILE%\My Documents\My Music")
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","My Pictures","REG_EXPAND_SZ", "%USERPROFILE%\My Documents\My Pictures")
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","My Video","REG_EXPAND_SZ", "%USERPROFILE%\My Documents\My Videos")
regwrite("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Cache","REG_SZ",$reset1)
regwrite("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Download Directory","REG_SZ",$reset1)
endif
if GUICtrlRead ( $box_52 )=1 then
DirCopy($DocDir, $reset1,1)
fileCopy($DocDir&"\*.*", $reset1,1)
endif
endfunc
func reset2()
if @OSType="WIN32_NT" then
$reset2 = "C:\Documents and Settings\" &@username& "\Favorites"
else
$reset2 = "C:\WINDOWS\Favorites"
endif
$FavorDir=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Favorites")
if GUICtrlRead ( $box_51 )=1 then
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Favorites","REG_SZ", $reset2)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Favorites","REG_EXPAND_SZ", "%USERPROFILE%\Favorites")
endif
if GUICtrlRead ( $box_52 )=1 then
DirCopy($FavorDir, $reset2 ,1)
fileCopy($FavorDir&"\*.*", $reset2 ,1)
endif
endfunc
func reset3()
if @OSType="WIN32_NT" then
$reset3 = "C:\Documents and Settings\" &@username& "\桌面"
else
$reset3 = "C:\WINDOWS\Desktop"
endif
$DesktopDir=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop")
if GUICtrlRead ( $box_51 )=1 then
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop","REG_SZ", $reset3)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Desktop","REG_EXPAND_SZ", "%USERPROFILE%\桌面")
regwrite("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop","REG_SZ", "%USERPROFILE%\桌面")
endif
if GUICtrlRead ( $box_52 )=1 then
DirCopy($DesktopDir, $reset3,1)
fileCopy($DesktopDir&"\*.*", $reset3, 1)
endif
endfunc
func reset4()
if @OSType="WIN32_NT" then
$reset4 = "C:\Documents and Settings\" &@username& "\Cookies"
else
$reset4 = "C:\WINDOWS\Cookies"
endif
if GUICtrlRead ( $box_51 )=1 then
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Cookies","REG_SZ", $reset4)
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Cookies","REG_EXPAND_SZ", "%USERPROFILE%\Cookies")
endif
if GUICtrlRead ( $box_52 )=1 then
DirCopy($CookiesDir, $reset4,1)
fileCopy($CookiesDir&"\*.*", $reset4,1)
endif
endfunc
func reset5()
if GUICtrlRead ( $box_51 )=1 then
if @OSType="WIN32_NT" then
$reset5 = "C:\Documents and Settings\" &@username& "\Local Settings\Temporary Internet Files"
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Cache","REG_EXPAND_SZ", "%USERPROFILE%\Local Settings\Temporary Internet Files")
else
$reset5 = "C:\WINDOWS\Temporary Internet Files"
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Cache","REG_EXPAND_SZ", $reset5)
endif
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Cache","REG_SZ", $reset5)
endif
endfunc
func reset6()
if @OSType="WIN32_NT" then
$reset6 = "C:\Documents and Settings\" &@username& "\Local Settings\History"
else
$reset6 = "C:\WINDOWS\History"
endif
if GUICtrlRead ( $box_51 )=1 then
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","History","REG_SZ",$reset6)
endif
endfunc
func reset7()
if GUICtrlRead ( $box_51 )=1 then
if @OSType="WIN32_NT" then
regwrite("HKEY_CURRENT_USER\Environment","TEMP","REG_EXPAND_SZ", "%USERPROFILE%\Local Settings\Temp")
regwrite("HKEY_CURRENT_USER\Environment","TMP","REG_EXPAND_SZ", "%USERPROFILE%\Local Settings\Temp")
endif
endif
endfunc
func reset8()
if @OSType="WIN32_NT" then
$reset8 = "C:\Documents and Settings\" &@username& "\Recent"
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Recent","REG_EXPAND_SZ","%USERPROFILE%\Recent")
else
$reset8 = "C:\WINDOWS\Recent"
endif
if GUICtrlRead ( $box_51 )=1 then
regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Recent","REG_SZ", $reset8)
endif
endfunc
func reset9()
if @OSType="WIN32_NT" then
if GUICtrlRead ( $box_51 )=1 then
regwrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Common Documents","REG_SZ", "C:\Documents and Settings\All Users\Documents")
regwrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Personal","REG_SZ", "C:\Documents and Settings\All Users\Documents")
regwrite("HKEY_CURRENT_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Common Documents","REG_EXPAND_SZ","%ALLUSERSPROFILE%\Documents")
endif
endif
endfunc
;==================== 清理临时文件 =====================
Func _Dirremove($searchdir)
$search = FileFindFirstFile($searchdir & "\*.*")
If $search = -1 Then return
While 1
$file = FileFindNextFile($search)
If @error Then
Exitloop
ElseIf stringinstr(FileGetAttrib($searchdir & "\" & $file),"D") then
Dirremove($searchdir & "\" & $file,1)
ElseIF stringinstr(FileGetAttrib($searchdir & "\" & $file),"R") then
FileSetAttrib($searchdir & "\" & $file,"-R")
FileDelete($searchdir & "\" & $file)
FileSetAttrib($searchdir & "\" & $file,"+R")
Else
FileDelete($searchdir & "\" & $file)
EndIf
WEnd
EndFunc 这个好东西哦
页:
[1]