#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Caleb Austing\Documents\AutoIT\GUIs\Start menu Concept.kxf
Global $Form1 = GUICreate("Start Menu CONCEPT", 294, 451, -5, 245)
Global $Pic1 = GUICtrlCreatePic("C:\Users\Caleb Austing\Pictures\THIS2.jpg", 0, 0, 105, 105)
Global $Group1 = GUICtrlCreateGroup("Group1", 0, 112, 289, 337)
Global $Word = GUICtrlCreateButton("Word", 8, 128, 129, 33)
Global $GChrome = GUICtrlCreateButton("Google Chrome", 8, 168, 129, 33)
Global $Publisher = GUICtrlCreateButton("Microsoft Publisher", 8, 208, 129, 33)
Global $InDev = GUICtrlCreateButton("InDev", 152, 128, 129, 33)
Global $InDevB = GUICtrlCreateButton("InDevB", 152, 168, 129, 33)
Global $InDevC = GUICtrlCreateButton("InDevC", 152, 208, 129, 33)
Global $InDevD = GUICtrlCreateButton("InDevD", 152, 248, 129, 33)
Global $InDevF = GUICtrlCreateButton("InDevF", 152, 328, 129, 33)
Global $InDevE = GUICtrlCreateButton("InDevE", 152, 288, 129, 33)
Global $InDevG = GUICtrlCreateButton("InDevG", 152, 368, 129, 33)
Global $InDevH = GUICtrlCreateButton("InDevH", 152, 408, 129, 33)
Global $PowerPoint = GUICtrlCreateButton("Microsoft PowerPoint", 8, 248, 129, 33)
Global $Excel = GUICtrlCreateButton(" Microsoft Excel", 8, 288, 129, 33)
Global $Outlook = GUICtrlCreateButton("Outlook", 8, 328, 129, 33)
Global $Steam = GUICtrlCreateButton("Steam", 8, 368, 129, 33)
Global $TaskM = GUICtrlCreateButton("Task Manager", 8, 408, 129, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $CI = GUICtrlCreateButton("Concept Idea", 112, 48, 81, 33)
Global $CL = GUICtrlCreateButton("Change Log", 200, 48, 81, 33)
Global $Title = GUICtrlCreateInput("Start Menu [V0.01A]", 144, 8, 105, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

		Case $Word
			StartWord()

		Case $GChrome
			StartChrome()

		Case $Publisher
			StartPub()

		Case $Excel
			StartExcel()

		Case $PowerPoint
			StartPWP()

		Case $Outlook
			StartOutLook()

		Case $Steam
			StartSteam()

		Case $TaskM
			StartTaskManager()

		Case $InDev, $InDevB, $InDevC, $InDevD, $InDevE, $InDevF, $InDevG, $InDevH
			InDev()

	Case $CI
		OpenConceptIdea()

	Case $CL
		OpenChangeLog()

	EndSwitch
WEnd

Func StartWord()
	ShellExecute("winword")
EndFunc

Func StartChrome()
	ShellExecute("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe")
EndFunc

Func StartPub()
	ShellExecute("MSPUB.exe")
EndFunc

Func StartPWP()
	ShellExecute("powerpnt.exe")
EndFunc

Func StartExcel()
	ShellExecute("excel.exe")
EndFunc

Func StartOutLook()
	ShellExecute("outlook.exe")
EndFunc

Func StartSteam()
	ShellExecute("C:\Program Files (x86)\Steam\Steam.exe")
EndFunc

Func StartTaskManager()
	ShellExecute("TASKMGR")
EndFunc

Func InDev()
	MsgBox(0, "Notice:", "This feature is still in developement")
EndFunc

Func OpenChangeLog()
	ShellExecute("Notepad.exe", @ScriptDir & "\ChangeLog.txt")
EndFunc

Func OpenConceptIdea()
	ShellExecute("Notepad.exe", @ScriptDir & "\ConceptIdea.txt")
EndFunc