Hi!
Daß Du keine Form, kein
Windowsfenster hast, ist der Nachteil von VBS.
Alles geht. Hier mein "einfacher Doppelklickcountdown": P.S.: Das 'anfang muss in der 1. Zeile Datei stehen, d.h. keine Leerzeile davor, etc. Und es muss in eine Datei mit dem Namen: cd.vbs abgespeichert werden (so und nicht anders geschrieben, sonst müsste man was ändern) H.A.N.D.: Ulli
'anfang
Dim eingabe
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("cd.vbs", 1)
merk0 = f.Read(1)
merk1 = f.Readline
merk2 = f.ReadAll
f.Close
If merk1="anfang" Then
eingabe = InputBox("Wieviele Sekunden möchtest du herunterzählen?")
merk1=eingabe*2
Set f = fso.OpenTextFile("cd.vbs", 2, True)
f.Write merk0
f.WriteLine merk1
f.Write merk2
f.Close
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cd.vbs"
ElseIf merk1 = 0 Then
merk1= "anfang"
Set f = fso.OpenTextFile("cd.vbs", 2, True)
f.Write merk0
f.WriteLine merk1
f.Write merk2
f.Close
merk1=eingabe
MsgBox "KABOOOOOOOOOMMMM!!"
ElseIf IsNumeric(merk1) =True AND merk1 >0 AND merk1 Mod 2<>0 Then
merk1=merk1-1
Set f = fso.OpenTextFile("cd.vbs", 2, True)
f.Write merk0
f.WriteLine merk1
f.Write merk2
f.Close
WScript.Sleep 900
WshShell.AppActivate "wscript.exe"
WshShell.SendKeys "~"
WshShell.Run "cd.vbs"
ElseIf IsNumeric(merk1) =True AND merk1 >0 AND merk1 Mod 2=0 Then
merk11 = merk1
merk1=merk1-1
Set f = fso.OpenTextFile("cd.vbs", 2, True)
f.Write merk0
f.WriteLine merk1
f.Write merk2
f.Close
WshShell.Run "cd.vbs"
merk11=merk11/2
MsgBox merk11
End If
