#RequireAdmin ; Runs script as admin user
#include <Array.au3>
#include <AutoItConstants.au3>
#include <autowinexp.au3>
#include <ButtonConstants.au3>
#include <ContextMenu.au3>
#include <Date.au3>
#include <DragDropEvent.au3>
#include <FileConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiButton.au3>
#include <GUIListView.au3>
#include <GuiMenu.au3>
#include <GUIToolTip.au3>
#include <Hourglass.au3>
#include <IE.au3>
#include <Memory.au3>
#include <MsgBoxConstants.au3>
#include <SendMessage.au3>
#include <ShellFunctions.au3>
#include <ShellInterfaces.au3>
#include <ToolbarConstants.au3>
#include <TreeViewConstants.au3>
#include <WinAPI.au3>
#include <WinAPIFiles.au3>
#include <WinAPIInternals.au3>
#include <WinAPIShellEx.au3>
#include <WindowsConstants.au3>

; #Include <_DBUG.au3>  ;  Used for debugging script
#AutoIt3Wrapper_Change2CUI=y
#AutoIt3Wrapper_Run_AU3Check=N
;#Autoit3Wrapper_Testing=Y
Opt("MouseCoordMode", 2)

; define standard drives and network share folders
Global $CDrive = "C:"
Global $usbFixedDrive = "E:"
Global $usbRemovDrive = "G:"
Global $mappedNWShareDrive = "\\FILSERVER\Users\User\SharedFolder"
; Global $mappedNWShareDrive = "M:"
Global $mappedShareptDrive = "\\g-cad1\Storage\ShellbagsTest"
Global $zipped = "C:\Users\User\zipped"
Global $USB_MTP = "H:"
Global $maxNum = 3
Global $WinHandOrig[10][10]
Global $i = 0
Global $j = 0
Global $k = 0
Global $m = 0

; get desktop width and height to orient explorer windows
Global $iWidth = @DesktopWidth / 2
Global $iHeight = @DesktopHeight - 50
Sleep(2000)
;
; Create a constant variable with the filepath
;
Global $FilePath[10]
$FilePath[0] = @DesktopDir
$FilePath[1] = @MyDocumentsDir
$FilePath[2] = "C:\Users\User\AppData\Local\Temp"
$FilePath[3] = $usbFixedDrive
$FilePath[4] = $usbRemovDrive
$FilePath[5] = $mappedNWShareDrive
$FilePath[6] = $CDrive
$FilePath[7] = $mappedShareptDrive
$FilePath[8] = $USB_MTP
$FilePath[9] = $zipped
;
Sleep(2000)
;
; Create a constant variable with the window title
;
Global $FileTitle[10]
$FileTitle[0] = "Desktop"
$FileTitle[1] = "Documents"
$FileTitle[2] = "Temp"
$FileTitle[3] = "USBFixed"
$FileTitle[4] = "Monster"
$FileTitle[5] = "mappedNWShare"
$FileTitle[6] = "CDrive"
$FileTitle[7] = $mappedShareptDrive
$FileTitle[8] = $USB_MTP
$FileTitle[9] = "zipped"

Sleep(2000)

;
; Define file names for different directories
;

Global $rundate = @YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC
Global $FileName[10]
For $h = 0 To $maxNum Step 1
    $FileName[$h] = $FilePath[$h] & "\" & $rundate & ".txt"
Next
Sleep(2000)

Main()

Func Main()

    ; Open file to write to
    ; Create a constant variable in Local scope of the filepath that will be read/written to.
    Local Const $sFilePath = $FilePath[0] & "\" & $rundate & ".me"

    ; Create a temporary file to write data to.
    If Not FileWrite($sFilePath, "Main Function start of the FileWrite Main Function, line 1. " & @CRLF) Then
        MsgBox($MB_SYSTEMMODAL, "", "An error occurred whilst writing the temporary file." & @CRLF)
        Return False
    EndIf

    ; Open the file for writing (append to the end of a file) and store the handle to a variable.
    Global $hFileOpen = FileOpen($sFilePath, $FO_APPEND)
    If $hFileOpen = -1 Then
        MsgBox(0, "Error -1 =hFileOpen", "Main - An error occurred whilst writing the temporary file." & @CRLF)
        Return False
    EndIf
    ; End of Open file to write log data
    $tCur = _Date_Time_GetSystemTime()
    FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
            "Main Start.  Win7UltNx64.au3" & @CRLF)

    For $m = 0 To $maxNum Step 1

        For $j = 0 To $maxNum Step 1

            If $m = $j Then
                ; do nothing - 
            Else


                ; CreateFilePath
                $WinHandOrig[$m][$j] = CreateFilePath($FilePath[$m], $FileTitle[$m])
                $tCur = _Date_Time_GetSystemTime()
                FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & "Main CreateFilePath Done. $WinHandOrig[" & $m & "][" & $j & "] " & $WinHandOrig[$m][$j] & " $FilePath[" & $m & "]: " & _
                        $FilePath[$m] & @CRLF)
                Sleep(2000)

                CreateRundateFolder($rundate, $WinHandOrig[$m][$j], $FileTitle[$m], $FileTitle[$j], "DAD_")
                $tCur = _Date_Time_GetSystemTime()
                FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & "Main CreateRundateFolder  DAD_ $FileTitle[" & $m & "]: " & $FileTitle[$m] & _
                        " $FileTitle[" & $j & "] " & $FileTitle[$j] & @CRLF)
                $tCur = _Date_Time_GetSystemTime()
                FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & "Main CreateRundateFolder   $WinHandOrig[" & $m & "][" & $j & "] " & _
                        $WinHandOrig[$m][$j] & @CRLF)
                Sleep(2000)

                CreateRundateFolder($rundate, $WinHandOrig[$m][$j], $FileTitle[$m], $FileTitle[$j], "CA_")
                Sleep(2000)
                $tCur = _Date_Time_GetSystemTime()
                FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & "Main CreateRundateFolder  CA_  $FileTitle[" & $m & "]: " & $FileTitle[$m] & _
                        " $FileTitle[" & $j & "] " & $FileTitle[$j] & @CRLF)
                $tCur = _Date_Time_GetSystemTime()
                FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & "Main CreateRundateFolder   $WinHandOrig[" & $m & "][" & $j & "] " & _
                        $WinHandOrig[$m][$j] & @CRLF)
                Sleep(2000)

            EndIf

        Next ; j

    Next ; m

   $tCur = _Date_Time_GetSystemTime()
    FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
            "Main End" & @CRLF)
    ; Close the handle returned by FileOpen.
    FileClose($hFileOpen)
    MsgBox(0, "Success!", "Win10Nx64SB Ended Successfully." & @CRLF)

EndFunc   ;==>Main


Func CreateFilePath($FilePath, $FileTitle)

    ; opens explorer window and returns the windows handle for the file path specified
    $tCur = _Date_Time_GetSystemTime()
    FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
            "CreateFilePath Start. $filePath: " & $FilePath & @CRLF)
    Sleep(2000)
    Local $iPid = Run("explorer.exe " & $FilePath)
    Sleep(2000)
    If $iPid = 0 Then ; Run failed
        MsgBox(0, "Error -2", "CreateFilePath run explorer failed." & @CRLF)
        $tCur = _Date_Time_GetSystemTime()
        FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
                "Error -2  CreateFilePath run explorer failed." & @CRLF)
        Exit (-2)
     EndIf

        Local $WinHand = WinGetHandle("[CLASS:CabinetWClass]", "")
        Sleep(2000)
        If @error = 0 Then ; WinGetHandle worked
            $tCur = _Date_Time_GetSystemTime()
            FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
                    "CreateFilePath $WinHand: " & $WinHand & " $filePath: " & $FilePath & _
                    " @error: " & @error & @CRLF)
            Sleep(2000)
            $tCur = _Date_Time_GetSystemTime()
            FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
                    "CreateFilePath   End" & @CRLF)
            Return $WinHand
        Else
            MsgBox(0, "Error -3", "CreateFilePath WinGetHandle failed." & @CRLF)
            $tCur = _Date_Time_GetSystemTime()
            FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
                    "Error -3 CreateFilePath WinGetHandle failed." & @CRLF)
            Exit (-3)
        EndIf
        Sleep(2000)

    $tCur = _Date_Time_GetSystemTime()
    FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
            "CreateFilePath end " & @CRLF)

EndFunc   ;==>CreateFilePath

Func CreateRundateFolder($rundate, $fromWinHand, $fromFileTitle, $toFileTitle, $filePrefix)

    ; create a new folder (temporary one) with rundate & $fileTitle as the name
    ; For $j = 0 To $maxNum Step 1
    $tCur = _Date_Time_GetSystemTime()
    FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
            "CreateRundateFolder Start. $rundate " & $rundate & " $fromWinHand: " & $fromWinHand & @CRLF)
    $tCur = _Date_Time_GetSystemTime()
    FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
            "CreateRundateFolder $fromFileTitle " & $fromFileTitle & " $toFileTitle: " & $toFileTitle & @CRLF)
    $tCur = _Date_Time_GetSystemTime()
    FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
            "CreateRundateFolder $filePrefix " & $filePrefix & @CRLF)
    Sleep(2000)
    Local $rundatelocalfold = $filePrefix & $fromFileTitle & $rundate & $toFileTitle
    Sleep(2000)
    $tCur = _Date_Time_GetSystemTime()
    FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
            "CreateRundateFolder $rundatelocalfold: " & $rundatelocalfold & _
            " $filePrefix: " & $filePrefix & @CRLF)
    Sleep(2800)
    $retval4 = ControlSend($fromWinHand, "", "ToolbarWindow324", "!F") ; alt F - file menu
    Sleep(2000)
    $tCur = _Date_Time_GetSystemTime()
    FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
            "CreateRundateFolder Alt F " & $retval4 & @CRLF)
    Sleep(2000)
    #cs
    $retval4 = ControlSend($retVal1, "", "[CLASS:NetUIHWND]", "{DOWN 1}") ; $downNum hard coded
    Sleep(2000)
    $tCur = _Date_Time_GetSystemTime()
    FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
            "CreateRundateFolder {1} " & $retval4 & @CRLF)
    Sleep(2000)
    #ce
    $retval4 = ControlSend($fromWinHand, "", "ToolbarWindow324", "W") ; New  - Folder is first on the list
    Sleep(2000)
    $tCur = _Date_Time_GetSystemTime()
    FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
            "CreateRundateFolder W " & $retval4 & @CRLF)
    Sleep(2000)

    $retval4 = ControlSend($fromWinHand, "", "ToolbarWindow324", "F")
    ;Sleep(2000)
    $tCur = _Date_Time_GetSystemTime()
    FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
            "CreateRundateFolder F " & $retval4 & @CRLF)
    Sleep(2000)
    $retval4 = ControlSend($fromWinHand, "", "ToolbarWindow324", "{ENTER}")
    ;Sleep(2000)
    $tCur = _Date_Time_GetSystemTime()
    FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
            "CreateRundateFolder {ENTER} " & $retval4 & @CRLF)
    Sleep(2000)
    $retval4 = ControlSend($fromWinHand, "", "", $rundatelocalfold)
    ;Sleep(2000)
    $tCur = _Date_Time_GetSystemTime()
    FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
            "CreateRundateFolder enter $rundatelocalfold: " & $rundatelocalfold & " " & $retval4 & @CRLF)
    Sleep(2000)
    $retval4 = ControlSend($fromWinHand, "", "", "{ENTER}")
    ;Sleep(2000)
    $tCur = _Date_Time_GetSystemTime()
    FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
            "CreateRundateFolder {ENTER} " & $retval4 & @CRLF)
    Sleep(2000)

    Local $winhandlocalfold = $filePrefix & $fromFileTitle & $fromWinHand & $toFileTitle
    Sleep(2000)
    $tCur = _Date_Time_GetSystemTime()
    FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
            "CreateRundateFolder $winhandlocalfold: " & $winhandlocalfold & _
            " $filePrefix: " & $filePrefix & @CRLF)
    Sleep(2000)
    $retval4 = ControlSend($fromWinHand, "", "ToolbarWindow324", "!F") ; alt F - file
    Sleep(2000)
    $tCur = _Date_Time_GetSystemTime()
    FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
            "CreateRundateFolder Alt F " & $retval4 & @CRLF)
    Sleep(2000)
    $retval4 = ControlSend($fromWinHand, "", "ToolbarWindow324", "W") ; New - Folder is the first one listed
    Sleep(2000)
    $tCur = _Date_Time_GetSystemTime()
    FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
            "CreateRundateFolder W " & $retval4 & @CRLF)
    Sleep(2000)
    $retval4 = ControlSend($fromWinHand, "", "ToolbarWindow324", "F") ; folder
    ;Sleep(2000)
    $tCur = _Date_Time_GetSystemTime()
    FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
            "CreateRundateFolder F " & $retval4 & @CRLF)
    Sleep(2000)
    $retval4 = ControlSend($fromWinHand, "", "ToolbarWindow324", "{ENTER}") ; to select new folder
    Sleep(2000)
    $tCur = _Date_Time_GetSystemTime()
    FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
            "CreateRundateFolder {ENTER} " & $retval4 & @CRLF)
    Sleep(2000)
    $retval4 = ControlSend($fromWinHand, "", "", $winhandlocalfold)
    Sleep(2000)
    $tCur = _Date_Time_GetSystemTime()
    FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
            "CreateRundateFolder $winhandlocalfold: " & $winhandlocalfold & " " & $retval4 & @CRLF)
    Sleep(2000)
    $retval4 = ControlSend($fromWinHand, "", "", "{ENTER}")
    Sleep(2000)
    $tCur = _Date_Time_GetSystemTime()
    FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
            "CreateRundateFolder {ENTER} " & $retval4 & @CRLF)
    Sleep(2000)
    $tCur = _Date_Time_GetSystemTime()
    FileWrite($hFileOpen, _Date_Time_SystemTimeToDateTimeStr($tCur) & " " & _
            "CreateRundateFolder end " & @CRLF)

EndFunc   ;==>CreateRundateFolder