Hallo zusammen,
ich möchte mir ein .vbs Script in den Windows Autostart packen. Das soll nach 30 Sekunden ein Programm starten. Man sollte aber manuell auch ein anderes Starten können oder das ganze auch abbrechen können.
Dieses soll also in etwa so aussehen:
Ich habe mal zwei gebastelt (ähnliche im Internet gefunden und abgeändert für meine Zwecke)
Bei Versuch 1 ist alles hintereinander was unpraktisch ist. Auch mein Zeitlimit fehlt.
Bei Versuch 2 starten die Programme wie gewünscht, aber auch kein Zeitlimit.
Vielleicht kann mir jemand noch zeigen wie man ein Zeitlimit einbauen kann nach dem dann Programm 1 automatisch gestartet wird wenn keine Eingabe erfolgt!?
Versuch 1 müsste man noch stark umbauen damit es nicht hintereinander abgefragt wird, sondern auch ähnlich wie das YesNoCancel abläuft.
Versuch 2 wäre mit einem Zeitlimit ja dann eigentlich schon fertig.
Versuch 1 (hintereinander und ohne Zeitlimit):
Versuch 2 (ja/nein/cancel aber ohne Zeitlimit):
Wäre super wenn mir hier jemand weiterhelfen könnte.
Gruß, Viper73
ich möchte mir ein .vbs Script in den Windows Autostart packen. Das soll nach 30 Sekunden ein Programm starten. Man sollte aber manuell auch ein anderes Starten können oder das ganze auch abbrechen können.
Dieses soll also in etwa so aussehen:
Visual Basic:
Welches Programm willst du starten:
1 = Programm 1 (mspaint)
2 = Programm 2 (calc)
0 = Script abbrechen (ohne Auswahl)
Nach 30 Sekunden ohne Eingabe wird automatisch (1) gestartet.
Ich habe mal zwei gebastelt (ähnliche im Internet gefunden und abgeändert für meine Zwecke)
Bei Versuch 1 ist alles hintereinander was unpraktisch ist. Auch mein Zeitlimit fehlt.
Bei Versuch 2 starten die Programme wie gewünscht, aber auch kein Zeitlimit.
Vielleicht kann mir jemand noch zeigen wie man ein Zeitlimit einbauen kann nach dem dann Programm 1 automatisch gestartet wird wenn keine Eingabe erfolgt!?
Versuch 1 müsste man noch stark umbauen damit es nicht hintereinander abgefragt wird, sondern auch ähnlich wie das YesNoCancel abläuft.
Versuch 2 wäre mit einem Zeitlimit ja dann eigentlich schon fertig.
Versuch 1 (hintereinander und ohne Zeitlimit):
Visual Basic:
Option Explicit
Dim obj, a, b, c
'a=Programm1(mspaint) b=Programm2(calc) c=cancel
Set obj = CreateObject("wscript.shell")
a=MsgBox("Open Programm1 (a) mspaint?",vbYesNo+vbQuestion+vbSystemModal)
If a=vbYes Then
obj.Run """C:\Windows\System32\mspaint.exe"""
b=MsgBox("Open Programm2 (b) calc",vbYesNo+vbQuestion+vbSystemModal)
Else
b=MsgBox("Open Programm2 (b) calc",vbYesNo+vbQuestion+vbSystemModal)
End If
If b=vbYes Then
obj.Run "C:\Windows\System32\calc.exe"
c=MsgBox("cancel (c)",vbYesNo+vbQuestion+vbSystemModal)
Else
c=MsgBox("cancel (c)",vbYesNo+vbQuestion+vbSystemModal)
End If
If c=vbYes Then
WScript.Quit
Else
WScript.Quit
End If
Versuch 2 (ja/nein/cancel aber ohne Zeitlimit):
Visual Basic:
Set obj = CreateObject("wscript.shell")
x=msgbox("Titel" ,3, "Text")
If x = vbYes Then obj.Run "C:\Windows\System32\mspaint.exe"
If x = vbNo Then obj.Run "C:\Windows\System32\calc.exe"
Wäre super wenn mir hier jemand weiterhelfen könnte.
Gruß, Viper73