So in etwa..
Das Flackert bei mir richtig viel! Auch das Hochzählen ist nicht in Ordnung oder wolltest du wirklich die einzeln Starts zählen?
Natürlich sehen deine Buttons schöner aus
Und ja ich hatte noch in meinem Skript Fehler
Hi,
Einfach nur dann aktualisieren, wenn sich der Wert seit der letzten überprüfung geändert hat.
Dazu muss man nur den letzten Wert von ProcessExists nehmen und diesen mit dem aktuellen vergleichen.
mfg
Zeitriss
Dei Skript habe ich heute auch getestet.
Oberes geht flackert aber auch.
Unteres geht nicht zeigt nicht das richtige an.
Was mir noch aufgefallen ist @Andy
Leider wird @CRLF wird nicht beachtet. Habe auch noch nicht raus gefunden wie ich es hin bekomme.
Ich habe in meine Schleife noch eine Pause von 1000 eingefügt, dann ist das Flackern nicht so schlimm. Programm läuft bei mir auf einem Rechner den ich nur per VNC Aufrufe.
Hier noch meine Aktuelle Version.
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <MsgBoxConstants.au3>
Opt('GUIOnEventMode', 1)
Opt('TrayOnEventMode', 1)
Opt('TrayMenuMode', 1)
$Form1 = GUICreate("Serverüberwachung", 348, 155, 192, 124)
$Setting_Menu = GUICtrlCreateMenu("Menü")
$Setting_exit = GUICtrlCreateMenuItem("Ende", $Setting_Menu)
GUICtrlSetOnEvent(-1,"_Exit")
$helpmenu = GUICtrlCreateMenu("?")
$Info = GUICtrlCreateMenuItem("Version",$helpmenu)
GUICtrlSetOnEvent(-1,"_showInfo")
$wachen = GUICtrlCreateButton("", 8, 16, 100, 100)
GUICtrlSetFont(-1, 12, 800, 0, "@Arial Unicode MS")
GUICtrlSetBkColor(-1, 0x00FF00)
$reset = GUICtrlCreateButton("Reset-Start", 124, 16, 100, 100)
GUICtrlSetFont(-1, 12, 800, 0, "@Arial Unicode MS")
GUICtrlSetBkColor(-1, 0x4452F0)
GUICtrlSetOnEvent(-1,"_RESET")
$stopen = GUICtrlCreateButton("STOP", 240, 16, 100, 100)
GUICtrlSetFont(-1, 12, 800, 0, "@Arial Unicode MS")
GUICtrlSetBkColor(-1, 0xe9f01a)
GUICtrlSetOnEvent(-1,"_STOP")
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, '_Exit')
GUISetOnEvent($GUI_EVENT_MINIMIZE, '_Minimize')
TraySetOnEvent( -7, '_Restore')
While sleep(100)
If ProcessExists("notepad.exe") Then
GUICtrlSetData($wachen, "läuft")
GUICtrlSetBkColor($wachen, 0x00FF00)
Else
GUICtrlSetData($wachen, "läuft nicht")
GUICtrlSetBkColor($wachen, 0xFF0000)
EndIf
sleep(1000)
WEnd
Func _showInfo()
MsgBox (0,"Info","Version 1.3 "&@CRLF&"09.11.2016 SCCSSF")
EndFunc
Func _Exit()
Exit
EndFunc
Func _Minimize()
TraySetState(1)
GUISetState(@SW_HIDE)
EndFunc
Func _Restore()
TraySetState(2)
GUISetState(@SW_SHOW)
EndFunc
Func _RESET() ;Hier passiert was wenn der Button gedrückt wird
ProcessClose("notepad.exe")
RunAsWait("Benutzer","Domain","Passwort",0,@ComSpec & " /c " &'net stop "Test_Autostart"',"",@SW_HIDE)
RunAsWait("Benutzer","Domain","Passwort",0,@ComSpec & " /c " &'net start "Test_Autostart"',"",@SW_HIDE)
EndFunc
Func _STOP() ;Hier passiert was wenn der Button gedrückt wird
ProcessClose("notepad.exe")
RunAsWait("Benutzer","Domain","Passwort",0,@ComSpec & " /c " &'net stop "Test_Autostart"',"",@SW_HIDE)
EndFunc
Alles anzeigen
Vielleicht will noch jemand die Lösung finden.