'*** v9.3 *** www.dieseyer.de ******************************** ' File: TermineMelden.vbs ' Autor: W.Schmelz ' http://dieseyer.de ' '************************************************************ Set Fso=WScript.CreateObject("Scripting.FileSystemObject") Set Wss=WScript.CreateObject("WScript.Shell") AktVerz=Fso.GetParentFolderName(WScript.ScriptFullName) Titel=" Die Stopp - Uhr ! ! !" UV=VbCR&VbCR 'MsgBox u.a. vereinfachen ' Die "Stoppen"-Datei in den Start-Ordner setzen : '************************************************* Datei1=AktVerz ' Prüfen, ob " Stoppen.vbs " bereits schon läuft : '************************************************* If Fso.FileExists (Datei1&"\Stoppen.vbs") then _ MsgBox UV&UV&VbTab&"Die StoppUhr läuft bereits ! "&_ " "&UV&UV,VbCritical,Titel:WScript.Quit ' Die Stopp - Uhr wird jetzt gestartet : '*************************************** Ask=MsgBox (UV&UV&VbTab&_ "Mit dem Befehl "" OK "" startet die Messung ! "&UV&_ VbCR&VbTab&" Mit "" Stoppen.vbs "" die Uhr anhalten !"&_ UV&UV,VbOkCancel,Titel) If Ask="2" then WScript.Quit ' Jetzt die Festlegung des Start - Zeitpunktes der Uhr : '******************************************************* Beginn=Timer ' " Stoppen.vbs " - Datei schreiben und in den Start-Ordner setzen : '******************************************************************* Set Ordner=Fso.GetFolder(Datei1) Set Data=Ordner.CreateTextFile("Stoppen.vbs") Data.WriteBlankLines(2) Data.WriteLine("Start="&""""&Beginn&"""") Data.WriteLine("UV=VbCR&VbCR") Data.WriteLine("Set Fso=WScript.CreateObject(""Scripting.FileSystemObject"")") Data.WriteLine("Datei="&""""&Datei1&"""&""\Stoppen.vbs"" ") Data.WriteBlankLines(2) Data.WriteLine("Ask=MsgBox(UV&VbCR&"" Wollen Sie nur eine Zwischenzeit""&_ ") Data.WriteLine(" UV&"" oder die endgültige Zeit messen ?""&UV&_ ") Data.WriteLine(" "" Bei """" OK """" kommt endgültige Zeit,""&UV&_ ") Data.WriteLine(" "" bei """" Nein """" die Zwischenzeit ! ""&_ ") Data.WriteLine(" "" ""&UV&UV,VbInformation+VbYesNoCancel, _ ") Data.WriteLine(" "" Die gestoppte Laufzeit ! ! !"") ") Data.WriteLine(" ") Data.WriteLine("If Ask=""6"" then ") Data.WriteLine(" MsgBox UV&UV&VbCR&""Die gestoppte Zeit beträgt ""&_ ") Data.WriteLine(" Round(Timer-Start,2)&"" sec ""&_ ") Data.WriteLine(" VbCR&UV&UV,VbInformation, _ ") Data.WriteLine(" "" Die gestoppte Laufzeit ! ! !"" ") Data.WriteLine("End If ") Data.WriteLine(" ") Data.WriteLine("If Ask=""7"" then ") Data.WriteLine(" MsgBox UV&UV&VbCR&""Die gestoppte Zwischenzeit beträgt""&_ ") Data.WriteLine(" "" ""&Round(Timer-Start,2)&"" sec ""&_ ") Data.WriteLine(" VbCR&UV&UV,VbInformation, _ ") Data.WriteLine(" "" Die Zwischen - Laufzeit ! ! !"" ") Data.WriteLine(" WScript.Quit ") Data.WriteLine("End If ") Data.WriteLine(" ") Data.WriteLine(" ") Data.WriteLine("If Ask=""6"" then Fso.DeleteFile (Datei) ") Data.WriteLine(" WScript.Quit ") Data.Close Datei1=Fso.GetParentFolderName(WScript.ScriptFullName) Datei2=Datei1&"\Stoppen.vbs" Wss.Run """"&Datei2&"""" WScript.Quit