;coded by UEZ 2011
#include <GUIConstantsEx.au3>
#include <GuiMenu.au3>
#include <WindowsConstants.au3>

$hGUI = GUICreate("APPLICATION LAUNCHER", 368, 169)
Global $aCheckbox[17][2]
$aCheckbox[0][0] = 16
$aCheckbox[1][0] = GUICtrlCreateCheckbox("GMAIL", 8, 8, 97, 17)
$aCheckbox[2][0] = GUICtrlCreateCheckbox("SAP", 8, 24, 97, 17)
$aCheckbox[3][0] = GUICtrlCreateCheckbox("SKYPE", 8, 45, 97, 17)
$aCheckbox[4][0] = GUICtrlCreateCheckbox("Checkbox4", 8, 61, 97, 17)
$aCheckbox[5][0] = GUICtrlCreateCheckbox("Checkbox5", 8, 85, 97, 17)
$aCheckbox[6][0] = GUICtrlCreateCheckbox("Checkbox6", 8, 101, 97, 17)
$aCheckbox[7][0] = GUICtrlCreateCheckbox("Checkbox7", 8, 122, 97, 17)
$aCheckbox[8][0] = GUICtrlCreateCheckbox("Checkbox8", 8, 138, 97, 17)
$aCheckbox[9][0] = GUICtrlCreateCheckbox("Checkbox9", 128, 9, 97, 17)
$aCheckbox[10][0] = GUICtrlCreateCheckbox("Checkbox10", 128, 25, 97, 17)
$aCheckbox[11][0] = GUICtrlCreateCheckbox("Checkbox11", 128, 46, 97, 17)
$aCheckbox[12][0] = GUICtrlCreateCheckbox("Checkbox12", 128, 62, 97, 17)
$aCheckbox[13][0] = GUICtrlCreateCheckbox("Checkbox13", 128, 86, 97, 17)
$aCheckbox[14][0] = GUICtrlCreateCheckbox("Checkbox14", 128, 102, 97, 17)
$aCheckbox[15][0] = GUICtrlCreateCheckbox("Checkbox15", 128, 123, 97, 17)
$aCheckbox[16][0] = GUICtrlCreateCheckbox("Checkbox16", 128, 139, 97, 17)
$Button = GUICtrlCreateButton("Go", 232, 128, 75, 25)

Enum $idAll = 1000, $idNone

$hQMenu = _GUICtrlMenu_CreatePopup()
_GUICtrlMenu_InsertMenuItem($hQMenu, 0, "Select all", $idAll)
_GUICtrlMenu_InsertMenuItem($hQMenu, 1, "Select none", $idNone)

GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)

AdlibRegister("Checkbox_Check", 200)
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
GUIRegisterMsg($WM_CONTEXTMENU, "WM_CONTEXTMENU")

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            AdlibUnRegister("Checkbox_Check")
            GUIRegisterMsg($WM_COMMAND, "")
            GUIRegisterMsg($WM_CONTEXTMENU, "")
            Exit
        Case $Button
            $checked = ""
		  For $k = 1 To $aCheckbox[0][0]
                If $aCheckbox[$k][1] Then $checked = $k
                MsgBox (0,"1",$checked)
			  ; Switch $checked
				  ; Case 1
					  ; $Chrome = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe http://gmail.google.com"
                       ;Run($Chrome)

				  ; Case 2
					   ;$Sap  = "C:\Program Files (x86)\SAP\FrontEnd\SAPgui\saplogon.exe"
			          ;  Run($Sap)
				 ;  Case 3
					   ; $skype = "C:\Program Files (x86)\Skype\Phone\Skype.exe"
                       ; Run($skype)
				   ;Case Else
					  ; $sMsg = "What are you still doing up?"

			  ; EndSwitch


				Next

            MsgBox(0, "Information", "Following checkboxes are checked: " & @CRLF & @CRLF & StringTrimRight($checked, 2))

			 if StringTrimRight($checked, 2)== 1 Then
			   $Chrome = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe http://gmail.google.com"
               Run($Chrome)

			ElseIf  StringTrimRight($checked, 2)== 2 Then
			   $Sap  = "C:\Program Files (x86)\SAP\FrontEnd\SAPgui\saplogon.exe"
			   Run($Sap)

			ElseIf  StringTrimRight($checked, 2)== 3 Then
			   $skype = "C:\Program Files (x86)\Skype\Phone\Skype.exe"
               Run($skype)


            EndIf

    EndSwitch
WEnd

Func Checkbox_Check()
    Local $j, $add
    For $j = 1 To $aCheckbox[0][0]
        $aCheckbox[$j][1] = BitAND(GUICtrlRead($aCheckbox[$j][0]), $GUI_CHECKED)
        $add += $aCheckbox[$j][1]
    Next
    If $add Then
        If Not BitAND(GUICtrlGetState($Button), $GUI_ENABLE) Then GUICtrlSetState($Button, $GUI_ENABLE)
    Else
        If Not BitAND(GUICtrlGetState($Button), $GUI_DISABLE) Then GUICtrlSetState($Button, $GUI_DISABLE)
    EndIf
EndFunc

Func WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
    #forceref $hWnd, $Msg, $wParam, $lParam
    Local $l
    Switch $wParam
        Case $idAll
            For $l = 1 To $aCheckbox[0][0]
                GUICtrlSetState($aCheckbox[$l][0], $GUI_CHECKED)
            Next
        Case $idNone
            For $l = 1 To $aCheckbox[0][0]
                GUICtrlSetState($aCheckbox[$l][0], $GUI_UNCHECKED)
            Next
    EndSwitch
    Return "GUI_RUNDEFMSG"
EndFunc

Func WM_CONTEXTMENU($hWnd, $Msg, $wParam, $lParam)
    #forceref $hWnd, $Msg, $wParam, $lParam
    _GUICtrlMenu_TrackPopupMenu ($hQMenu, $hGUI)
    Return True
EndFunc