- #1
N
nero-chrischi
Mitglied
Themenersteller
- Dabei seit
- 31.01.2006
- Beiträge
- 13
- Reaktionspunkte
- 0
- Ort
- ...Schweiz...
[size=20pt]!!!Achtung!!![/size]
[size=12pt]Ich habe schon längere Zeit versucht eine alternativlösung für sleep.exe zu finden,
und bin schliesslich im Internet fündig geworden.
Ein VBS von dieseyer.de... Eine super vorlage für meine Batch.
Hab das VBS etwas umgeändert und verkleinert 1,93 KB > 455 Byte !
und in meine Batch datei gequetscht.
Der vorteil von VBS ist, dass sie vieeeeel kleiner ist als ne Anwendung
und man den prozess nicht einmahl in dem Taskmanager sieht!
[/size]
Das ist meine Batch:
@echo off
if exist wait.vbs goto end
echo Option Explicit > wait.vbs
echo Dim Progr, Zeit, i, oArgs >> wait.vbs
echo set oArgs = Wscript.Arguments >> wait.vbs
echo For i = 0 to oArgs.Count - 1 >> wait.vbs
echo If i = 0 Then Zeit = oArgs.item(i) >> wait.vbs
echo Next >> wait.vbs
echo If InStr( Zeit, . ) Then Zeit = Left( Zeit, InStr( Zeit, . ) -1 ) >> wait.vbs
echo If InStr( Zeit, , ) Then Zeit = Left( Zeit, InStr( Zeit, , ) -1 ) >> wait.vbs
echo On Error Resume Next >> wait.vbs
echo Zeit = Zeit / 10*10 >> wait.vbs
echo On Error GoTo 0 >> wait.vbs
echo WScript.Sleep Zeit*1000 >> wait.vbs
echo If Progr = Then WScript.Quit >> wait.vbs
echo WScript.CreateObject(WScript.Shell).Run Progr >> wait.vbs
:end
rem ------------------------------------------------------
rem .-'Nun die Befehle'-.
rem Die Zahl nach der wait.vbs sind die wartenden Sekunden
rem Keine Zahl Bedeuten ca. 0.1 Sek
rem ------------------------------------------------------
echo Hallo
wait.vbs 1
cls
echo Wie gehts?
wait.vbs 1
cls
echo Ok...
wait.vbs 1
cls
echo Have a nice Day!
wait.vbs 3
cls
del wait.vbs
echo - - - - - - - - - - -
echo By nero-chrischi
echo -----------------------
echo Vorlage von dieseyer.de
echo - - - - - - - - - - -
pause
[size=14pt]And have a nice Day![/size] :coolsmiley: