Lässt einfache Protokollierung von vorgängen zu... sehr gut um zb zu debuggen und ähnliches :party3:
[Blockierte Grafik: http://img266.imageshack.us/img266/7871/auprinttq2.jpg]
Script aktualisiert:
Spoiler anzeigen
#include <GuiConstants.au3>
#include <GuiEdit.au3>
;
; Funktionsaufruf:
;
; Print("Text") - schreibt eine Zeile mit Umbruch
;
; Print("Text", 1) - schreibt eine Zeile ohne Umbruch
;
Global $Print_Run
Global $Print_Count = 0
Func Print($Text, $Break = 0)
$Print_Count = $Print_Count + 1
If $Print_Run <> "GUI" Then
$Print_Run = "GUI"
Global $Print_Text = @CRLF & " # AutoIt Version: " & @AutoItVersion & @CRLF & " "
$Print_Text &= "# System: " & @OSVersion & ", Build " & @OSBuild & ", " & @OSServicePack & @CRLF & @CRLF & " "
$Print_Text &= "# Starting " & @ScriptName & " ..." & @CRLF & @CRLF & " "
Global $Print_View
Global $Print_GUI
$Print_GUI = GUICreate("", 666, 305, -1, -1, $WS_CAPTION)
$Print_View = GUICtrlCreateEdit($Print_Text, 0, 0, 666, 305, BitOR($ES_READONLY, $WS_VSCROLL), $WS_EX_LAYERED)
GUICtrlSetColor(-1, 0xC0C0C0)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetFont(-1, 10, Default, Default, "Lucida Console")
GUISetState()
EndIf
If $Break = 1 Then
$Print_Text = $Print_Text & $Text & " "
Else
$Print_Text = $Print_Text & $Text & @CRLF & " "
EndIf
$Len = StringLen($Print_Text)
$Trim = $Len - 5000 ; 5000 = Buffer-Limit
$Print_Text = StringTrimLeft($Print_Text, $Trim)
GUICtrlSetData($Print_View, $Print_Text)
_GUICtrlEditScroll($Print_View, $SB_SCROLLCARET)
WinSetTitle($Print_GUI, "", "AuPrint - " & $Print_Count & " Texte")
EndFunc
;
; Ende
;
Beispielscript:
[autoit]#include "AuPrint.au3"
[/autoit] [autoit][/autoit] [autoit]Print("Sleeping for 2 seconds")
[/autoit] [autoit][/autoit] [autoit]Sleep(2000)
[/autoit] [autoit][/autoit] [autoit]Print("waiting for silence... ")
[/autoit] [autoit][/autoit] [autoit]Sleep(750)
[/autoit] [autoit][/autoit] [autoit]For $i = 1 To 10
Sleep(300)
Print($i, 1)
Next
Sleep(750)
[/autoit] [autoit][/autoit] [autoit]Print("done.")
[/autoit] [autoit][/autoit] [autoit]Sleep(750)
[/autoit] [autoit][/autoit] [autoit]Print("Bla und Blubber 1-2-3")
[/autoit] [autoit][/autoit] [autoit]Sleep(3000)
[/autoit] [autoit][/autoit] [autoit]For $i = 1 To 50
Sleep(100)
Print("Beispiel Nummer " & $i)
Next
Sleep(750)
[/autoit] [autoit][/autoit] [autoit]Print("Fertig mit Zählen :)")
[/autoit] [autoit][/autoit] [autoit]While 1
; Idle
WEnd
Edit BugFix: [ Spoiler ] [ /Spoiler ] eingefügt