button无效

sliqi

#include <GUIConstants.au3>
$reg1 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
$reg2 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders"
GUICreate("转移文件夹", 485,280)
GUICtrlCreateGroup("", 5, 1, 475, 273)
$Tab1Check1 = GUICtrlCreateLabel("我的文档", 15, 16, 70, 17)
$InputButton1 = GUICtrlCreateButton("C", 450, 15, 25, 16)
$Tab1Check2 = GUICtrlCreateLabel("收藏夹", 15, 44, 70, 17)
$InputButton2 = GUICtrlCreateButton("C", 450, 41, 25, 17)
$Tab1Check3 = GUICtrlCreateLabel("Cokies", 15, 68, 70, 17)
$InputButton3 = GUICtrlCreateButton("C", 450, 67, 25, 17)
$Tab1Check4 = GUICtrlCreateLabel("桌面文件", 15, 94, 70, 17)
$InputButton4 = GUICtrlCreateButton("C", 450, 93, 25, 17)
$Input1 = GUICtrlCreateInput(@MyDocumentsDir, 70, 15, 375, 16,0x0008)
GUICtrlSetState($Input1, $GUI_DISABLE)
$Input2 = GUICtrlCreateInput(@FavoritesDir, 70, 41, 375, 16,0x0008)
GUICtrlSetState($Input2, $GUI_DISABLE)
$regin3 = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", "Cookies")
$Input3 = GUICtrlCreateInput($regin3, 70, 67, 375, 16,0x0008)
GUICtrlSetState($Input3, $GUI_DISABLE)
$Input4 = GUICtrlCreateInput(@DesktopDir, 70, 93, 375, 16,0x0008)
GUICtrlSetState($Input4, $GUI_DISABLE)
$Tab1Check5 = GUICtrlCreateLabel("临时目录", 15, 120, 70, 17)
$InputButton5 = GUICtrlCreateButton("C", 450, 118, 25, 17)
$Tab1Check6  = GUICtrlCreateLabel("IE缓存", 15, 146, 70, 17)
$InputButton6 = GUICtrlCreateButton("C", 450, 144, 25, 17)
$Tab1Check7  = GUICtrlCreateLabel("历史记录", 15, 172, 70, 17)
$InputButton7 = GUICtrlCreateButton("C", 450, 170, 25, 17)
$Tab1Check8 = GUICtrlCreateLabel("最近文档", 15, 197, 70, 17)
$InputButton8 = GUICtrlCreateButton("C", 450, 196, 25, 17)
$regin6 = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", "Cache")
$regin7 = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", "History")
$regin8 = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", "Recent")
$Input5 = GUICtrlCreateInput(@TempDir, 70, 118, 375, 16,0x0008)
GUICtrlSetState($Input5, $GUI_DISABLE)
$Input6 = GUICtrlCreateInput($regin6, 70, 144, 375, 16,0x0008)
GUICtrlSetState($Input6, $GUI_DISABLE)
$Input7 = GUICtrlCreateInput($regin7, 70, 170, 375, 16,0x0008)
GUICtrlSetState($Input7, $GUI_DISABLE)
$Input8 = GUICtrlCreateInput($regin8, 70, 196, 375, 16,0x0008)
GUICtrlSetState($Input8, $GUI_DISABLE)
$Tab1Check9 = GUICtrlCreateLabel("AppData", 15, 221, 70, 17)
$InputButton9 = GUICtrlCreateButton("C", 450, 222, 25, 17)
$Input9 = GUICtrlCreateInput(@ProgramsDir, 70, 222, 375, 16,0x0008)
GUICtrlSetState($Input9, $GUI_DISABLE)

$filesButton1 = GUICtrlCreateButton("移动所选", 370, 245, 80, 22, 0)
GUICtrlSetState($filesButton1,$GUI_DISABLE)

GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg(1)
  Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
                        ExitLoop
                       
                        Case $InputButton1
$var = FileSelectFolder("请选择一个文件夹：", "")
GUICtrlSetData($Input1, $var , "1")
$OKInput1 = GUICtrlCreateInput($var, 70, 15, 375, 16,0x0008)
GUICtrlSetState($OKInput1, $GUI_DISABLE)
                GUICtrlSetState($filesButton1,$GUI_ENABLE)
                        Case $InputButton2
$var2 = FileSelectFolder("请选择一个文件夹：", "")
GUICtrlSetData($Input2, $var2 , "1")
$OKInput2 = GUICtrlCreateInput($var2, 70, 41, 375, 16,0x0008)
GUICtrlSetState($OKInput2, $GUI_DISABLE)
                GUICtrlSetState($filesButton1,$GUI_ENABLE)
                        Case $InputButton3
$var3 = FileSelectFolder("请选择一个文件夹：", "")
GUICtrlSetData($Input3, $var3 , "1")
$OKInput3 = GUICtrlCreateInput($var3, 70, 67, 375, 16,0x0008)
GUICtrlSetState($OKInput3, $GUI_DISABLE)
                GUICtrlSetState($filesButton1,$GUI_ENABLE)
                        Case $InputButton4
$var4 = FileSelectFolder("请选择一个文件夹：", "")
GUICtrlSetData($Input4, $var4 , "1")
$OKInput4 = GUICtrlCreateInput($var4, 70, 93, 375, 16,0x0008)
GUICtrlSetState($OKInput4, $GUI_DISABLE)
                GUICtrlSetState($filesButton1,$GUI_ENABLE)
                        Case $InputButton5
$var5 = FileSelectFolder("请选择一个文件夹：", "")
GUICtrlSetData($Input5, $var5 , "1")
$OKInput5 = GUICtrlCreateInput($var5, 70, 118, 375, 16,0x0008)
GUICtrlSetState($OKInput5, $GUI_DISABLE)
                GUICtrlSetState($filesButton1,$GUI_ENABLE)
                        Case $InputButton6
$var6 = FileSelectFolder("请选择一个文件夹：", "")
GUICtrlSetData($Input6, $var6 , "1")
$OKInput6 = GUICtrlCreateInput($var6, 70, 144, 375, 16,0x0008)
GUICtrlSetState($OKInput6, $GUI_DISABLE)
                GUICtrlSetState($filesButton1,$GUI_ENABLE)
                        Case $InputButton7
$var7 = FileSelectFolder("请选择一个文件夹：", "")
GUICtrlSetData($Input7, $var7 , "1")
$OKInput7 = GUICtrlCreateInput($var7, 70, 170, 375, 16,0x0008)
GUICtrlSetState($OKInput7, $GUI_DISABLE)
                GUICtrlSetState($filesButton1,$GUI_ENABLE)
                        Case $InputButton8
$var8 = FileSelectFolder("请选择一个文件夹：", "")
GUICtrlSetData($Input8, $var8 , "1")
$OKInput8 = GUICtrlCreateInput($var8, 70, 196, 375, 16,0x0008)
GUICtrlSetState($OKInput8, $GUI_DISABLE)
                GUICtrlSetState($filesButton1,$GUI_ENABLE)
                        Case $InputButton9
$var9 = FileSelectFolder("请选择一个文件夹：", "")
GUICtrlSetData($Input9, $var9 , "1")
$OKInput9 = GUICtrlCreateInput($var9, 70, 222, 375, 16,0x0008)
GUICtrlSetState($OKInput9, $GUI_DISABLE)
                GUICtrlSetState($filesButton1,$GUI_ENABLE)
               
        Case $filesButton1
GUICtrlSetData($OKInput1, $var)
DirMove(@MyDocumentsDir, $var,1)
RegWrite($reg1, "Personal", "REG_SZ", $var)
RegWrite($reg2, "Personal", "REG_SZ", $var)
RegWrite($reg1, "My Music", "REG_SZ", $var & "\My Documents\My Music")
RegWrite($reg2, "My Music", "REG_SZ", $var & "\My Documents\My Music")
RegWrite($reg1, "My Pictures", "REG_SZ", $var & "\My Documents\My Pictures")
RegWrite($reg2, "My Pictures", "REG_SZ", $var & "\My Documents\My Pictures")
GUICtrlSetData($Input2, $var2)
DirCopy(@FavoritesDir,$var2,1)
RegWrite($reg1,"Favorites","REG_SZ", $var2)
RegWrite($reg2,"Favorites","REG_SZ", $var2)
GUICtrlSetData($Input3, $var3)
DirCopy($regin3,$var3,1)
RegWrite($reg1,"Cookies","REG_SZ", $var3)
RegWrite($reg2,"Cookies","REG_SZ", $var3)
GUICtrlSetData($Input4, $var4)
DirCopy(@DesktopDir, $var4, 1)
RegWrite($reg1,"Desktop","REG_SZ", $var4)
RegWrite($reg2,"Desktop","REG_SZ", $var4)
GUICtrlSetData($Input5, $var5)
DirCopy(@TempDir, $var5,1)
RegWrite("HKEY_CURRENT_USER\Environment","Temp","REG_SZ", $var5)
RegWrite("HKEY_CURRENT_USER\Environment","Tmp","REG_SZ", $var5)
GUICtrlSetData($Input6, $var6)
DirCreate($var6)
DirCopy($regin6, $var6,1)
RegWrite("HKEY_CURRENT_USER\Environment","Temp","REG_SZ", $var6)
RegWrite("HKEY_CURRENT_USER\Environment","Tmp","REG_SZ", $var6)
RegWrite($reg1,"Cache","REG_SZ", $var6)
RegWrite($reg2,"Cache","REG_SZ", $var6)
GUICtrlSetData($Input7, $var7)
DirCreate($var7)
DirCopy($regin7,$var7,1)
RegWrite($reg1, "History","REG_SZ",$var7 & "\History")
RegWrite($reg2,"History","REG_SZ",$var7 & "\History")
GUICtrlSetData($Input8, $var8)
DirCreate($var8)
DirCopy($reg8,$var8,1)
RegWrite($reg1, "Recent","REG_SZ",$var8)
RegWrite($reg2,"Recent","REG_SZ",$var8)
GUICtrlSetData($Input9, $var9)
DirCopy(@AppDataDir, $var9,1)
        MsgBox(0,"","文件夹转移完成，注销或重启后生效！",2)
       
EndSwitch
                                                WEnd



==================
点了转移所选项后，注册表有效，目录不会移动和复制。
请问哪里出错了，找到大半天了。

[ 本帖最后由 sliqi 于 2008-9-26 00:24 编辑 ]

liongodmien

用了新做一样多的时间ＤＥＢＵＧ

[ 本帖最后由 liongodmien 于 2008-9-26 13:09 编辑 ]

liongodmien

好多错误的地方啊，ＤＥＢＵＧ死了！

sliqi

谢谢liongodmien 。已经好了。