Unfreeze GUI

[Swatty43]

I have a script that I use as a setup utility for new pcs, I have a function that installs LogMeIn with all of our information. It works just fine all the way through, however when I exit it out of the installer before it finished my script is paused, will not un pause and my GUI is frozen and I need to right click the tray icon to exit. Is there a way to have this not happen? 

I am using a RunWait(LogMeIn()) to start it.

Heres my function:

expandcollapse popup

Func LogMeIn()
    Opt("WinTitleMatchMode", -2)
    Run(@DesktopDir & "\C1SetupUtility\Files\Scripts\Batch\LogMeIn.bat","","",@SW_HIDE)
    WinWaitActive("LogMeIn", "LogMeIn")
    Send("{ENTER}")
    WinWaitActive("LogMeIn", "Account")
    Send("{ENTER}")
    WinWaitActive("License Agreement")
    Send("{ENTER}")
    WinWaitActive("LogMeIn", "Software options")
    Send("{TAB}")
    Send("{TAB}")
    Send("{ENTER}")
    WinWaitActive("LogMeIn", "Computer Description")
    Send("{ENTER}")
    WinWaitActive("LogMeIn", "Computer Access Code")
    Send("franklin")
    Send("{TAB}")
    Send("franklin")
    Send("{ENTER}")
    WinWaitActive("LogMeIn", "Enter your LogMeIn account information")
    Send("test@test.com")
    Send("{TAB}")
    Send("test")
    Send("{TAB}")
    Send("{UP}")
    Send("{ENTER}")
    WinWaitActive("LogMeIn", "Choose Profile")
    Send("{DOWN}")
    Send("{ENTER}")
    WinWaitActive("LogMeIn", "Choose Destination Location")
    Send("{ENTER}")
    WinWaitActive("LogMeIn", "Setup Completed")
    Send("{TAB}")
    Send("{TAB}")
    Send("{SPACE}")
    Send("{TAB}")
    Send("{ENTER}")
    WinWaitActive("LogMeIn", "Enabled and Online")
    Send("{ENTER}")
EndFunc   ;==>LogMeIn

[BrewManNH]

WinWaitActive has a timeout parameter, without that it will just sit there waiting forever for the window to appear.

[water]

I'm sure your script hangs on one of the WinWaitActive statements. Set the timeout parameter.

[water]

BTW:

I wouldn't use Send. Use the Control* functions to make your script more reliable. I'm (nearly) sure that LogMeIn has a silent install feature. So no need to automate the installation .

[Swatty43]

Thanks for all your help, here is my new code:

expandcollapse popup

Func LogMeIn()
    Opt("WinTitleMatchMode", 2)
    Run(@DesktopDir & "\C1SetupUtility\Files\Scripts\Batch\LogMeIn.bat","","",@SW_HIDE)
    WinWaitActive("LogMeIn", "LogMeIn",3)
    ControlSend("LogMeIn", "Simply Connected","", "{ENTER}")
    WinWaitActive("LogMeIn", "Account",3)
    ControlSend("LogMeIn", "Account","","{ENTER}")
    WinWaitActive("License Agreement",3)
    ControlSend("LogMeIn","License Agreement","","{ENTER}")
    WinWaitActive("LogMeIn", "Software options",3)
    ControlSend("LogMeIn", "Software options","","{TAB}")
    ControlSend("LogMeIn", "Software options","","{TAB}")
    ControlSend("LogMeIn", "Software options","","{ENTER}")
    WinWaitActive("LogMeIn", "Computer Description",3)
    ControlSend("LogMeIn", "Computer Description","","{ENTER}")
    WinWaitActive("LogMeIn", "Computer Access Code",3)
    ControlSend("LogMeIn", "Computer Access Code","","franklin")
    ControlSend("LogMeIn", "Computer Access Code","","{TAB}")
    ControlSend("LogMeIn", "Computer Access Code","","franklin")
    ControlSend("LogMeIn", "Computer Access Code","","{ENTER}")
    WinWaitActive("LogMeIn", "Enter your LogMeIn account information",3)
    ControlSend("LogMeIn", "Enter your LogMeIn account information","","test@test.com")
    ControlSend("LogMeIn", "Enter your LogMeIn account information","","{TAB}")
    ControlSend("LogMeIn", "Enter your LogMeIn account information","","test")
    ControlSend("LogMeIn", "Enter your LogMeIn account information","","{TAB}")
    ControlSend("LogMeIn", "Enter your LogMeIn account information","","{UP}")
    ControlSend("LogMeIn", "Enter your LogMeIn account information","","{ENTER}")
    WinWaitActive("LogMeIn", "Choose Profile",3)
    ControlSend("LogMeIn", "Choose Profile","","{DOWN}")
    ControlSend("LogMeIn", "Choose Profile","","{ENTER}")
    WinWaitActive("LogMeIn", "Choose Destination Location",3)
    ControlSend("LogMeIn", "Choose Destination Location","","{ENTER}")
    WinWaitActive("LogMeIn", "Setup Completed",3)
    ControlSend("LogMeIn", "Setup Completed","","{TAB}")
    ControlSend("LogMeIn", "Setup Completed","","{TAB}")
    ControlSend("LogMeIn", "Setup Completed","","{SPACE}")
    ControlSend("LogMeIn", "Setup Completed","","{TAB}")
    ControlSend("LogMeIn", "Setup Completed","","{ENTER}")
    WinWaitActive("LogMeIn", "Enabled and Online",3)
    ControlSend("LogMeIn", "Enabled and Online",'',"{ENTER}")
EndFunc   ;==>LogMeIn

But if I click cancel on the installer my script still freezes and I need to exit and restart it. I am still unable to restart it after it is paused.

[water]

I still don't understand why you need to cancel the installation?

[Swatty43]

I still don't understand why you need to cancel the installation?

 

More of a just in case this happens kind of thing haha, I don't plan on quitting the install but I am not the only one using the program.

[water]

You could block user input while your install is running.