AHK: Поиск уроков по работе с GUI

Gui, Add, Picture, x-343 y-236 w972 h672 , C:\Micross\Popitku\Koala.jpg
Gui, Add, GroupBox, x9 y6 w140 h270 hwnDirectories, AoC ; корневая папка ,из которой мы или закрываем все скрипты  и запускаем только из вложенных папок (точнее это просто визуальный элемент ,а хотелось бы большего) 

Gui, Add, Radio, x19 y36 w120 h30 vNumber_One gNumber_One hwndNumber_One, Guardian ; первая папка
Gui, Add, Radio, x19 y76 w120 h30 vNumber_Two gNumber_Two hwndNumber_Two, Demonolog ; вторая папка 

Gui, Show, x263 y172 h444 w318, New GUI Window
Return

Number_One:
  GuiControlGet, State,, Number_One
   if State
   {
    
Loop C:\Micross\AoC\*.ahk , 0  , 1       ; закрываем все что есть в корневой папке 
{ 
SetTitleMatchMode, 2
DetectHiddenWindows, On
WinMenuSelectItem,  %A_LoopFileName% - AutoHotkey,, File, Exit
}

  ControlGetText, Text,, ahk_id %Number_One%
                               
      
       Loop C:\Micross\AoC\%Text%\*.ahk , 0  , 1       ; открываем все из 1й вложенной папки ,причем тут имя элемента Gui работает как путь ,который всегда легко подправить 
       { 
        run ,  %A_LoopFileFullPath%
       }



   }
   Return
Number_Two:
 GuiControlGet, State,, Number_Two
   if State
   {

Loop C:\Micross\AoC\*.ahk , 0  , 1       
{ 
SetTitleMatchMode, 2
DetectHiddenWindows, On
WinMenuSelectItem,  %A_LoopFileName% - AutoHotkey,, File, Exit
}

       ControlGetText, Text,, ahk_id %Number_Two%
                               
      
       Loop C:\Micross\AoC\%Text%\*.ahk , 0  , 1       ; открываем все из 2й папки ,предварительно закрыв все из корневой директории 
       { 
        run ,  %A_LoopFileFullPath%
       }
   }
   Return


GuiClose:
ExitApp

Menu, Tray, NoStandard
Menu, Tray, Icon, shell32.dll, 4
Menu, Tray, Tip, % "             Некое имя окна`n"
               . "Левый клик по иконе - вызов GUI"
Menu, Tray, Add, &Exit, ExitScript
OnMessage(0x404, "WM_LBUTTONUP"), ArrayID:=[]
MainFolder:="C:\Micross\AoC"
MsgBox, 262208, Информация, % "Левый клик по иконе в системном"
              . " лотке`nуведомлений вызовет диалоговое окно.", 3
Return

Settings:
Gui, Destroy
Gui, Add, GroupBox, Center x6 y0 w132 h90, Выберите папку
Gui, Add, Checkbox, x6 y90 w132 h30 vCheckDel, Удалить запущенные
Gui, Add, Button, x16 y54 w112 h20 gButton, Продолжить
Gui, Add, Edit, x16 y24 w112 h20 vMainFolder
        , % SelectFolder ? SelectFolder:MainFolder
Gui, +AlwaysOnTop +ToolWindow HwndhWnd
Gui, Show, w144 h118, Некое имя окна
ControlClick, Edit1, % "ahk_id"hWnd
PostMessage, 0xB1,, -1, Edit1, % "ahk_id"hWnd ; EM_SETSEL
Control, % !ArrayID.MinIndex() ? "Disable":"Enable"
       ,, Button2, % "ahk_id"hWnd
Return

Button:
GuiClose:
   Gui, Submit
   Gui, Destroy
   If CheckDel
   {
      For Key, Value In ArrayID
         WinClose, % "ahk_pid"Value
      ArrayID:=[]
   }
   If % A_ThisLabel="GuiClose"
      Return
   FileSelectFolder, SelectFolder, % MainFolder
                   , 2, Выберите папку для просмотра
   If ErrorLevel
      Goto, Notice
   SetWorkingDir, % SelectFolder
   Loop, % SelectFolder "\*.ahk", 1, 1
   {
      Run, % A_LoopFileFullPath,,, WinPID
      ArrayID.Insert(WinPID)
   }
   Return

Notice:
   Gui, Add, Text, Center x10 y10 w140 h20, Следует выбрать папку!
   Gui, +AlwaysOnTop +ToolWindow -SysMenu
   Gui, Show, w160 h40, Уведомление
   SoundPlay, *16, 1
   Loop, 4
   {
      Gui, Flash
      Sleep, 250
   }
   Gosub, Settings
   Return

ExitScript:
   If ArrayID.MinIndex()
      For Key, Value In ArrayID
         WinClose, % "ahk_pid"Value
   ExitApp

WM_LBUTTONUP(wParam, lParam, Msg, hWnd)
{
   global
   If lParam=0x202
      SetTimer, Settings, -0
}

Gui, Color, E3F1FA
Gui, Add, Edit, x50 y5 w260 h22 ; Edit1
Gui, Add, Edit, x50 y29 w260 h22 ; Edit2
Gui, Add, Edit, x6 y55 w303 h264 ; Edit3
Gui, Font, s10 cBlack, Calibri
Gui, Add, Text, x6 y7 w40 h20, To:
Gui, Add, Text, x6 y29 w40 h20, Subject:
Gui, Add, Button, x6 y327 w148 h24, Send
Gui, Add, Button, x162 y327 w148 h24, Settings
Gui, -Resize
Gui, Show, w318 h359, Mail Sendler
Return

GuiClose:
   ExitApp

VarSetCapacity(PAINTSTRUCT, 64, 0)
OnMessage(0x201, "WndProc"), OnMessage(0x202, "WndProc")
OnMessage(0x205, "WndProc"), OnMessage(0xF, "WM_PAINT")

Gui, Color, E3F1FA
Gui, Font, s6 cBlack, MS Sans Serif
Gui, -Caption +Border HwndGUIhWnd
Gui, Add, Edit, x56 y28 w256 h20 ; Edit1
Gui, Add, Edit, x56 y53 w256 h19 ; Edit2
Gui, Add, Edit, x9 y77 w304 h263 ; Edit3
Gui, Add, Text, x9 y32 w44 h19, To:
Gui, Add, Text, x9 y56 w44 h19, Subject:
Gui, Add, Button, % "gSelectMenu vSend"
        . " x11 y349 w143 h21 Center", Send
Gui, Add, Button, % "gSelectMenu vSettings"
        . " x169 y349 w143 h21 Center", Settings
Gui, Show, w324 h383, Mail Sender
; PostMessage, 0x112, 0xF020,,, % "ahk_id"GUIhWnd ; work better
; PostMessage, 0x112, 0xF120,,, % "ahk_id"GUIhWnd ; with aero
WinGetPos, WX, WY,,, % "ahk_id"GUIhWnd            ; or...
Gui, 2: -Caption +Border HwndGUI2hWnd             ;
Gui, 2: Show, % "x"WX " y"WY " w324 h23", Titler  ;
PostMessage, 0x112, 0xF060,,, % "ahk_id"GUI2hWnd  ;
Return

SelectMenu:
   If A_GuiControl
      TrayTip,, % "Pressed:`n"(A_GuiControl="Send"
              ? "Send":"Settings")" button"
   Else If % A_ThisMenu="Menu1"
      TrayTip,, % "Selected:`n"A_ThisMenuItem
   Else
      PostMessage, 0x112, A_ThisMenuItem="Minimize"
                 ? 0xF020:0xF060,,, % "ahk_id"GUIhWnd
   Return

GuiClose:
   ExitApp

WM_PAINT(wParam, lParam, Msg, hWnd)
{
   global
   If % GUIhWnd!=hWnd
      Return
   hDC:=DllCall("BeginPaint", "UInt", hWnd, "UInt", &PAINTSTRUCT)
   FillRect(&PAINTSTRUCT, 0, 0, 324, 22, 0x00000000) ; 284, 22
;   FillRect(&PAINTSTRUCT, 284, 0, 304, 22, 0x00000000)
;   FillRect(&PAINTSTRUCT, 304, 0, 324, 22, 0x00000000)
   DrawText("Mail Sender", hDC, 5, 3, 284, 22, SetFont(), 0x00FFFFFF)
   DrawText("+", hDC, 290, 2, 312, 22
 , SetFont(-13, 900,,,, 5, "Impact"), 0x00FFFFFF)
   DrawText("Х", hDC, 309, 3, 332, 22
 , SetFont(-13, 900,,,,, "Poplar Std"), 0x00FFFFFF)
   DllCall("EndPaint", "UInt", hWnd, "UInt", PAINTSTRUCT)
}

FillRect(P, X, Y, T, B, C)
{
   VarSetCapacity(RECT, 16, 0), H:=NumGet(p+0)
   NumPut(X, RECT, 0), NumPut(Y, RECT, 4)
   NumPut(T, RECT, 8), NumPut(B, RECT, 12)
   OldDC:=DllCall("SelectObject", "UInt", H
, "UInt", DllCall("GetStockObject", "UInt", 18))
   NumPut(NumGet(RECT, 0), P+0, 8), NumPut(NumGet(RECT, 4), P+0, 12)
   NumPut(NumGet(RECT, 8), P+0, 16), NumPut(NumGet(RECT, 12), P+0, 20)
   DllCall("SetDCBrushColor", "UInt", H, "UInt", C)
   DllCall("FillRect", "UInt", H, "UInt", &RECT, "Int", 0)
   DllCall("SelectObject", "UInt", H
                         , "Int", OldDC)
}

DrawText(Str, H, X, Y, T, B, F, C)
{
   VarSetCapacity(RECT, 16, 0)
   NumPut(X, RECT, 0), NumPut(Y, RECT, 4)
   NumPut(T, RECT, 8), NumPut(B, RECT, 12)
   OldDC:=DllCall("SelectObject", "UInt", H, "UInt", F)
   DllCall("SetBkMode", "UInt", H, "UInt", 1) ; TRANSPARENT
   DllCall("SetTextColor", "UInt", H, "UInt", C)
   DllCall("DrawText", "UInt", H
                     , "Str", Str
                     , "UInt", StrLen(Str)
                     , "UInt", &RECT
                     , "UInt", 0x10) ; DT_WORDBREAK
   DllCall("SelectObject", "UInt", H
                         , "Int", OldDC)
}

SetFont(H=-11, W=400, I=0, U=0, S=0, Q=0, F="MS Sans Serif")
{
   Return, DllCall("CreateFont", "Int", H
                               , "UInt", 0
                               , "UInt", 0
                               , "UInt", 0
                               , "UInt", W ; FW_NORMAL
                               , "UInt", I
                               , "UInt", U
                               , "UInt", S
                               , "UInt", 1 ; DEFAULT_CHARSET
                               , "UInt", 0 ; OUT_DEFAULT_PRECIS
                               , "UInt", 0 ; CLIP_DEFAULT_PRECIS
                               , "UInt", Q ; DEFAULT_QUALITY
                               , "UInt", 0|0<<4 ; DEFAULT_PITCH|FF_DONTCARE
                               , "Str", F)
}

WndProc(wParam, lParam, Msg, hWnd)
{
   global
   MouseGetPos, X, Y, hWnd
   If Not ((X>=1 And Y>=23) And (X<=324 And Y<=383))
   {
      If % Msg=0x201 And ((X>=1 And Y>=1) And (X<=284 And Y<=22))
         PostMessage, 0xA1, 2,,, % "ahk_id"GUIhWnd
      If Msg=0x202
      {
         If ((X>=284 And Y>=1) And (X<=304 And Y<=22))
            PostMessage, 0x112, 0xF020,,, % "ahk_id"GUIhWnd
         If ((X>=304 And Y>=1) And (X<=324 And Y<=22))
            PostMessage, 0x112, 0xF060,,, % "ahk_id"GUIhWnd
      }
      If % Msg=0x205 And ((X>=1 And Y>=1) And (X<=304 And Y<=22))
      {
         Menu, Menu2, Add, Minimize, SelectMenu
         Menu, Menu2, Add, Close, SelectMenu
         Menu, Menu2, Show
      }
   }
   Else
      If Msg=0x205
         If Not (((X>=59 And Y>=31) And (X<=310 And Y<=46))
            Or ((X>=59 And Y>=56) And (X<=310 And Y<=70))
            Or ((X>=12 And Y>=80) And (X<=311 And Y<=338)))
         {
            Menu, Menu1, Add, Item1, SelectMenu
            Menu, Menu1, Add, Item2, SelectMenu
            Menu, Menu1, Show
         }
}