Code:
#include <IE.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiRichEdit.au3>
#include <Color.au3>
Opt("GUIOnEventMode", 1)
Global $sLog, _
$bFirstStart = True, _
$bFirstMessage = True, _
$iLine = 1
$Form1 = GUICreate("", 659, 312, 192, 124, BitOr($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SIZEBOX))
$Edit1 = _GUICtrlRichEdit_Create($Form1, "", 0, 0, 659, 292, BitOR($ES_MULTILINE, $ES_READONLY, $WS_VSCROLL, $ES_AUTOVSCROLL), 0)
_GUICtrlRichEdit_SetBkColor($Edit1, 0)
GUISetState(@SW_SHOW)
While GUIGetMsg() <> -3
_LogLog(InputBox("", ""))
WEnd
Func _LogLog($sMessage)
Local $sEntry, $aSplit = StringSplit($sMessage, @CRLF, 2)
For $i = 0 To UBound($aSplit) - 1
If $bFirstMessage Then
$bFirstMessage = Not $bFirstMessage
$sEntry = $aSplit[$i]
$sLog &= $aSplit[$i]
Else
$sEntry = @CRLF & $aSplit[$i]
$sLog &= @CRLF & $aSplit[$i]
EndIf
_GUICtrlRichEdit_SetFont($Edit1, 14, "Consolas")
_GUICtrlRichEdit_SetCharAttributes($Edit1, "+bo")
_GUICtrlRichEdit_AppendText($Edit1, $sEntry)
_GUICtrlRichEdit_SetSel($Edit1, _GUICtrlRichEdit_GetFirstCharPosOnLine($Edit1, $iLine), -1, True)
If StringInStr($sMessage, "Ich: ") Then
_GUICtrlRichEdit_SetCharColor($Edit1, 16711680)
ElseIf StringInStr($sMessage, "Er: ") Then
_GUICtrlRichEdit_SetCharColor($Edit1, 65280)
EndIf
$iLine += 1
Next
EndFunc