'*** 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