; AutoIt Version: 3.2.0.1
; Language: English
; Platform: WinXP
; Author: Matt Marsh
; Script Function: Office Bar
; Version: 1 Beta
; Date: Oct 2006
#include <GuiConstants.au3>
GUICreate("Office Bar", 171, 51, 570, 40)
GUISetBkColor(0x0066FF)
$Icon_1 = GUICtrlCreateIcon("C:\Program Files\Microsoft Office\OFFICE11\winword.exe", 0, 10, 10, 32, 32)
GUICtrlSetTip(-1, "Launch Word")
$Icon_2 = GUICtrlCreateIcon("C:\Program Files\Microsoft Office\OFFICE11\excel.exe", 0, 50, 10, 32, 32)
GUICtrlSetTip(-1, "Launch Excel")
$Icon_3 = GUICtrlCreateIcon("C:\Program Files\Microsoft Office\OFFICE11\powerpnt.exe", 0, 90, 10, 32, 32)
GUICtrlSetTip(-1, "Launch Powerpoint")
$Icon_4 = GUICtrlCreateIcon("C:\Program Files\Microsoft Office\OFFICE11\mspub.exe", 0, 130, 10, 32, 32)
GUICtrlSetTip(-1, "Launch Publisher")
GUISetState()
While 1
$bpress = GUIGetMsg()
Select
Case $bpress = $Icon_1
Run("C:\Program Files\Microsoft Office\OFFICE11\winword.exe")
Case $bpress = $Icon_2
Run("C:\Program Files\Microsoft Office\OFFICE11\excel.exe")
Case $bpress = $Icon_3
Run("C:\Program Files\Microsoft Office\OFFICE11\powerpnt.exe")
Case $bpress = $Icon_4
Run("C:\Program Files\Microsoft Office\OFFICE11\mspub.exe")
EndSelect
WEnd
Exit