;CHI Rhapsody Launcher
;Dave Thompson
;October 2015

;Include Autoit constants... (DLLs)
#include <GuiConstantsEx.au3>
#include <AVIConstants.au3>
#include <TreeViewConstants.au3>
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>
#include <array.au3>




;Set Global varirables
Global $App
Global $LBS_NOTIFY = 0x1, $WS_VSCROLL = 0x200000, $WS_BORDER = 0x800000;

;Create the GUI
GUICreate("Launcher", 325, 300)
GUISetState()

;Create the list window in the GUI
$List = GUICtrlCreateList("", 0, 0, 120, 297, BitOr($WS_BORDER, $WS_VSCROLL))
GUICtrlSetState($List,$GUI_FOCUS)

;Create the list of Servers
;Swap the comments to add or remove the Prod servers
GUICtrlSetData($List, "||AR DEV|")


;Create the buttons
$Btn = GUICtrlCreateButton("Launch IDE", 160, 150, 120, 30)
$Wmc = GUICtrlCreateButton("Launch WMC/Browser", 160, 190, 120, 30)
$Pwd = GUICtrlCreateButton("Change Password", 160, 10, 120, 30)
$UserNameMe = GUICtrlCreateButton("Change User", 160, 50, 120, 30)

;Create the labels with info
GUICtrlCreateLabel("Please do not touch the keyboard or or click the mouse until after the fields are populated when launching the IDE.", 130, 90, 200, 40)

;Begin the loop throug the code for the selection of the engine and what each button does, this is dynamic until the app is closed
While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			ExitLoop

			Case $UserNameMe
			   $UserName = InputBox("UserName","Enter UserName","","*")
			   $FILEme = FileOpen("C:\AutoMe.txt",2)
			   FileWrite($FILEme,$UserName)
			   FileClose($FILEme)

;when selectiong the server and clicking the Chang Password button this Case is selected and calls the webpage
		Case $Pwd
		   	Switch GUICtrlRead($List)
				Case "AR DEV"

;when selectiong the server and clicking the WMC button this Case is selected and calls the webpage
		Case $Wmc
			Switch GUICtrlRead($List)

				Case "AR DEV"
					ShellExecute("http://10.250.134.123:10081/rhapsody/login/ViewLogin.action")
					Sleep(4000)
					Send("Dthompson")
					Send("{TAB 1}")
					Send("Davidlth16")
					Sleep(4000)
					Send("{ENTER}")



			EndSwitch
	EndSwitch
WEnd