Hallo,
ich habe mir ein kleines Überwachungsscript für meinen Printserver geschrieben welches mir alle 2 Sekunden die Anzahl der Dateien ausgibt die in drei Verzeichnissen liegen.
Ich habe jetzt nur ein Problem
Entweder klappt das Zählen, dann funktionieren meine Buttons aber nicht,
oder Buttons funktionieren - dann klappt das Zählen aber nur einmal.
Hier kommt mal die Version wo das Zählen Funktioniert (die wichtigere Funktion).
Kann mir einer eine Tip geben wie ich es Hinbekommen das der die Ordner alle 2 Sekunden aktualisiert und die Buttons trotzdem funktionieren ?
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <process.au3>
#include <array.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Spoolcheck", 289, 85, 196, 152)
$Label1 = GUICtrlCreateLabel("Dateien im Spoolverzeichnis", 3, 8, 137, 17)
$Data1 = GUICtrlCreateLabel("Data1", 157, 8, 33, 17)
$Button1 = GUICtrlCreateButton("öffnen", 206, 4, 75, 20)
$Label2 = GUICtrlCreateLabel("Dateien in Windows\Temp", 3, 30, 131, 17)
$Data2 = GUICtrlCreateLabel("Data2", 157, 29, 33, 17)
$Button2 = GUICtrlCreateButton("öffnen", 206, 26, 75, 20)
$Label3 = GUICtrlCreateLabel("Dateien in RETRY", 3, 52, 131, 17)
$Data3 = GUICtrlCreateLabel("Data3", 157, 50, 33, 17)
$Button3 = GUICtrlCreateButton("öffnen", 206, 48, 75, 20)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
Zaehlen()
While 1
[/autoit][autoit][/autoit][autoit]$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
ShellExecute("EXPLORER", "C:\Windows\System32\spool\PRINTERS")
Case $Button2
ShellExecute("EXPLORER", "C:\Windows\temp")
Case $Button3
ShellExecute("EXPLORER", "D:\Proforma\Proforma\retry")
EndSwitch
[/autoit][autoit][/autoit][autoit][/autoit][autoit]Wend
[/autoit][autoit][/autoit][autoit]WEnd
[/autoit][autoit][/autoit][autoit]Func Zaehlen()
[/autoit][autoit][/autoit][autoit]$size1 = DirGetSize("C:\Windows\System32\spool\PRINTERS\",1)
$size2 = DirGetSize("C:\Windows\TEMP\",1)
$size3 = DirGetSize("D:\Proforma\Proforma\retry",1)
If IsArray($size1) Then
GUICtrlSetData($Data1,$size1[1])
EndIf
If IsArray($size2) Then
GUICtrlSetData($Data2,$size2[1])
EndIf
If IsArray($size3) Then
GUICtrlSetData($Data3,$size3[1])
EndIf
GUISetState()
Sleep(2000)
EndFunc
[/autoit]