Verzögerter Autostart

Guten Tag

In meinem Autostartordner befindet sich ein vbs-Skript. Gibt es eine
Möglichkeit, dieses mit einer Verzögerung (von z.b. 30 Sekunden nach
vollständigem Laden von XP) starten zu lassen?
(Hintergrund: das gleichzeitige Ausführend des vbs-Skripts mit allen
andern Anwendungen führt zu Konflikten; der Ladeprozess bleibt
hängen [vielleicht weil es sich um ein uralt Programm für Win98
handelt?]. Wenn ich das Skript aber nachträglich manuell starte,
funktioniert es problemlos).

Dank und Gruss
Walt Gallus

Walt Gallus <_nospam_walt.gallus@gmx.net> schrieb:

Hallo Walt,

> In meinem Autostartordner befindet sich ein vbs-Skript. Gibt es eine
> Möglichkeit, dieses mit einer Verzögerung (von z.b. 30 Sekunden nach
> vollständigem Laden von XP) starten zu lassen?

Setze doch eine Schlaf-Zeile an den Anfang des Skripts. Etwas wie

WScript.Sleep 30000
oder
System.Threading.Thread.Sleep(30000)

--
Gruß
Ralf
Ich mag kein TOFU. Siehe http://einklich.net/usenet/zitier.htm
Bei Direkt-Mails NOSPAM entfernen

"Ralf Breuer" schrieb

> Setze doch eine Schlaf-Zeile an den Anfang des Skripts. Etwas wie
>
> WScript.Sleep 30000
> oder
> System.Threading.Thread.Sleep(30000)

Ich hätte natürlich erwähnen sollen, dass das Skript nicht von mir
stammt und ich selber davon keine Ahnung habe. Aber du hast mir ja
schon so oft aus der Patsche geholfen, dass du mittlerweile weisst,
dass ich ein Banause bin ;-).

Hier mein Skript:


' Datei: RestartReminder.vbs
'
' Funktion: Startet Reminder wie gewohnt.
' Beim Beenden von Reminder kann gewählt
' werden, ob Reminder beendet oder neu
' gestartet werden soll.

Option Explicit
Dim WshShell,Command
Dim Return,Prompt,Title,Result

Command = "c:\programme\utilities\reminder\reminder.exe"
Prompt = "Möchten Sie Reminder beenden?"
Title = "Reminder Restarter"

Set WshShell = WScript.CreateObject("WScript.Shell")
While RestartReminder()
' Leere Schleife
Wend
Set WshShell = Nothing
WScript.Quit

Function RestartReminder()
Return = WshShell.Run(Command, 1, True)
Result=MsgBox(prompt,36,title)
If Result = 6 Then
RestartReminder = False
else
RestartReminder = True
end if
End Function


Kannst du es bitte mit deinem Vorschlag so ergänzen, dass ich es per
Copy/Paste übernehmen kann?

Dank und Gruss

Walt Gallus

Walt Gallus <_nospam_walt.gallus@gmx.net> schrieb:

> Kannst du es bitte mit deinem Vorschlag so ergänzen, dass ich es per
> Copy/Paste übernehmen kann?

gerne :-)

' Datei: RestartReminder.vbs
'
' Funktion: Startet Reminder wie gewohnt.
' Beim Beenden von Reminder kann gewählt
' werden, ob Reminder beendet oder neu
' gestartet werden soll.

Option Explicit
Dim WshShell,Command
Dim Return,Prompt,Title,Result

Command = "c:\programme\utilities\reminder\reminder.exe"
Prompt = "Möchten Sie Reminder beenden?"
Title = "Reminder Restarter"

Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 30000
While RestartReminder()
' Leere Schleife
Wend
Set WshShell = Nothing
WScript.Quit

Function RestartReminder()
Return = WshShell.Run(Command, 1, True)
Result=MsgBox(prompt,36,title)
If Result = 6 Then
RestartReminder = False
else
RestartReminder = True
end if
End Function

--
Gruß
Ralf
Ich mag kein TOFU. Siehe http://einklich.net/usenet/zitier.htm
Bei Direkt-Mails NOSPAM entfernen

"Ralf Breuer" schrieb

> gerne :-)

Super - vielen Dank, Ralf!

Gruss

Walt Gallus

Walt Gallus <_nospam_walt.gallus@gmx.net> schrieb:

> Super - vielen Dank, Ralf!

bitte :-)

--
Gruß
Ralf
Ich mag kein TOFU. Siehe http://einklich.net/usenet/zitier.htm
Bei Direkt-Mails NOSPAM entfernen

Walt Gallus schrieb:
> "Ralf Breuer" schrieb
>
>> Setze doch eine Schlaf-Zeile an den Anfang des Skripts. Etwas wie
>>
>> WScript.Sleep 30000
>> oder
>> System.Threading.Thread.Sleep(30000)
>
> Ich hätte natürlich erwähnen sollen, dass das Skript nicht von mir
> stammt und ich selber davon keine Ahnung habe. Aber du hast mir ja schon
> so oft aus der Patsche geholfen, dass du mittlerweile weisst, dass ich
> ein Banause bin ;-).
>
> Hier mein Skript:
>
>
> ' Datei: RestartReminder.vbs
> '
> ' Funktion: Startet Reminder wie gewohnt.
> ' Beim Beenden von Reminder kann gewählt
> ' werden, ob Reminder beendet oder neu
> ' gestartet werden soll.
>
> Option Explicit
> Dim WshShell,Command
> Dim Return,Prompt,Title,Result
>
> Command = "c:\programme\utilities\reminder\reminder.exe"
> Prompt = "Möchten Sie Reminder beenden?"
> Title = "Reminder Restarter"
>
> Set WshShell = WScript.CreateObject("WScript.Shell")
> While RestartReminder()
> ' Leere Schleife
> Wend
> Set WshShell = Nothing
> WScript.Quit
>
> Function RestartReminder()
> Return = WshShell.Run(Command, 1, True)
> Result=MsgBox(prompt,36,title)
> If Result = 6 Then
> RestartReminder = False
> else
> RestartReminder = True
> end if
> End Function

Wozu braucht man sowas?

Regards
HeHo

"Helmut Hornbach" <heho-invalid@web.de> schrieb:


> Wozu braucht man sowas?

Deine Beiträge werden immer sinnvoller.
Und lass bitte wenigstens das Vollquoting bleiben.

Heinz
--
Verantwortlich ist man nicht nur für das, was man tut,
sondern auch für das, was man nicht tut. (Lao-Tse)

Heinz Chrudina schrieb:
> "Helmut Hornbach" <heho-invalid@web.de> schrieb:
>
>
>> Wozu braucht man sowas?
>
> Deine Beiträge werden immer sinnvoller.

Ich will das wissen, aber Dein Beitrag ist völlig unnötig.
Du sitzt schon wieder gelangweilt vor dem Computer:
<178jw93ifaatr.dlg@derfisch.de>

Regards
HeHo

"Helmut Hornbach" <heho-invalid@web.de> schrieb:
> Heinz Chrudina schrieb:
>> "Helmut Hornbach" <heho-invalid@web.de> schrieb:


>>> Wozu braucht man sowas?
>>
>> Deine Beiträge werden immer sinnvoller.

> Ich will das wissen, aber Dein Beitrag ist völlig unnötig.

Lesen!

[Zitat]
In meinem Autostartordner befindet sich ein vbs-Skript. Gibt es eine
Möglichkeit, dieses mit einer Verzögerung (von z.b. 30 Sekunden nach
vollständigem Laden von XP) starten zu lassen?
(Hintergrund: das gleichzeitige Ausführend des vbs-Skripts mit allen
andern Anwendungen führt zu Konflikten; der Ladeprozess bleibt
hängen [vielleicht weil es sich um ein uralt Programm für Win98
handelt?]. Wenn ich das Skript aber nachträglich manuell starte,
funktioniert es problemlos).
[/Zitat]

Alles klar?

> Du sitzt schon wieder gelangweilt vor dem Computer:

Ha ha.

Heinz
--
Eigentlich bin ich ganz anders,
ich komme nur so selten dazu. (Ödön v. Horváth)