Spoiler anzeigen
#include <File.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <Array.au3>
$datei = _FileListToArray(@ScriptDir, "*.au3", 1)
$zufall = Random(1, $datei[0], 1)
$text = FileRead($datei[$zufall])
$1 = GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP)
$2 = GUICtrlCreateLabel($text, 10, 10, @DesktopWidth, @DesktopHeight)
GUICtrlSetColor(-1, 0xffffff)
GUICtrlSetFont(-1, 24, 400, 0, "Consolas")
GUISetBkColor(0x0000ff)
$sek = TimerInit()
GUISetState(@SW_SHOW)
While 1
If TimerDiff($sek) > 2000 Then
$zufall = Random(1, $datei[0], 1)
$text = FileRead($datei[$zufall])
StringReplace($text, @CRLF, @CRLF)
$zeilen = @extended
$text = @crlf & "ZEILEN: " & $text &@crlf
For $i = 1 To $zeilen - 20
$text = StringTrimLeft($text, StringInStr($text, @CRLF))
GUICtrlSetData($2, $text)
Sleep(500)
If GUIGetMsg() = $GUI_EVENT_MOUSEMOVE Then Exit
Next
$sek = TimerInit()
EndIf
WEnd
so?