Programm ausführen nach Standby/Ruhezustand

schreibe folgendes in eine text-datei (Neu Textdokument.txt):



Dim T1, T2, X0, X1, X2, P1, P2
X2=0

Do While 1 > 0

if X2 < 7855 then

Set WshShell = WScript.CreateObject("WScript.Shell")

P1="c:\0815.lnk"
P2=1

WScript.Sleep 30000

WshShell.Run P1, P2

end if

T1 = time
WScript.Sleep 10000
T2 = time

X0 = T2-T1
X1 = CDate(X0)
X2 = CLng(1/X0)

if X2 < 1 then
X2 = 8640
end if

Loop



erstelle einen link von dem programm das du starten möchtes.
benenne diesen link in 0815 um
und kopiere ihn ins stammverzeichnis vom datenträger c:\

dann benenne die text-datei (Neu Textdokument.txt) in autostart.vbs um.

kopiere die autostart.vbs nach Start > Programme > Autostart
damit sie beim systemstart geladen wird.
mach ein doppelklick darauf um sie schon jetzt zu laden.

jetzt sollte dein liebligsprogramm immer 30 sekunden nach dem start des systems ob heruntergefahren, ruhezustand oder standby starten.

ausnahme bei ruhezustand und standby:
- wenn der computer, auf 11 sekunden oder weniger genau, 24 stunden später startet.


nun noch was zur funktion:

die autostart.vbs muss mal geladen werden,
am besten automatisch im autostart von windows.

danach ist sie im speicher und überprüft alle 10 sekunden ob auch 10 sekunden vergangen sind.

bei ruhezustand oder standby dauert die zeit zwischen T1=time un T2=time länger als 11 sekunden und das linkfile unter c:\0815.lnk wird 30 sekunden später 1 mal ausgeführt.

bei neustarten nach dem heruterfahren wird autostart.vbs neu in den speicher geladen.
dabei wird das linkfile unter c:\0815.lnk 30 sekunden später 1 mal ausgeführt.

sollte X2 mal negativ werden, was über mitternacht der fall ist, wird es einfach X2 = 8640 gestellt und nichts passiert.


zur kontrolle könnt ihr folgende zeile:


WshShell.Run P1, P2


durch diese ersetzen:


MsgBox "Unterbruch = "&X2&" hh:mm:ss = "&X1&" ( 8640 = 10 Sekunden )"



gruss treehe

Hallo,
irgendwas hakt da bei mir. Fehlermeldung Windows Script Host:

Skript: C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Autostart\autostar.vbs
Zeile: 15
Zeiche: 1
Fehler: Ungültiger Prozeduraufruf oder ungültiges Argument
Code: 800A00005
Quelle: Laufzeitfehler in Microsoft VBScrip

Grüße
Olli

du wirst wohl zeile 1 oder zeile 8 etwas falsch geschrieben haben das zeile 15 nicht geht?
schau noch mal nach!