SplashText zählt unter W2K nicht die Zeit herunter

superpati

Ich habe ein Script, wo Dateien in gewissen Zeitabständen kopiert werden, wobei die Restzeit zum nächsten Durchgang im SplashText angezeigt wird (wird in Sekunden heruntergezählt).

Problem:

Führe ich es unter XP aus, wird die Restzeit schön herabgezählt.

Führe ich es Unter W2K aus, wird mir die Restzeit konstant (also ohne herabzählen) angezeigt. Es wird mir nur die fix eingestellte Zeit dargestellt.

Frage: Ist W2k für dieses Script nicht geeignet oder mache ich hier etwas falsch???

Spoiler anzeigen

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=f:\download\autoit\scripts\ish_export.kxf
$Form1_1 = GUICreate("ISH-Dats", 371, 429, 245, 97)
$ordner = GUICtrlCreateInput("w:\pcssw\interface\ish\datain_alt\", 24, 192, 257, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$leist = GUICtrlCreateCheckbox("nt101 - Leistungen", 104, 40, 137, 17)
$amb_fall = GUICtrlCreateCheckbox("amb_fall - amb. Fall", 104, 112, 137, 17)
$fall = GUICtrlCreateCheckbox("fall - stat. Fall", 104, 88, 137, 17)
$Button1 = GUICtrlCreateButton("Suche", 280, 192, 75, 25, 0)
$Label1 = GUICtrlCreateLabel("EXPORT VON ISH-SCHNITTSTELLENDATEIEN", 56, 8, 240, 17)
$ziel = GUICtrlCreateInput("H:\datain\", 24, 248, 257, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button2 = GUICtrlCreateButton("Suche", 280, 248, 75, 25, 0)
$intervall = GUICtrlCreateInput("780000", 24, 288, 81, 21)
$Label2 = GUICtrlCreateLabel("Zeitintervall in Millisekunden - default 13 Minuten", 112, 288, 233, 17)
$diag = GUICtrlCreateCheckbox("nt021 - Diagnosen", 104, 64, 137, 17)
$Button3 = GUICtrlCreateButton("START", 144, 368, 75, 25, 0)
$Input1 = GUICtrlCreateInput("250", 24, 328, 81, 21)
$Label3 = GUICtrlCreateLabel("Anzahl Dateien . default 250", 112, 328, 138, 17)
$alle = GUICtrlCreateCheckbox("Alle", 104, 136, 137, 17)
$Label4 = GUICtrlCreateLabel("Source:", 24, 168, 41, 17)
$Label5 = GUICtrlCreateLabel("Ziel:", 24, 224, 24, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Button1
GUICtrlSetData($ordner,FileSelectFolder("Pfad zu Dateien","") & "\")
;======================================================================================
Case $Button2
GUICtrlSetData($ziel,FileSelectFolder("Pfad zu Dateien","") & "\")
;======================================================================================
Case $Button3

If GUICtrlRead($leist) = 1 then
AdlibRegister("nt101", GUICtrlRead($intervall))
While True
$Timer = TimerInit()
$SleepTime = GUICtrlRead($intervall)
Do
Sleep(GUICtrlRead($intervall / 1000))
$zeit = $SleepTime - TimerDiff($Timer)
TrayTip("Zeit in Sekunden bis zum nächsten Durchgang:",round ($zeit / 1000,""),1)
Until TimerDiff($Timer) > $SleepTime
WEnd
AdlibUnRegister("nt101")
nt101()
EndIf
;------------------------------------
If GUICtrlRead($diag) = 1 then
AdlibRegister("nt021", GUICtrlRead($intervall))
While True
$Timer = TimerInit()
$SleepTime = GUICtrlRead($intervall)
Do
Sleep(GUICtrlRead($intervall / 1000))
$zeit = $SleepTime - TimerDiff($Timer)
TrayTip("Zeit in Sekunden bis zum nächsten Durchgang:",round ($zeit / 1000,""),1)
Until TimerDiff($Timer) > $SleepTime
WEnd
AdlibUnRegister("nt021")
nt021()
EndIf
;------------------------------------
If GUICtrlRead($fall) = 1 then
AdlibRegister("fall", GUICtrlRead($intervall))
While True
$Timer = TimerInit()
$SleepTime = GUICtrlRead($intervall)
Do
Sleep(GUICtrlRead($intervall / 1000))
$zeit = $SleepTime - TimerDiff($Timer)
TrayTip("Zeit in Sekunden bis zum nächsten Durchgang:",round ($zeit / 1000,""),1)
Until TimerDiff($Timer) > $SleepTime
WEnd
AdlibUnRegister("fall")
fall()
EndIf
;------------------------------------
If GUICtrlRead($amb_fall) = 1 then
AdlibRegister("amb_fall", GUICtrlRead($intervall))
While True
$Timer = TimerInit()
$SleepTime = GUICtrlRead($intervall)
Do
Sleep(GUICtrlRead($intervall / 1000))
$zeit = $SleepTime - TimerDiff($Timer)
TrayTip("Zeit in Sekunden bis zum nächsten Durchgang:",round ($zeit / 1000,""),1)
Until TimerDiff($Timer) > $SleepTime
WEnd
AdlibUnRegister("amb_fall")
amb_fall()
EndIf
;------------------------------------
If GUICtrlRead($alle) = 1 then
AdlibRegister("alle", GUICtrlRead($intervall))
While True
$Timer = TimerInit()
$SleepTime = GUICtrlRead($intervall)
Do
Sleep(GUICtrlRead($intervall / 1000))
$zeit = $SleepTime - TimerDiff($Timer)
TrayTip("Zeit in Sekunden bis zum nächsten Durchgang:",round ($zeit / 1000,""),1)
Until TimerDiff($Timer) > $SleepTime
WEnd
AdlibUnRegister("alle")
alle()

EndIf
;------------------------------------
if GUICtrlRead($amb_fall or $diag or $fall Or $alle) = 0 Then
MsgBox("","Dateien","keine Datei ausgewählt")
EndIf
;------------------------------------

EndSwitch
WEnd
;=====================================FUNKTIONEN===========================================
Func nt101()

$Path=GUICtrlRead($ordner)
$Dest=GUICtrlRead($ziel)
SplashTextOn("Verschieben","nt101-Dats werden verschoben",150,50,800,600, 4, "",

$Search = FileFindFirstFile($Path & "NT101" & "*.dat")

If $Search = -1 Then
MsgBox(0, "NT101", "Alle Dateien wurden kopiert!",1)
Exit
EndIf