GUI Combobox only Select if Selected with mouseclick?

[tweakster2010]

Hello anyone who has a basic way to do this without recoding a lot of what I currently have.

Currently I have a Gui set to have a combox and in the combox is a serious of programs and links it launches to make a universal spot for access relating to my job function. In turn I noticed when I scroll or use the arrow keys  while in the Combobox it starts launching each option. 

Ideally I want it only to launch if I click the drop down list and chose the option. I have searched throughout and I found some information but I do not think its exactly what I am trying to accomplish and I have no idea how to accomplish exactly that. 

I use Cases currently to access the combobox options being selected. If code would be preferred but I do not have any code currently guided to my end goal if that makes sense.

Func Program()
$hGUI = GUICreate("Logged in as:   " & ("info removed ") & StringUpper(GuiCtrlRead($Username)), 300,30)
$Runasprogs = GUICtrlCreateCombo("", 5, 5, 275, 20)
GUISetState(@SW_SHOW, $hGUI)
GUICtrlSetData(-1, "|Test1|Test2|Close", "")

While 1
    Switch GuiGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Runasprogs
            Switch GuiCtrlRead($Runasprogs)

Case "Test1"
    ShellExecute("URl of Test")
    If @error = 1 Then MsgBox(0, "Failure", "An Error has occurred, @extended = " & @extended)

Case "Test2"
        ShellExecute("URl of Test")
    If @error = 1 Then MsgBox(0, "Failure", "An Error has occurred, @extended = " & @extended)
    
Case "Close"    
Exit

            EndSwitch
    EndSwitch
WEnd
EndFunc

This is a Lowgrade version of what I currently have with the information stripped out (500 lines of code currently).

Any help is totally appreciated or a point in the right direction

[BrewManNH]

Don't use the combobox as a trigger to read from it, use a separate button to trigger the function.

#include <GUIConstants.au3>
Func Program()
    $hGUI = GUICreate("Logged in as:   " & ("info removed ") & StringUpper(GUICtrlRead($Username)), 300, 30)
    $Runasprogs = GUICtrlCreateCombo("", 5, 5, 275, 20)
    GUICtrlSetData(-1, "|Test1|Test2|Close", "")
    Local $idButton = GUICtrlCreateButton(" Execute ", 300, 5) ; <<<<<<<<<<<
    GUISetState(@SW_SHOW, $hGUI)

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                Exit
            Case $idButton ; <<<<<<<<<<<
                Switch GUICtrlRead($Runasprogs)

                    Case "Test1"
                        ShellExecute("URl of Test")
                        If @error = 1 Then MsgBox(0, "Failure", "An Error has occurred, @extended = " & @extended)

                    Case "Test2"
                        ShellExecute("URl of Test")
                        If @error = 1 Then MsgBox(0, "Failure", "An Error has occurred, @extended = " & @extended)

                    Case "Close"
                        Exit

                EndSwitch
        EndSwitch
    WEnd
EndFunc   ;==>Program

[tweakster2010]

That is what I was looking for thanks, I think my script just got too long and I overlooked a few things. The CtrlSet Data also tried to write the data in the box and I needed to correct that to the $Runasprogs to fix. Appreciate the speedy response too.