Hallo,
ich beschäftige mich seit langem mal wieder mit AutoIt, und bleibe prompt an einer vermeindlich einfachen Stelle hängen.
Ich will die Ergebnisse von Ping Tests Zeilenweise in unterschiedlichen Farben in einer Liste aufführen...
Derzeit ändert sich immer die Farbe aller Zeilen...
Was sagen die Profis? Wie kann ich Einzelne Werte in verschiedenen Farben darstellen?
Viele Grüße!
AutoIt
#include <GUIConstants.au3>
#include <GuiStatusBar.au3>
#include <EditConstants.au3>
HotKeySet("^!a", "MeinExit")
#Region Style
$uGUI = GUICreate("PingTest", 350, 600, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 300, -1, 0x00000018)
GUISetBkColor(0x00E0FFFF)
GUISetFont(9, 300)
GuiCtrlCreateTab(0, 0, 350, 580)
$info = GUICtrlCreateButton ("?",330,4,18,18)
$StatusBar = _GUICtrlStatusBar_Create($uGUI)
_GUICtrlStatusBar_SetText($StatusBar, "Bereit")
#EndRegion
#Region Menü
$1 = GuiCtrlCreateTabItem("PingTest")
$10 = GUICtrlCreateButton("Test :", 20, 70, 90, 20)
$10_input = GUICtrlCreateInput("www.google.de", 120, 70, 200, 20)
$clear = GUICtrlCreateButton ("leeren", 50,520,60,20)
GuiCtrlSetState(1, $GUI_CHECKED)
$InfoFeld = GUICtrlCreateEdit("", 20, 150, 300, 350, $ES_READONLY)
#EndRegion
#Region Betriebsschleife
GUISetState ()
While 1
$msg = GUIGetMsg()
HotKeySet("^!a", "MeinExit")
If $msg = $GUI_EVENT_CLOSE Then MeinExit()
If $msg = $10 Then M10();Test
If $msg = $clear Then M50();clear
Wend
#EndRegion
Func M10();Test
$10_Wert = GUICtrlRead($10_input)
If $10_Wert = "" Then
_GUICtrlStatusBar_SetText($StatusBar, "Fehler: Kein Wert angegeben!")
return false
EndIf
Global $ping = Ping($10_Wert, 250)
If $ping Then
GUICtrlSetData($InfoFeld, GUICtrlSetColor(-1, 0x02BD0C) & "Verbindung OK" & @CRLF, 1)
_GUICtrlStatusBar_SetText($StatusBar, "OK")
Else
GUICtrlSetData($InfoFeld,GUICtrlSetColor(-1, 0xff0000) & "Verbindungs Fehler" & @CRLF, 1)
_GUICtrlStatusBar_SetText($StatusBar, "Fehler")
EndIf
return 1
EndFunc
Func M50();Clear
GUICtrlSetData($InfoFeld, "")
_GUICtrlStatusBar_SetText($StatusBar, "Bereit")
EndFunc
Func MeinExit()
Exit
EndFunc
Alles anzeigen