Installer Script with Basic GUI Label

[docta608]

So I created a GUI in Koda and I want it to show up while an app is installed. I have been searching all over, and it seems simple, but I am not getting it. I have tried wrapping the install in a function but I keep failing somewhere. I am pretty basic on Autoit ability here and just need to compile a legacy app to deploy it through Intune. The install file works, I just want the GUI so people don't move affect the install while its happening. 

 

 

GUI

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 612, 420, 5126, 440)
$Label1 = GUICtrlCreateLabel("Adbase is installing", 0, 0, 613, 216)
GUICtrlSetFont(-1, 24, 800, 0, "Times New Roman")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetResizing(-1, $GUI_DOCKVCENTER)
$Label2 = GUICtrlCreateLabel("Please Do Not Create Your Mouse or Keyboard!", -8, 216, 622, 201)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

 

Install 

#RequireAdmin

Run(@ScriptDir & '\AdBase2017-GA170720.exe')
AutoItSetOption('MouseCoordMode',0)

Winwait ('Adbase - InstallShield Wizard', 'Adbase requires the following items')
ControlClick ("Adbase - InstallShield Wizard", "Adbase requires the following items", "[CLASS:Button; INSTANCE:1]")
WinWait ("Adbase - InstallShield Wizard", "The InstallShield(R) Wizard will install Adbase on your computer")
ControlClick("Adbase - InstallShield Wizard", "The InstallShield(R) Wizard will install Adbase on your computer", "[CLASS:Button; INSTANCE:1]")
WinWait("Adbase - InstallShield Wizard", "Typical program features will be installed")
ControlClick("Adbase - InstallShield Wizard", "Typical program features will be installed", "[CLASS:Button; INSTANCE:5]")
WinWait("Adbase - InstallShield Wizard", "Click Install to begin the installation")
ControlClick("Adbase - InstallShield Wizard", "Click Install to begin the installation", "[CLASS:Button; INSTANCE:1]")
WinWait("Adbase - InstallShield Wizard", "InstallShield Wizard Completed")
ControlClick ("Adbase - InstallShield Wizard", "InstallShield Wizard Completed", "[CLASS:Button; INSTANCE:1]")
WinActivate ("Adbase - InstallShield Wizard", "InstallShield Wizard Completed")
Send("{ENTER}")
 

[water]

I assume there is an Installation Manual available for adbase. Have a look at "Silent Installation"
Installshield allows silent installation so no automation of the Gui is needed: https://docs.revenera.com/installshield24helplib/helplibrary/SilentInstall.htm

[docta608]

10 minutes ago, water said:

I assume there is an Installation Manual available for adbase. Have a look at "Silent Installation"
Installshield allows silent installation so no automation of the Gui is needed: https://docs.revenera.com/installshield24helplib/helplibrary/SilentInstall.htm

Adbase is an old legacy app and while there are silent switches, they don't work. I have spent hours trying or I wouldn't have gone down this path. 

[water]

Did you have a look at function BlockInput? This stops user input from keyboard and/or mouse but does not stop AutoIt commands like Control*