maxlines := 20
VarSetCapacity(start, 4), VarSetCapacity(end, 4)
Gui, Color, 111111
Gui, Font, s12 cFFFFFF, Georgia
Gui, Add, Edit, w400 r18 hwndhEdit ReadOnly, 8`nлд
Gui, Show
Str = ########## ######## #############

AddText:
	Loop {
		Sleep, 200
		GuiControl, -Redraw, %hEdit%
		SendMessage, 0xB0, &start, &end, , ahk_id %hEdit%  ; EM_GETSEL
		ControlGet, Line, CurrentLine,,, ahk_id %hEdit%
		ControlGet, Col, CurrentCol,,, ahk_id %hEdit%
		SendMessage, 0x0E, , , , ahk_id %hEdit%    ;  WM_GETTEXTLENGTH
		random, rand, 0, 33
		msg := (Errorlevel ? "`r`n" : "") SubStr(Str, 1, rand) 
		SendMessage, 0x00B1, Errorlevel, Errorlevel, , ahk_id %hEdit%    ;  EM_SETSEL
		SendMessage, 0x00C2 , TRUE, &msg,, ahk_id %hEdit%  ;	EM_REPLACESEL
		SendMessage, 0x00BA, 0, 0,, ahk_id %hEdit% ; EM_GETLINECOUNT
		If ((LINECOUNT := Errorlevel) > maxlines)
		{
			SendMessage, 0xBB, 1,,,ahk_id %hEdit%    ;  EM_LINEINDEX
			SendMessage, 0x00B1, 0, Off := Errorlevel, , ahk_id %hEdit%    ;  EM_SETSEL
			SendMessage, 0x00C2 , TRUE, 0,, ahk_id %hEdit%  ;	EM_REPLACESEL
		}
		SendMessage, 0xBB, Line - 1,,,ahk_id %hEdit%    ;  EM_LINEINDEX
		_start := Errorlevel + Col - 1
		SendMessage, 0xBB, Line,,,ahk_id %hEdit%    ;  EM_LINEINDEX
		If (_start > (__start := Errorlevel - 2))
			_start := __start
		SendMessage, 0x0B1, _start, NumGet(end) - NumGet(start) + _start, , ahk_id %hEdit%  ; EM_SETSEL
		GuiControl, +Redraw, %hEdit%
		ToolTip % Line
	}
	Return

maxlines := 10
VarSetCapacity(start, 4), VarSetCapacity(end, 4)
Gui, Color, 111111
Gui, Font, s7 cFFFFFF, Georgia
Gui, Add, Edit, w200 h100 hwndhEdit ReadOnly
Gui, Show

AddText:
	Loop {
		Sleep, 100
		GuiControl, -Redraw, %hEdit%
		SendMessage, 0xB0, &start, &end, , ahk_id %hEdit%  ; EM_GETSEL
		SendMessage, 0x0E, , , , ahk_id %hEdit%    ;  WM_GETTEXTLENGTH
		msg := (Errorlevel ? "`r`n" : "") "text #" A_Index
		SendMessage, 0x00B1, Errorlevel, Errorlevel, , ahk_id %hEdit%    ;  EM_SETSEL
		SendMessage, 0x00C2 , TRUE, &msg,, ahk_id %hEdit%  ;	EM_REPLACESEL
		SendMessage, 0x00BA, 0, 0,, ahk_id %hEdit% ; EM_GETLINECOUNT
		If (Errorlevel > maxlines)
		{
			SendMessage, 0xBB, 1,,,ahk_id %hEdit%    ;  EM_LINEINDEX
			SendMessage, 0x00B1, 0, Off := Errorlevel, , ahk_id %hEdit%    ;  EM_SETSEL
			SendMessage, 0x00C2 , TRUE, 0,, ahk_id %hEdit%  ;	EM_REPLACESEL
		}
		SendMessage, 0x0B1, NumGet(start), NumGet(end), , ahk_id %hEdit%  ; EM_SETSEL
		GuiControl, +Redraw, %hEdit%
	}
	Return

if(line = 50 && ScrPos != 38)
        PostMessage, WM_VSCROLL := 0x115, SB_LINEUP := 0,,, ahk_id %hConsole%

Gui Color, 111111
Gui Font, s7 cFFFFFF, Georgia
Gui Add, Edit, w200 h150 hwndhConsole ReadOnly
Gui Show

i:=0, line := 0
Loop {
	Sleep 100
    value := "text" ++i
    len := 0
    ScrPos := SB_GetPos(hConsole)
    EM_GETSEL(hConsole, start, end)



    if(line = 50) {
        len := GetFirstLineLength(msg)
        msg := RegExReplace(msg, "U).*`n",,,1), msg .= value "`n"
    }
    else msg .= value "`n", line++
    GuiControl,, % hConsole, % msg



    EM_SETSEL(hConsole, start-len, end-len)
    SB_SetPos(hConsole,, ScrPos)
    SetScrollPos(hConsole, true, ScrPos)
    if(line = 50)
        PostMessage, WM_VSCROLL := 0x115, SB_LINEUP := 0,,, ahk_id %hConsole%
}

GuiClose:
	ExitApp
f5::reload
GetFirstLineLength(line) {
    return Strlen(RegExReplace(line, "U)`n.*",,,1))
}
; ======================================================================================================================
; Gets the starting and ending character positions of the current selection in an edit control.
; Start  -  receives the start of the current selection
; End    -  receives the end of the current selection
; ======================================================================================================================
EM_GETSEL(HWND, ByRef Start, ByRef End) {
   ; EM_GETSEL = 0x00B0 -> msdn.microsoft.com/en-us/library/bb761598(v=vs.85).aspx
   Start := End := 0
   DllCall("User32.dll\SendMessage", "Ptr", HWND, "UInt", 0x00B0, "UIntP", Start, "UIntP", End, "Ptr")
   ++Start, ++End
   Return True
}
; ======================================================================================================================
; Selects a range of characters in an edit control.
; Start  -  the character index of the start of the selection.
; End    -  the character index of the end of the selection.
; ======================================================================================================================
EM_SETSEL(HWND, Start, End) {
   ; EM_SETSEL = 0x00B1 -> msdn.microsoft.com/en-us/library/bb761661(v=vs.85).aspx
   Return DllCall("User32.dll\SendMessage", "Ptr", HWND, "UInt", 0x00B1, "Ptr", Start - 1, "Ptr", End - 1, "Ptr")
}


SB_GetPos(hwnd, Which:="V"){
    Which := (Which="V" || Which=1) ? 1 : (Which="H" || Which=0) ? 0 : 1
    Return DllCall("GetScrollPos", "UInt", Hwnd, "Int", Which)                
}

SB_SetPos(hwnd, Which:="V", To:="0"){
    Which := (Which="V" || Which=1) ? 1 : (Which="H" || Which=0) ? 0 : 1
    Return DllCall("SetScrollPos", "UInt", Hwnd, "Int", Which, "Int", To, "UInt", 1)
}


SetScrollPos(hwnd, fnBar, nPos)
{
    VarSetCapacity(si, 28, 0) ; SCROLLINFO si
    NumPut(28  , si,  0)    ; si.cbSize := sizeof(SCROLLINFO)
    NumPut(0x4 , si,  4)    ; si.fMask := SIF_POS
    NumPut(nPos, si, 20)    ; si.nPos := nPos
 
    ; Use SetScrollInfo first because it supports 32-bit positions.
    ; If an application supports positions < 0 or > 65535, it most likely
    ; ignores WM_#SCROLL's wParam and uses GetScrollPos or GetScrollInfo
    ; to get the actual scroll position.
    DllCall("SetScrollInfo", "uint", hwnd, "int", fnBar, "uint", &si, "int", 0)
    
    ; WM_HSCROLL or WM_VSCROLL must be sent for the window to update it's contents.
    msg := (fnBar=0) ? 0x114 : 0x115
    wParam := 4 ; SB_THUMBPOSITION
        | ((nPos&0xFFFF)<<16)
    SendMessage, msg, wParam,,, ahk_id %hwnd%
    
    return (ErrorLevel != "FAIL")
}

GetScrollInfo(hwnd, fnBar, ByRef nPos=0, ByRef nTrackPos=0, ByRef nMin=0, ByRef nMax=0, ByRef nPage=0)
{
    WinGet, Style, Style, ahk_id %hwnd%
    if !(Style & (fnBar ? 0x200000 : 0x100000))
        return false ; Fix for some controls which report {min:0,max:100} even though scroll bar doesn't exist.

    VarSetCapacity(si, 28, 0) ; SCROLLINFO si
    NumPut(28  , si, 0) ; si.cbSize := sizeof(SCROLLINFO)
    NumPut(0x17, si, 4) ; si.fMask := SIF_ALL
    
    if ! DllCall("GetScrollInfo", "uint", hwnd, "int", fnBar, "uint", &si)
        return false
    
    nPos        := NumGet(si, 20)
    nTrackPos   := NumGet(si, 24)
    nMin        := NumGet(si,  8)
    nMax        := NumGet(si, 12)
    nPage       := NumGet(si, 16)
    return true
}