Jump to content

Script does not exit?

mr-es335
 Share
Go to solution Solved by Nine,

Recommended Posts

mr-es335 Prodigy

mr-es335

Posted
Posted (edited)

Good day,
I hope that the day finds you well!

This script used to work at one time, but now does not. When calling a function, the function begins and ends as expected, but the function does not return to the main menu on completion of that function. Any ideas? 

;------------------------------------------------
#include <AutoItConstants.au3>
#include <ButtonConstants.au3>
#include <FileConstants.au3>
#include <FontConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <MsgBoxConstants.au3>
#include <WindowsConstants.au3>
;------------------------------------------------
Opt("MustDeclareVars", 1)
;------------------------------------------------
Local $hGUI = GUICreate("Procedure Developer", 480, 255)
GUISetFont(10, 800, 0, "Calibri")
;------------------------------------------------
; COLUMN 1 BUTTONS
Local $idBackup_Dev_P1 = GUICtrlCreateButton("Backup Dev_P1", 10, 10, 150, 25)
Local $idBackup_Dev_P2 = GUICtrlCreateButton("Backup Dev_P2", 10, 40, 150, 25)
Local $idBackup_Dev_P3 = GUICtrlCreateButton("Backup Dev_P3", 10, 70, 150, 25)
Local $idBackup_Dev_P4 = GUICtrlCreateButton("Backup Dev_P4", 10, 100, 150, 25)
Local $idBackup_Dev_P5 = GUICtrlCreateButton("Backup Dev_P5", 10, 130, 150, 25)
Local $idBackup_Dev_P6 = GUICtrlCreateButton("Backup Dev_P6", 10, 160, 150, 25)
Local $idBackup_Dev_P7 = GUICtrlCreateButton("Backup Dev_P7", 10, 190, 150, 25)
Local $idBackup_Dev_P8 = GUICtrlCreateButton("Backup Dev_P8", 10, 220, 150, 25)
; COLUMN 2 BUTTONS
Local $idRestore_Dev_P1 = GUICtrlCreateButton("Restore Dev_P1", 165, 10, 150, 25)
Local $idRestore_Dev_P2 = GUICtrlCreateButton("Restore Dev_P2", 165, 40, 150, 25)
Local $idRestore_Dev_P3 = GUICtrlCreateButton("Restore Dev_P3", 165, 70, 150, 25)
Local $idRestore_Dev_P4 = GUICtrlCreateButton("Restore Dev_P4", 165, 100, 150, 25)
Local $idRestore_Dev_P5 = GUICtrlCreateButton("Restore Dev_P5", 165, 130, 150, 25)
Local $idRestore_Dev_P6 = GUICtrlCreateButton("Restore Dev_P6", 165, 160, 150, 25)
Local $idRestore_Dev_P7 = GUICtrlCreateButton("Restore Dev_P7", 165, 190, 150, 25)
Local $idRestore_Dev_P8 = GUICtrlCreateButton("Restore Dev_P8", 165, 220, 150, 25)
; COLUMN 3 BUTTONS
Local $ExitMe = GUICtrlCreateButton("Exit", 320, 10, 150, 25)
Local $AboutMe = GUICtrlCreateButton("About!", 320, 40, 150, 25)
Local $Set_F1_Workspace = GUICtrlCreateButton("Set [F1] Workspace", 320, 70, 150, 25)
Local $Set_F4_Workspace = GUICtrlCreateButton("Set [F4] Workspace", 320, 100, 150, 25)
;------------------------------------------------
GUISetState(@SW_SHOW, $hGUI)
Local $Swatch = GUICtrlCreatePic(@ScriptDir & "\Data\bg_img.bmp", 320, 130, 150, 115)
;------------------------------------------------
While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
            ; COLUMN 1 BUTTONS
        Case $idBackup_Dev_P1
            Backup_Dev_P1()
        Case $idBackup_Dev_P2
            Backup_Dev_P2()
        Case $idBackup_Dev_P3
            Backup_Dev_P3()
        Case $idBackup_Dev_P4
            Backup_Dev_P4()
        Case $idBackup_Dev_P5
            Backup_Dev_P5()
        Case $idBackup_Dev_P6
            Backup_Dev_P6()
        Case $idBackup_Dev_P7
            Backup_Dev_P7()
        Case $idBackup_Dev_P8
            Backup_Dev_P8()
            ; COLUMN 2 BUTTONS
        Case $idRestore_Dev_P1
            Restore_Dev_P1()
        Case $idRestore_Dev_P2
            Restore_Dev_P2()
        Case $idRestore_Dev_P3
            Restore_Dev_P3()
        Case $idRestore_Dev_P4
            Restore_Dev_P4()
        Case $idRestore_Dev_P5
            Restore_Dev_P5()
        Case $idRestore_Dev_P6
            Restore_Dev_P6()
        Case $idRestore_Dev_P7
            Restore_Dev_P7()
        Case $idRestore_Dev_P8
            Restore_Dev_P8()
            ; COLUMN 3 BUTTONS
        Case $ExitMe
            ExitMe()
        Case $AboutMe
            AboutMe()
        Case $Set_F1_Workspace
            Set_F1_Workspace()
        Case $Set_F4_Workspace
            Set_F4_Workspace()
    EndSwitch
WEnd
;------------------------------------------------
; COLUMN 1 BUTTONS
Func Backup_Dev_P1()
    SplashTextOn("NOTICE!!", "Backing-up Development P1 Data...", 450, 50, -1, -1)
    Sleep(2000)
    ;------------------
    Local $_sDstPath = "E:\Master_Backup\Procedures\Dev_P1"
    ;------------------
    FileCopy("C:\RML\SAC\SAC64.fky", $_sDstPath, $FC_OVERWRITE)
    FileCopy("C:\RML\SAC\SAC64_Alt.fky", $_sDstPath, $FC_OVERWRITE)
    ;------------------
    FileCopy("C:\RML\SAW\SAWStudio64.fky", $_sDstPath, $FC_OVERWRITE)
    FileCopy("C:\RML\SAW\SAWStudio64Alt.fky", $_sDstPath, $FC_OVERWRITE)
    ;------------------
    FileCopy("G:\F-Key_Data\1_SAW_Empty.fky", $_sDstPath, $FC_OVERWRITE)
    FileCopy("G:\F-Key_Data\2_SAW_Alt_Empty.fky", $_sDstPath, $FC_OVERWRITE)
    FileCopy("G:\F-Key_Data\3_SAC_Empty.fky", $_sDstPath, $FC_OVERWRITE)
    FileCopy("G:\F-Key_Data\4_SAC_Alt_Empty.fky", $_sDstPath, $FC_OVERWRITE)
    ;------------------
    FileCopy("G:\Session_Master\Session_Master.edl", $_sDstPath, $FC_OVERWRITE)
    FileCopy("G:\Session_Master\Session_Master.mxs", $_sDstPath, $FC_OVERWRITE)
    Sleep(1000)
    ;------------------
    SplashTextOn("NOTICE!!", "Backing-up Development P1 Data completed...", 450, 50, -1, -1)
    Sleep(2000)
EndFunc   ;==>Backup_Dev_P1
;------------------------------------------------
Func Backup_Dev_P2()
    SplashTextOn("NOTICE!!", "Backing-up Development P2 Data...", 450, 50, -1, -1)
    Sleep(2000)
    ;------------------
    Local $_sDstPath = "E:\Master_Backup\Procedures\Dev_P2"
    ;------------------
    FileCopy("C:\RML\SAC\SAC64.mxt", $_sDstPath, $FC_OVERWRITE)
    ;-----------------
    FileCopy("C:\RML\SAW\SAWStudio64.mxt", $_sDstPath, $FC_OVERWRITE)
    ;------------------
    FileCopy("G:\Mix_Templates\1_SAW_3CH_Mix.mxt", $_sDstPath, $FC_OVERWRITE)
    FileCopy("G:\Mix_Templates\2_SAC_6CH_Mix.mxt", $_sDstPath, $FC_OVERWRITE)
    ;------------------
    FileCopy("G:\Session_Master\Session_Master.edl", $_sDstPath, $FC_OVERWRITE)
    FileCopy("G:\Session_Master\Session_Master.mxs", $_sDstPath, $FC_OVERWRITE)
    Sleep(1000)
    ;------------------
    SplashTextOn("NOTICE!!", "Backing-up Development P2 Data completed...", 450, 50, -1, -1)
    Sleep(2000)
EndFunc   ;==>Backup_Dev_P2
;------------------------------------------------
Func Backup_Dev_P3()
    SplashTextOn("NOTICE!!", "Backing-up Development P3 Data...", 450, 50, -1, -1)
    Sleep(2000)
    ;------------------
    Local $_sDstPath = "E:\Master_Backup\Procedures\Dev_P3"
    ;-----------------------------------------------
    FileCopy("C:\RML\SAC\SAC64.fky", $_sDstPath, $FC_OVERWRITE)
    FileCopy("C:\RML\SAC\SAC64_Alt.fky", $_sDstPath, $FC_OVERWRITE)
    FileCopy("C:\RML\SAC\SAC64.prf", $_sDstPath, $FC_OVERWRITE)
    ;------------------
    FileCopy("C:\RML\SAW\SAWStudio64.fky", $_sDstPath, $FC_OVERWRITE)
    FileCopy("C:\RML\SAW\SAWStudio64Alt.fky", $_sDstPath, $FC_OVERWRITE)
    FileCopy("C:\RML\SAW\SAWStudio64.prf", $_sDstPath, $FC_OVERWRITE)
    ;------------------
    FileCopy("G:\F-Key_Data\5_SAW_3CH_Mix.fky", $_sDstPath, $FC_OVERWRITE)
    FileCopy("G:\F-Key_Data\6_SAC_6CH_Mix.fky", $_sDstPath, $FC_OVERWRITE)
    ;------------------
    FileCopy("G:\Session_Master\Session_Master.edl", $_sDstPath, $FC_OVERWRITE)
    FileCopy("G:\Session_Master\Session_Master.mxs", $_sDstPath, $FC_OVERWRITE)
    Sleep(1000)
    ;------------------
    SplashTextOn("NOTICE!!", "Backing-up Development P3 Data completed...", 450, 50, -1, -1)
    Sleep(2000)
EndFunc   ;==>Backup_Dev_P3
;------------------------------------------------
Func Backup_Dev_P4()
    SplashTextOn("NOTICE!!", "Backing-up Development P4 Data...", 450, 50, -1, -1)
    Sleep(2000)
    ;------------------
    Local $_sDstPath = "E:\Master_Backup\Procedures\Dev_P4"
    ;------------------
    FileCopy("G:\Session_Master\Session_Master.mxs", $_sDstPath, $FC_OVERWRITE)
    Sleep(1000)
    ;------------------
    SplashTextOn("NOTICE!!", "Backing-up Development P4 Data completed...", 450, 50, -1, -1)
    Sleep(2000)
EndFunc   ;==>Backup_Dev_P4
;------------------------------------------------
Func Backup_Dev_P5()
    SplashTextOn("NOTICE!!", "Backing-up Development P5 Data...", 450, 50, -1, -1)
    Sleep(2000)
    ;------------------
    Local $_sDstPath = "E:\Master_Backup\Procedures\Dev_P5"
    ;------------------
    FileCopy("G:\Mix_Templates\3_SAW_Upated.mxt", $_sDstPath, $FC_OVERWRITE)
    FileCopy("G:\Mix_Templates\4_SAC_Updated.mxt", $_sDstPath, $FC_OVERWRITE)
    ;------------------
    FileCopy("G:\Session_Master\Session_Master.edl", $_sDstPath, $FC_OVERWRITE)
    FileCopy("G:\Session_Master\Session_Master.mxs", $_sDstPath, $FC_OVERWRITE)
    Sleep(1000)
    ;------------------
    SplashTextOn("NOTICE!!", "Backing-up Development P5 Data completed...", 450, 50, -1, -1)
    Sleep(2000)
EndFunc   ;==>Backup_Dev_P5
;------------------------------------------------
Func Backup_Dev_P6()
    SplashTextOn("NOTICE!!", "Backing-up Development P6 Data...", 450, 50, -1, -1)
    Sleep(2000)
    ;------------------
    Local $_sDstPath = "E:\Master_Backup\Procedures\Dev_P6"
    ;------------------
    DirCopy("G:\Session_Master\Scenes", $_sDstPath & "\Session_Master\Scenes", $FC_OVERWRITE)
    ;------------------
    FileCopy("G:\Session_Master\Scenes.mxs", $_sDstPath & "\Session_Master", $FC_OVERWRITE)
    FileCopy("G:\Session_Master\Session_Master.mxs", $_sDstPath & "\Session_Master", $FC_OVERWRITE)
    Sleep(1000)
    ;------------------
    SplashTextOn("NOTICE!!", "Backing-up Development P6 Data completed...", 450, 50, -1, -1)
    Sleep(2000)
EndFunc   ;==>Backup_Dev_P6
;------------------------------------------------
Func Backup_Dev_P7()
    SplashTextOn("NOTICE!!", "Backing-up Development P7 Data...", 450, 50, -1, -1)
    Sleep(2000)
    ;------------------
    Local $_sDstPath = "E:\Master_Backup\Procedures\Dev_P7"
    ;------------------
    FileCopy("C:\RML\SAW\SAWStudio64CustomCtrl.dat", $_sDstPath, $FC_OVERWRITE)
    ;------------------
    FileCopy("G:\Session_Master\Control_Track.edl", $_sDstPath, $FC_OVERWRITE)
    FileCopy("G:\Session_Master\Session_Master.edl", $_sDstPath, $FC_OVERWRITE)
    Sleep(1000)
    ;------------------
    SplashTextOn("NOTICE!!", "Backing-up Development P7 Data completed...", 450, 50, -1, -1)
    Sleep(2000)
EndFunc   ;==>Backup_Dev_P7
;------------------------------------------------
Func Backup_Dev_P8()
    SplashTextOn("NOTICE!!", "Backing-up Development P8 Data...", 450, 50, -1, -1)
    Sleep(2000)
    ;------------------
    Local $_spath1 = "G:\Session_Master\Sets\Type_1\Type_1.edl"
    Local $_spath2 = "G:\Session_Master\Sets\Type_2\Type_2.edl"
    Local $_spath3 = "G:\Session_Master\Sets\Type_3\Type_3.edl"
    Local $_spath4 = "G:\Session_Master\Sets\Type_4\Type_4.edl"
    Local $_sDstPath = "E:\Master_Backup\Procedures\Dev_P8"
    ;------------------
    FileCopy($_spath1, $_sDstPath, $FC_OVERWRITE)
    FileCopy($_spath2, $_sDstPath, $FC_OVERWRITE)
    FileCopy($_spath3, $_sDstPath, $FC_OVERWRITE)
    FileCopy($_spath4, $_sDstPath, $FC_OVERWRITE)
    Sleep(1000)
    ;------------------
    SplashTextOn("NOTICE!!", "Backing-up Development P8 Data completed...", 450, 50, -1, -1)
    Sleep(2000)
EndFunc   ;==>Backup_Dev_P8
; COLUMN 2 BUTTONS
Func Restore_Dev_P1()
    SplashTextOn("NOTICE!!", "Restoring Development P1 Data...", 450, 50, -1, -1)
    Sleep(2000)
    ;------------------
    Local $_spath = "E:\Master_Backup\Procedures\Dev_P1"
    ;------------------
    FileCopy($_spath & "\1_SAW_Empty.fky", "G:\F-Key_Data", $FC_OVERWRITE)
    FileCopy($_spath & "\2_SAW_Alt_Empty.fky", "G:\F-Key_Data", $FC_OVERWRITE)
    FileCopy($_spath & "\3_SAC_Empty.fky", "G:\F-Key_Data", $FC_OVERWRITE)
    FileCopy($_spath & "\4_SAC_Alt_Empty.fky", "G:\F-Key_Data", $FC_OVERWRITE)
    ;-----------------
    FileCopy($_spath & "\SAC64.fky", "C:\RML\SAC", $FC_OVERWRITE)
    FileCopy($_spath & "\SAC64_Alt.fky", "C:\RML\SAC", $FC_OVERWRITE)
    ;-----------------
    FileCopy($_spath & "\SAWStudio64.fky", "C:\RML\SAW", $FC_OVERWRITE)
    FileCopy($_spath & "\SAWStudio64Alt.fky", "C:\RML\SAW", $FC_OVERWRITE)
    ;------------------
    FileCopy($_spath & "\Session_Master.edl", "G:\Session_Master", $FC_OVERWRITE)
    FileCopy($_spath & "\Session_Master.mxs", "G:\Session_Master", $FC_OVERWRITE)
    Sleep(1000)
    ;------------------
    SplashTextOn("NOTICE!!", "Restoring Development P1 Data completed...", 450, 50, -1, -1)
    Sleep(2000)
EndFunc   ;==>Restore_Dev_P1
;------------------------------------------------
Func Restore_Dev_P2()
    SplashTextOn("NOTICE!!", "Restoring Development P2 Data...", 450, 50, -1, -1)
    Sleep(2000)
    ;------------------
    Local $_spath = "E:\Master_Backup\Procedures\Dev_P2"
    ;------------------
    FileCopy($_spath & "\1_SAW_3CH_Mix.mxt", "G:\Mix_Templates", $FC_OVERWRITE)
    FileCopy($_spath & "\2_SAC_6CH_Mix.mxt", "G:\Mix_Templates", $FC_OVERWRITE)
    ;------------------
    FileCopy($_spath & "\SAC64.mxt", "C:\RML\SAC", $FC_OVERWRITE)
    ;------------------
    FileCopy($_spath & "\SAWStudio64.mxt", "C:\RML\SAW", $FC_OVERWRITE)
    ;------------------
    FileCopy($_spath & "\Session_Master.edl", "G:\Session_Master", $FC_OVERWRITE)
    FileCopy($_spath & "\Session_Master.mxs", "G:\Session_Master", $FC_OVERWRITE)
    Sleep(1000)
    ;------------------
    SplashTextOn("NOTICE!!", "Restoring Development P2 Data completed...", 450, 50, -1, -1)
    Sleep(2000)
EndFunc   ;==>Restore_Dev_P2
;------------------------------------------------
Func Restore_Dev_P3()
    SplashTextOn("NOTICE!!", "Restoring Development P3 Data...", 450, 50, -1, -1)
    Sleep(2000)
    ;------------------
    Local $_spath = "E:\Master_Backup\Procedures\Dev_P3"
    ;------------------
    FileCopy($_spath & "5_SAW_3CH_Mix.fky", "G:\F-Key_Data", $FC_OVERWRITE)
    FileCopy($_spath & "6_SAC_6CH_Mix.fky", "G:\F-Key_Data", $FC_OVERWRITE)
    ;------------------
    FileCopy($_spath & "\SAC64.fky", "C:\RML\SAC", $FC_OVERWRITE)
    FileCopy($_spath & "\SAC64_Alt.fky", "C:\RML\SAC", $FC_OVERWRITE)
    FileCopy($_spath & "\SAC64.prf", "C:\RML\SAC", $FC_OVERWRITE)
    ;------------------
    FileCopy($_spath & "\SAWStudio64.fky", "C:\RML\SAW", $FC_OVERWRITE)
    FileCopy($_spath & "\SAWStudio64Alt.fky", "C:\RML\SAW", $FC_OVERWRITE)
    FileCopy($_spath & "\SAWStudio64.prf", "C:\RML\SAW", $FC_OVERWRITE)
    ;------------------
    FileCopy($_spath & "\Session_Master.edl", "G:\Session_Master", $FC_OVERWRITE)
    FileCopy($_spath & "\Session_Master.mxs", "G:\Session_Master", $FC_OVERWRITE)
    Sleep(1000)
    ;------------------
    SplashTextOn("NOTICE!!", "Restoring Development P3 Data completed...", 450, 50, -1, -1)
    Sleep(2000)
EndFunc   ;==>Restore_Dev_P3
;------------------------------------------------
Func Restore_Dev_P4()
    SplashTextOn("NOTICE!!", "Restoring Development P4 Data...", 450, 50, -1, -1)
    Sleep(2000)
    ;------------------
    Local $_spath = "E:\Master_Backup\Procedures\Dev_P4"
    ;------------------
    FileCopy($_spath & "\Session_Master.mxs", "G:\Session_Master", $FC_OVERWRITE)
    Sleep(1000)
    ;------------------
    SplashTextOn("NOTICE!!", "Restoring Development P4 Data completed...", 450, 50, -1, -1)
    Sleep(2000)
EndFunc   ;==>Restore_Dev_P4
;------------------------------------------------
Func Restore_Dev_P5()
    SplashTextOn("NOTICE!!", "Restoring Development P5 Data...", 450, 50, -1, -1)
    Sleep(2000)
    ;------------------
    Local $_spath = "E:\Master_Backup\Procedures\Dev_P5"
    ;------------------
    FileCopy($_spath & "\3_SAW_Upated.mxt", "G:\Mix_Templates", $FC_OVERWRITE)
    FileCopy($_spath & "\4_SAC_Updated.mxt", "G:\Mix_Templates", $FC_OVERWRITE)
    ;------------------
    FileCopy($_spath & "\Session_Master.edl", "G:\Session_Master", $FC_OVERWRITE)
    FileCopy($_spath & "\Session_Master.mxs", "G:\Session_Master", $FC_OVERWRITE)
    Sleep(1000)
    ;------------------
    SplashTextOn("NOTICE!!", "Restoring Development P5 Data completed...", 450, 50, -1, -1)
    Sleep(2000)
EndFunc   ;==>Restore_Dev_P5
;------------------------------------------------
Func Restore_Dev_P6()
    SplashTextOn("NOTICE!!", "Restoring Development P6 Data...", 450, 50, -1, -1)
    Sleep(2000)
    ;------------------
    Local $_spath = "E:\Master_Backup\Procedures\Dev_P6"
    ;------------------
    DirCopy($_spath & "\Session_Master", "G:\Session_Master", $FC_OVERWRITE)
    Sleep(1000)
    ;------------------
    SplashTextOn("NOTICE!!", "Restoring Development P6 Data completed...", 450, 50, -1, -1)
    Sleep(2000)
EndFunc   ;==>Restore_Dev_P6
;------------------------------------------------
Func Restore_Dev_P7()
    SplashTextOn("NOTICE!!", "Restoring Development P7 Data...", 450, 50, -1, -1)
    Sleep(2000)
    ;------------------
    Local $_spath = "E:\Master_Backup\Procedures\Dev_P7"
    ;------------------
    FileCopy($_spath & "\SAWStudio64CustomCtrl.dat", "C:\RML\SAW", $FC_OVERWRITE)
    ;------------------
    FileCopy($_spath & "\Control_Track.edl", "G:\Session_Master", $FC_OVERWRITE)
    FileCopy($_spath & "\Session_Master.edl", "G:\Session_Master", $FC_OVERWRITE)
    Sleep(1000)
    ;------------------
    SplashTextOn("NOTICE!!", "Restoring Development P7 Data completed...", 450, 50, -1, -1)
    Sleep(2000)
EndFunc   ;==>Restore_Dev_P7
;------------------------------------------------
Func Restore_Dev_P8()
    SplashTextOn("NOTICE!!", "Restoring Development P8 Data...", 450, 50, -1, -1)
    Sleep(2000)
    ;------------------
    Local $_spath = "E:\Master_Backup\Procedures\Dev_P8"
    Local $_sDstPath1 = "G:\Session_Master\Sets\Type_1"
    Local $_sDstPath2 = "G:\Session_Master\Sets\Type_2"
    Local $_sDstPath3 = "G:\Session_Master\Sets\Type_3"
    Local $_sDstPath4 = "G:\Session_Master\Sets\Type_4"
    ;------------------
    FileCopy($_spath & "\Type_1.edl", $_sDstPath1, $FC_OVERWRITE)
    FileCopy($_spath & "\Type_2.edl", $_sDstPath2, $FC_OVERWRITE)
    FileCopy($_spath & "\Type_3.edl", $_sDstPath3, $FC_OVERWRITE)
    FileCopy($_spath & "\Type_4.edl", $_sDstPath4, $FC_OVERWRITE)
    Sleep(1000)
    ;------------------
    SplashTextOn("NOTICE!!", "Restoring Development P8 Data completed...", 450, 50, -1, -1)
    Sleep(2000)
EndFunc   ;==>Restore_Dev_P8
; COLUMN 3 BUTTONS
Func ExitMe()
    Exit
EndFunc   ;==>ExitMe
;------------------------------------------------
Func AboutMe()
    MsgBox(64, 'About!', 'Procedure Developer' & @CRLF & _
            'Version 1.0' & @CRLF & _
            '' & @CRLF & _
            'Development and Programming by Dell Krauchi' & @CRLF & _
            '' & @CRLF & _
            'Designed specifically for use with all...' & @CRLF & _
            '                 ...RML Labs Software Products.' & @CRLF & _
            '' & @CRLF & _
            '"A special note of thanks to Mr. Bob Lentini of RML Labs,' & @CRLF & _
            'for his continued inspiration and efforts in the' & @CRLF & _
            'development of SAW and MWS! Thank you!"' & @CRLF & _
            '')
EndFunc   ;==>AboutMe
;------------------------------------------------
Func Set_F1_Workspace()
    Local $PID = 0
    ;------------------
    Run("C:\Windows\toggleTaskbarAutohide.exe")
    Sleep(100)
    ;------------------
    Run("C:\RML\SAW\SAWStudio64.exe")
    Sleep(250)
    ;------------------
    Send("{F1}")
    Send("{Alt}")
    Send("{f}")
    Send("{f}")
    Send("{s}")
    Send("{s}")
    Send("{s}")
    Send("{Enter}")
    Send("{Enter}")
    Sleep(1000)
    ;------------------
    ProcessClose("C:\RML\SAW\SAWStudio64.exe")
    $PID = ProcessExists("SAWStudio64.exe")
    If $PID Then ProcessClose($PID)
    Sleep(1000)
    ;------------------
    Run("C:\RML\SAW\SAWStudio64.exe")
    Sleep(2000)
    ;------------------
    ProcessClose("C:\RML\SAW\SAWStudio64.exe")
    $PID = ProcessExists("SAWStudio64.exe")
    If $PID Then ProcessClose($PID)
    ;------------------
    Run("C:\Windows\toggleTaskbarAutohide.exe")
    Sleep(100)
EndFunc   ;==>Set_F1_Workspace
;------------------------------------------------
Func Set_F4_Workspace()
    Local $PID = 0
    ;------------------
    Run("C:\Windows\toggleTaskbarAutohide.exe")
    Sleep(100)
    ;------------------
    Run("C:\RML\SAW\SAWStudio64.exe")
    Sleep(250)
    ;------------------
    Send("{F4}")
    Send("{Alt}")
    Send("{f}")
    Send("{f}")
    Send("{s}")
    Send("{s}")
    Send("{s}")
    Send("{Enter}")
    Send("{Enter}")
    Sleep(1000)
    ;------------------
    ProcessClose("C:\RML\SAW\SAWStudio64.exe")
    $PID = ProcessExists("SAWStudio64.exe")
    If $PID Then ProcessClose($PID)
    Sleep(1000)
    ;------------------
    Run("C:\RML\SAW\SAWStudio64.exe")
    Sleep(2000)
    ;------------------
    ProcessClose("C:\RML\SAW\SAWStudio64.exe")
    $PID = ProcessExists("SAWStudio64.exe")
    If $PID Then ProcessClose($PID)
    ;------------------
    Run("C:\Windows\toggleTaskbarAutohide.exe")
    Sleep(100)
EndFunc   ;==>Set_F4_Workspace
;------------------------------------------------

Any assistance in this matter would be greatly appreciated!

Edited by mr-es335

mr-es335

60x60.jpg.c30aeef4a96bfd4ec227b24ac8ed3ae4.jpg

Sentinel Music Studios

Link to comment
Share on other sites
Nine Universalist

Nine

Posted
Posted

What is this ? 

ShellExecute("workspace_menu.au3")

 

“They did not know it was impossible, so they did it” ― Mark Twain

Spoiler

Block all input without UAC

Save/Retrieve Images to/from Text

 Monitor Management (VCP commands)

Tool to search in text (au3) files

Date Range Picker

 Virtual Desktop Manager

Sudoku Game 2020

Overlapped Named Pipe IPC

 HotString 2.0 - Hot keys with string

x64 Bitwise Operations

Multi-keyboards HotKeySet

 Recursive Array Display

Fast and simple WCD IPC

Multiple Folders Selector

 Printer Manager

GIF Animation (cached)

 

Screen Scraping

 

 Multi-Threading Made Easy

 

 

Link to comment
Share on other sites
mr-es335 Prodigy

mr-es335

Posted
  • Author
Posted (edited)
6 hours ago, Nine said:

What is this ? 

ShellExecute("workspace_menu.au3")

An error...and which has been removed [...there were two, one commented out...]. This removal does not resolve the issue however...

PS: I have updated the original code insert...

Here is a stripped-down version...as all of the other snippets are very similar... 

;------------------------------------------------
#include <AutoItConstants.au3>
#include <ButtonConstants.au3>
#include <FileConstants.au3>
#include <FontConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <MsgBoxConstants.au3>
#include <WindowsConstants.au3>
;------------------------------------------------
Opt("MustDeclareVars", 1)
;------------------------------------------------
Local $hGUI = GUICreate("Procedure Developer", 480, 255)
GUISetFont(10, 800, 0, "Calibri")
;------------------------------------------------
; COLUMN 1 BUTTONS
Local $idBackup_Dev_P1 = GUICtrlCreateButton("Backup Dev_P1", 10, 10, 150, 25)
; COLUMN 3 BUTTONS
Local $ExitMe = GUICtrlCreateButton("Exit", 320, 10, 150, 25)
;------------------------------------------------
GUISetState(@SW_SHOW, $hGUI)
Local $Swatch = GUICtrlCreatePic(@ScriptDir & "\Data\bg_img.bmp", 320, 130, 150, 115)
;------------------------------------------------
While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
            ; COLUMN 1 BUTTONS
        Case $idBackup_Dev_P1
            Backup_Dev_P1()
            ; COLUMN 3 BUTTONS
        Case $ExitMe
            ExitMe()
    EndSwitch
WEnd
;------------------------------------------------
; COLUMN 1 BUTTONS
Func Backup_Dev_P1()
    SplashTextOn("NOTICE!!", "Backing-up Development P1 Data...", 450, 50, -1, -1)
    Sleep(2000)
    ;------------------
    Local $_sDstPath = "E:\Master_Backup\Procedures\Dev_P1"
    ;------------------
    FileCopy("C:\RML\SAC\SAC64.fky", $_sDstPath, $FC_OVERWRITE)
    FileCopy("C:\RML\SAC\SAC64_Alt.fky", $_sDstPath, $FC_OVERWRITE)
    ;------------------
    FileCopy("C:\RML\SAW\SAWStudio64.fky", $_sDstPath, $FC_OVERWRITE)
    FileCopy("C:\RML\SAW\SAWStudio64Alt.fky", $_sDstPath, $FC_OVERWRITE)
    ;------------------
    FileCopy("G:\F-Key_Data\1_SAW_Empty.fky", $_sDstPath, $FC_OVERWRITE)
    FileCopy("G:\F-Key_Data\2_SAW_Alt_Empty.fky", $_sDstPath, $FC_OVERWRITE)
    FileCopy("G:\F-Key_Data\3_SAC_Empty.fky", $_sDstPath, $FC_OVERWRITE)
    FileCopy("G:\F-Key_Data\4_SAC_Alt_Empty.fky", $_sDstPath, $FC_OVERWRITE)
    ;------------------
    FileCopy("G:\Session_Master\Session_Master.edl", $_sDstPath, $FC_OVERWRITE)
    FileCopy("G:\Session_Master\Session_Master.mxs", $_sDstPath, $FC_OVERWRITE)
    Sleep(1000)
    ;------------------
    SplashTextOn("NOTICE!!", "Backing-up Development P1 Data completed...", 450, 50, -1, -1)
    Sleep(2000)
EndFunc   ;==>Backup_Dev_P1
;------------------------------------------------
; COLUMN 3 BUTTONS
Func ExitMe()
    Exit
EndFunc   ;==>ExitMe
;------------------------------------------------

I am "assuming"  that the issue has to do with the While/Wend section - as the function works by itself.

Edited by mr-es335

mr-es335

60x60.jpg.c30aeef4a96bfd4ec227b24ac8ed3ae4.jpg

Sentinel Music Studios

Link to comment
Share on other sites
  • Solution
Nine Universalist

Nine

Posted
  • Solution
Posted

Add this line at the very end of the backup function : 

SplashOff()

 

“They did not know it was impossible, so they did it” ― Mark Twain

Spoiler

Block all input without UAC

Save/Retrieve Images to/from Text

 Monitor Management (VCP commands)

Tool to search in text (au3) files

Date Range Picker

 Virtual Desktop Manager

Sudoku Game 2020

Overlapped Named Pipe IPC

 HotString 2.0 - Hot keys with string

x64 Bitwise Operations

Multi-keyboards HotKeySet

 Recursive Array Display

Fast and simple WCD IPC

Multiple Folders Selector

 Printer Manager

GIF Animation (cached)

 

Screen Scraping

 

 Multi-Threading Made Easy

 

 

Link to comment
Share on other sites
mr-es335 Prodigy

mr-es335

Posted
  • Author
Posted (edited)

Nine,

That "appeared" to do the trick! I wonder why it apparently "worked" in the past...but not now? Interesting!!

Thank you all for your time, Nine [...times Nine=nine...]...very much appreciated, indeed!

A question, "Is the employment of "SplashOff()" something that should be deployed each-and-every time the "SplashTextOnt" command is deployed?"

Edited by mr-es335

mr-es335

60x60.jpg.c30aeef4a96bfd4ec227b24ac8ed3ae4.jpg

Sentinel Music Studios

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...