Ich habe mal eine kleine UDF geschrieben.
Es ist nicht viel und eine arbeit von 10 min aber
ich werde noch readline usw einbauen.
Es ist nicht viel und eine arbeit von 10 min aber
ich werde noch readline usw einbauen.
PHP Code:
;===============================================================================
;
; Function Name: _ConsoleCreate ($Title)
; Description:: Erstellt eine Konsole mit schwarzem Hintergrund und weißer Schriftfarbe
; Parameter(s): $Title = Titel des Fensters der Konsole
; Ohne Titelangabe wird "Konsolen UDF by ScOrNi" verwendet
; Author(s): ScOrNi
;
; Information about $Title:
;~ Nur von A-Z, a-z, 0-9, *+~'#!"§$%&/()=?²³{[]}\´`^/*+-:,\,<>
; Examples:
;~ _ConsoleCreate ("Dies ist ein Konsole + weißer Hintergrund²")
;~ _ConsoleCreate ()
;
;===============================================================================
func _ConsoleCreate ($Title="Konsolen UDF by ScOrNi")
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#Region ### START Koda GUI section ### Form=
$Console1 = GUICreate($Title, 655, 295, 220, 180)
GUISetBkColor(0x000000)
global $edit=GUICtrlCreateEdit("", 0, 0, 657, 297, BitOR($ES_AUTOVSCROLL,$WS_VSCROLL))
GUICtrlSetBkColor($edit, 0x000000)
GUICtrlSetColor ($edit,0xffffff)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
endfunc
;===============================================================================
;
; Function Name: _ConsoleWait ($Time)
; Description:: Lässt die Konsole so lange wie angegeben warten bis sie geschlossen wird
; Nachdem die Zeit abgelaufen ist schließt sie sich selber. Wenn nix angegeben
; wird, wartet die Konsole unendlich lang.
; Parameter(s): $Time = Die Zeit die gewartet werden soll in Millisekunden.
; Ohne Angaabe wird unendlich lange gewartet.
; Author(s): ScOrNi
;
; Information about $Time:
;~ Zeit bitte in Millisekunden angeben. (1000ms = 1s)
; Examples:
;~ _ConsoleWait(2000)
;~ _ConsoleWait ()
;
;===============================================================================
func _ConsoleWait($Time=9999999999999999)
$start = TimerInit()
Do
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
until timerdiff ($start) >=$Time
EndFunc
;===============================================================================
;
; Function Name: _ConsoleWriteLine ($Text)
; Description:: Gibt $Text als Text in der Konsole aus.
; Parameter(s): $Text = Der Text der ausgegeben werden soll.
; Author(s): ScOrNi
;
; Information about $Text:
;~ Hier dürfen alle Zeichen benutzt werden vorausgesetzt
;~ die Sprache ist auf dem PC Installiert
; Examples:
;~ _ConsoleWriteLine("Ich bin der Text")
;
;===============================================================================
func _ConsoleWriteLine($Text)
guictrlsetdata ($edit,guictrlread($edit)&$Text)
EndFunc
;===============================================================================
;
; Function Name: _ConsoleEndline ()
; Description:: Beendet die Zeile und fängt eine neue an. (Zeilenumbruch)
; Parameter(s): Keine Parameter
; Author(s): ScOrNi
;
; Examples:
;~ _ConsoleWriteLine("Zeile 1")
;~ _ConsoleEndline ()
; _ConsoleWriteLine("Zeile 2")
;===============================================================================
func _ConsoleEndline()
guictrlsetdata ($edit,guictrlread ($edit)&@crlf)
endfunc
func _ConsoleFontColor ($Color)
GUICtrlSetColor ($edit,$Color)
EndFunc
