#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <TreeViewConstants.au3>
#include <File.au3>
#NoTrayIcon
Dim $Form0, $Y = 120, $Form1, $Msg, $Form2, $ztbj = 1, $Label1, $Label2, $checkbox13, $Button4, $checkbox1, $checkbox2, $checkbox3, $checkbox4, $checkbox5, $checkbox6, $checkbox7, $checkbox8, $checkbox9, $checkbox10, $checkbox11, $checkbox12, $Button3, $Button5, $nMsg
Opt('MustDeclareVars', 1)
$Form0 = GUICreate('Multi-Level Folder Creator Version 4.1', 640, 260, -1, -1)
$checkbox1 = GUICtrlCreateCheckbox("", 210, 17, 18, 18)
$checkbox2 = GUICtrlCreateCheckbox("", 310, 17, 18, 18)
$checkbox3 = GUICtrlCreateCheckbox("", 410, 17, 18, 18)
$checkbox4 = GUICtrlCreateCheckbox("", 510, 17, 18, 18)
$checkbox5 = GUICtrlCreateCheckbox("", 610, 17, 18, 18)
$checkbox6 = GUICtrlCreateCheckbox("", 210, 37.5, 18, 18)
$checkbox7 = GUICtrlCreateCheckbox("", 310, 37.5, 18, 18)
$checkbox8 = GUICtrlCreateCheckbox("", 410, 37.5, 18, 18)
$checkbox9 = GUICtrlCreateCheckbox("", 510, 37.5, 18, 18)
$checkbox10 = GUICtrlCreateCheckbox("", 610, 37.5, 18, 18)
$checkbox11 = GUICtrlCreateCheckbox("", 210, 58, 18, 18)
$checkbox12 = GUICtrlCreateCheckbox("", 310, 58, 18, 18)
$Button3 = HotKeySet("{ESC}", "Terminate")
$Button4 = GUICtrlCreateButton("全选", 480, 55, 150, 26, $WS_GROUP)
$Button5 = GUICtrlCreateButton("移动字", 480, 119, 150, 26)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button4
If $ztbj = 1 Then
GUICtrlSetState($checkbox1, $GUI_CHECKED)
GUICtrlSetState($checkbox2, $GUI_CHECKED)
GUICtrlSetState($checkbox3, $GUI_CHECKED)
GUICtrlSetState($checkbox4, $GUI_CHECKED)
GUICtrlSetState($checkbox5, $GUI_CHECKED)
GUICtrlSetState($checkbox6, $GUI_CHECKED)
GUICtrlSetState($checkbox7, $GUI_CHECKED)
GUICtrlSetState($checkbox8, $GUI_CHECKED)
GUICtrlSetState($checkbox9, $GUI_CHECKED)
GUICtrlSetState($checkbox10, $GUI_CHECKED)
GUICtrlSetState($checkbox11, $GUI_CHECKED)
GUICtrlSetState($checkbox12, $GUI_CHECKED)
GUICtrlSetData($Button4, "全不选")
$ztbj = 0
Else
GUICtrlSetState($checkbox1, $GUI_UNCHECKED)
GUICtrlSetState($checkbox2, $GUI_UNCHECKED)
GUICtrlSetState($checkbox3, $GUI_UNCHECKED)
GUICtrlSetState($checkbox4, $GUI_UNCHECKED)
GUICtrlSetState($checkbox5, $GUI_UNCHECKED)
GUICtrlSetState($checkbox6, $GUI_UNCHECKED)
GUICtrlSetState($checkbox7, $GUI_UNCHECKED)
GUICtrlSetState($checkbox8, $GUI_UNCHECKED)
GUICtrlSetState($checkbox9, $GUI_UNCHECKED)
GUICtrlSetState($checkbox10, $GUI_UNCHECKED)
GUICtrlSetState($checkbox11, $GUI_UNCHECKED)
GUICtrlSetState($checkbox12, $GUI_UNCHECKED)
GUICtrlSetData($Button4, "全选")
$ztbj = 1
EndIf
Case $Button3
Terminate()
Case $Button5
GUISetState(@SW_DISABLE, $Form0)
$Form1 = GUICreate("字移动", 322, 205, -1, -1)
$Label1 = GUICtrlCreateLabel("字移动的例子", 64, 24, 202, 37)
GUICtrlSetFont(-1, 24, 800, 0, "黑体")
GUISetState(@SW_SHOW, $Form1)
$Form2 = GUICreate("", 322, 120, 0, 100, $WS_POPUP, $WS_EX_MDICHILD, $Form1)
$Label2 = GUICtrlCreateLabel(" 字移动的例子" & @CRLF & " 欢迎访问初级视编室" & @CRLF & "http://dvedit.5d6d.com", 0, 120, 202, 50)
GUICtrlSetFont(-1, 12, 800, 0, "黑体")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetCursor(-1, 0)
GUISetState(@SW_SHOW, $Form2)
AdlibRegister("_IDmov", 100)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_ENABLE, $Form0)
GUISetState(@SW_HIDE, $Form1)
GUISetState(@SW_HIDE, $Form2)
ExitLoop
Case $Label2
ShellExecute("http://dvedit.5d6d.com")
EndSwitch
WEnd
EndSwitch
WEnd
Func Terminate()
Exit
EndFunc ;==>Terminate
Func _IDmov()
$Y = $Y - 3
If $Y < -50 Then $Y = 120
GUICtrlSetPos($Label2, 70, $Y)
EndFunc ;==>_IDmov