Menu for Web links

[goodmanjl531]

I am trying to create a menu that will list a specific number of weblinks and after the user clicks on one it will open the specfic link in Firefox

 

I need the menu to be full screen and topmost screen then when firefox opens the same topmost screen fullly maximized,  When user close's Firefox the menu should then be back in the top screen

 

Some of my company specific code has been removed

Ive tried different calls for Firefox shellexecute vs just a run command 

most important since this is running on a locked down machine I need widows to be on top at specific points to stop other software from taking over.

everything is working except having the different windows stay in focus on top when needed.

 

Thanks in advance for anyhelp

expandcollapse popup

#include <APISysConstants.au3>
#include <ButtonConstants.au3>
#include <ColorConstants.au3>
#include <Constants.au3>
#include <EditConstants.au3>
#include <FileConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiButton.au3>


$TYPE = 0



    $Form1 = GUICreate(StringUpper($Storedivision) & " Weblinks", 1921, 1179, 1912, -8, BitOR($WS_SYSMENU, $WS_MAXIMIZE, $WS_POPUP), BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
    $Button1 = GUICtrlCreateButton("iNotes", 24, 96, 137, 73)
    $Button2 = GUICtrlCreateButton(StringUpper($Storedivision), 24, 16, 137, 73)
    $Button3 = GUICtrlCreateButton("ShopperTrak", 184, 16, 137, 73)
    If $StoreShopperTrak = "no" Then
        _GUICtrlButton_Enable($Button3, False)
    EndIf
    $Button4 = GUICtrlCreateButton("Ceridian", 184, 96, 137, 73)
    $Button5 = GUICtrlCreateButton("Shoplifting Incident Form", 24, 176, 137, 73)
    $Button6 = GUICtrlCreateButton("Customer Email", 184, 176, 137, 73)
    $Button7 = GUICtrlCreateButton("Exit", 112, 312, 145, 49)
    GUISetState(@SW_SHOWMAXIMIZED)

    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $Button1 ; INOTES
                $Website = $iNotes
                SplashTextOn($Storedivision & " Weblinks", "Loading iNotes" & @CRLF & "Please Wait...", "300", "100", "-1", "50", 0, "Arial Black", "12", "700")
                Run(@ProgramFilesDir & "\Mozilla Firefox\firefox.exe " & $Website, "", @SW_MAXIMIZE)
                ;ShellExecute($Website)
                Sleep(10000)
                SplashOff()
                ;Exit
            Case $Button2 ; Division Web
                Select
                    Case $TYPE = 15
                        $Website = $ClUS
                    Case $TYPE = 5
                        $Website = $ClCD
                    Case $TYPE = 1000
                        $Website = $ClCD
                    Case $TYPE = 11
                        $Website = $ICUS
                    Case $TYPE = 1
                        $Website = $ICCD
                EndSelect
                ShellExecute($Website)
                Sleep(10000)
                Exit
            Case $Button3 ; ShopperTrak
                $Website = $ShopperTrak
                ShellExecute($Website)
            Case $Button4 ; Ceridian
                $Website = $Ceridian
                ShellExecute($Website)
            Case $Button5 ; LP
                $Website = $LPShoplifting
                ShellExecute($Website)
            Case $Button6 ; EMAIL Signup
                Select
                    Case $TYPE = 15
                        $Website = $CLUSEmail
                    Case $TYPE = 5
                        $Website = $CLCDEmail
                    Case $TYPE = 1000
                        $Website = $CLCDEmail
                    Case $TYPE = 11
                        $Website = $ICUSEmail
                    Case $TYPE = 1
                        $Website = $ICCDEmail
                EndSelect
                ShellExecute($Website)
            Case $Button7 ; EXIT
                Exit
        EndSwitch
    WEnd




EndIf

 

[careca]

Had to change firefox path a bit to suit mine:

Case $Button1 ; INOTES
                $Website = 'google.pt'
                SplashTextOn($Storedivision & " Weblinks", "Loading iNotes" & @CRLF & "Please Wait...", "300", "100", "-1", "50", 0, "Arial Black", "12", "700")
                Run('C:\Program Files (x86)\Mozilla Firefox\firefox.exe ' & $Website, "", @SW_MAXIMIZE)
                WinSetOnTop ($Form1, '', 0)
                WinWaitActive('CLASS:[MozillaWindowClass]')
                SplashOff()
                WinSetOnTop ('CLASS:[MozillaWindowClass]', '', 0)
                Sleep(5000)
                ;Exit

I think you get the idea.

[goodmanjl531]

Thanks, that worked i had to tweak it a bit..

 

$Website = $iNotes
                SplashTextOn($division & " Weblinks", "Loading iNotes" & @CRLF & "Please Wait...", "300", "100", "-1", "50", 0, "Arial Black", "12", "700")
                Run(@ProgramFilesDir & '\Mozilla Firefox\firefox.exe ' & $Website, "", @SW_MAXIMIZE)
                WinSetOnTop($Form1, '', 0)
                ;WinWaitActive('CLASS:[MozillaWindowClass]')
                WinSetOnTop('CLASS:[MozillaWindowClass]', '', 0)
                Sleep(5000)
                SplashOff()

 

[nitekram]

31 minutes ago, goodmanjl531 said:

Thanks, that worked i had to tweak it a bit..

 

$Website = $iNotes
                SplashTextOn($division & " Weblinks", "Loading iNotes" & @CRLF & "Please Wait...", "300", "100", "-1", "50", 0, "Arial Black", "12", "700")
                Run(@ProgramFilesDir & '\Mozilla Firefox\firefox.exe ' & $Website, "", @SW_MAXIMIZE)
                WinSetOnTop($Form1, '', 0)
                ;WinWaitActive('CLASS:[MozillaWindowClass]')
                WinSetOnTop('CLASS:[MozillaWindowClass]', '', 0)
                Sleep(5000)
                SplashOff()

 

I am in the process of doing something similar, but have not started it yet. I believe the best way to do this is to create an INI file, maybe even let the end user update it via the script -so that would mean another type  of GUI, so that the user can put the name of the  link as well as the URL to be saved in the INI file. That way if any sites change, or they want to create their own links, they can do so. With your GUI design, this might not work so well, as you are using buttons, but it could be used with a dropdown control too.