Waiter Box

#include <Timers.au3>

$sMsg = "Das ist nur ein kleiner Text meiner Waiter Box. Ein sicherer Schutz gegen DAU's die einfach jedes Fenster zumachen das irgendwo aufpoppt, ohne den Text zu lesen."
$hGui = GUICreate('')
$sTitle = 'Test'
$iCountTime = 5000 ; mSek
$iTimer = TimerInit()
$fCheck = False
_Timer_SetTimer($hGui, 100, '_Wait')
MsgBox(0, $sTitle, $sMsg)
_Timer_KillAllTimers($hGui)

Func _Wait($hWnd, $Msg, $iIDTimer, $dwTime)
If TimerDiff($iTimer) < $iCountTime Then
ControlSetText($sTitle, '', '[CLASS:Button; INSTANCE:1]', Int($iCountTime / 1000) - Int(TimerDiff($iTimer) / 1000))
If Not $fCheck Then
$fCheck = True
ControlDisable($sTitle, '', '[CLASS:Button; INSTANCE:1]')
EndIf
Else
ControlSetText($sTitle, '', '[CLASS:Button; INSTANCE:1]', 'Ok')
If $fCheck Then
$fCheck = False
ControlEnable($sTitle, '', '[CLASS:Button; INSTANCE:1]')
EndIf
EndIf
EndFunc

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

_WaitMsgBox("Waiter Box by Sprenger120", "Das ist nur ein kleiner Text meiner Waiter Box. Ein sicherer Schutz gegen DAU's die einfach jedes Fenster zumachen das irgentwo aufpoppt, ohne den Text zu zu lesen.")

Func _WaitMsgBox($sTitle, $sText, $iSeks2Wait = 5, $hParent = 0, $MaxLenght = 50)
;By Sprenger120
Local $iCount = 0, $iLineLenght = $MaxLenght, $iOldEventMode
$iOldEventMode = Opt('GUIOnEventMode', 0) ; umschalten auf den MessageLoop-Modus (vorherigen Modus in $iOldEventMode)
If StringLen($sText) < 9 Then
While StringLen($sText) < 9
$sText &= " "
WEnd
EndIf

$iCount += Int(StringLen($sText / $MaxLenght))
If Mod($iCount, $MaxLenght) Then $iCount += 1

If $iLineLenght > StringLen($sText) Then $iLineLenght = StringLen($sText)

$iWidth = $iLineLenght * 7
$iHeight = 10 + ($iCount * 20)

$hWaiterGUI = GUICreate($sTitle, 10 + $iWidth, 40 + $iHeight, -1, -1, BitOR($WS_BORDER, $WS_CAPTION), $WS_EX_TOPMOST, $hParent)

GUICtrlCreateLabel($sText, 5, 5, $iWidth, $iHeight, 0)
$cButton = GUICtrlCreateButton("OK", $iWidth - 60, $iHeight + 10, 65, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW, $hWaiterGUI)

$hTimer = TimerInit()
Do
Sleep(100)
GUICtrlSetData($cButton, $iSeks2Wait - Int(TimerDiff($hTimer) / 1000))
Until TimerDiff($hTimer) > $iSeks2Wait * 1000
GUICtrlSetState($cButton, $GUI_ENABLE)
GUICtrlSetData($cButton, "OK")
While GUIGetMsg() <> $cButton
WEnd
GUIDelete($hWaiterGUI) ; hast Du noch vergessen
Opt('GUIOnEventMode', $iOldEventMode) ; vorherigen Modus wiederherstellen
EndFunc ;==>_WaitMsgBox