#include <INet.au3>

#include <GUIConstantsEx.au3>
#include <GuiRichEdit.au3>
#include <GuiStatusBar.au3>
#include <WindowsConstants.au3>

Opt('MustDeclareVars', 1)

Global Const $NAME = 'TerrariaServe'
Global Const $VERSION = '20111228'

Global $sFont = 'Lucida Console'

; -------------------------------------------------------------------------
Global $hGUI = GUICreate($NAME & ' v' & $VERSION, 400, 300 + 23, Default, Default, $WS_OVERLAPPEDWINDOW)
TraySetToolTip($NAME & ' v' & $VERSION)

Global $hRich = _GUICtrlRichEdit_Create($hGUI, '', 5, 5, 390, 265, BitOR($ES_MULTILINE, $ES_READONLY, $WS_VSCROLL))

Global $hInput = GUICtrlCreateInput('', 5, 275, 390, 20)
GUICtrlSetResizing($hInput, $GUI_DOCKLEFT + $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKHEIGHT)
GUICtrlSetFont($hInput, 8.5, Default, Default, $sFont)
Local $aAccel[1][2] = [['{ENTER}', $hInput]]
GUISetAccelerators($aAccel)

Global $hStatus = _GUICtrlStatusBar_Create($hGUI)
_GUICtrlStatusBar_SetUnicodeFormat($hStatus, True)
Local $aStatusParts[4] = [140, 205, 270, -1]
_GUICtrlStatusBar_SetParts($hStatus, $aStatusParts)
_GUICtrlStatusBar_SetIcon($hStatus, 0, _WinAPI_LoadShell32Icon(7))
_GUICtrlStatusBar_SetIcon($hStatus, 1, _WinAPI_LoadShell32Icon(6))
_GUICtrlStatusBar_SetIcon($hStatus, 2, _WinAPI_LoadShell32Icon(8))
_GUICtrlStatusBar_SetIcon($hStatus, 3, _WinAPI_LoadShell32Icon(5))

_GUICtrlStatusBar_SetText($hStatus, _GetIP(), 0)
_GUICtrlStatusBar_SetText($hStatus, 'b', 1)
_GUICtrlStatusBar_SetText($hStatus, 'c', 2)
_GUICtrlStatusBar_SetText($hStatus, 'd', 3)

GUISetState()
; -------------------------------------------------------------------------


While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            ExitLoop
    EndSwitch

    ConsoleWrite('Get/Set' & @CRLF)
    ConsoleWrite('Get: ' & _GUICtrlStatusBar_GetText($hStatus, 0) & @CRLF)
;~  ConsoleWrite('Set: ' & _GUICtrlStatusBar_SetText($hStatus, @MSEC, 0) & @CRLF)

    Sleep(1000)
WEnd