17
Hinweisfenster einblenden, welches vor einem durch die Batch gestartetem Tool erscheint
Hallo zusammen,
ich habe eine Batch, die zum Testen erst einmal mspaint wie folgt startet.
[code]
@echo off
REM hier den AnWendungspfad eintragen
cd "c:\wtsrv\system32"
mspaint.exe
...
[/code]
Diese Batch läuft "unsichtbar". Paint wird nicht per start gestartet, da noch etwas passieren soll, sobald Paint geschlossen wird. Dies passiert bei den Pünktchen.
Beim Anwender soll beim Aufruf also paint starten. Gleichzeitig soll im Vordergrund ein Hinweisfenster eingeblendet werden, das den Anwender über eine Wartezeit von einem definierten Zeitraum (z.B. 10 Sekunden) informiert und dann verschindet, so dass er dann das gestartete Paint sieht.
Idee:
Ich mache eine Hinweis.bat, welche den Anwender über die Wartezeit informiert und das dann nach dem von mir gewünschten Zeitraum wieder verschwindet.
Den Aufruf der Hinweis.bat schreibe ich vor das mspaint.exe
Problem:
Rufe ich das mit
[code]
start "" hinweis.bat
[/code]
auf, dann startet nach meiner Hinweis.bat sofort danach Paint. Allerdings befindet sich das Fenster mit dem Hinweis im Hintergrund hinter Paint.
Rufe ich die Hinweis.bat ohne das start "" auf, dann wird Paint erst gestartet, wenn die Hinweis.bat abgearbeitet wurde.
Frage:
Wie kann ich paint starten und vor paint einen Hinweis setzen der den Anwender informiert, zum Warten zwingt und der im Vordergrund bleibt?
Wie gesagt muss der Aufruf vor dem paint-Start erfolgen, da die Batch, die Paint startet, weiterhin noch aktiv bleibt und noch etwas ausführen soll, sobald Paint geschlossen wird.
Viele Grüße
Martin
ich habe eine Batch, die zum Testen erst einmal mspaint wie folgt startet.
[code]
@echo off
REM hier den AnWendungspfad eintragen
cd "c:\wtsrv\system32"
mspaint.exe
...
[/code]
Diese Batch läuft "unsichtbar". Paint wird nicht per start gestartet, da noch etwas passieren soll, sobald Paint geschlossen wird. Dies passiert bei den Pünktchen.
Beim Anwender soll beim Aufruf also paint starten. Gleichzeitig soll im Vordergrund ein Hinweisfenster eingeblendet werden, das den Anwender über eine Wartezeit von einem definierten Zeitraum (z.B. 10 Sekunden) informiert und dann verschindet, so dass er dann das gestartete Paint sieht.
Idee:
Ich mache eine Hinweis.bat, welche den Anwender über die Wartezeit informiert und das dann nach dem von mir gewünschten Zeitraum wieder verschwindet.
Den Aufruf der Hinweis.bat schreibe ich vor das mspaint.exe
Problem:
Rufe ich das mit
[code]
start "" hinweis.bat
[/code]
auf, dann startet nach meiner Hinweis.bat sofort danach Paint. Allerdings befindet sich das Fenster mit dem Hinweis im Hintergrund hinter Paint.
Rufe ich die Hinweis.bat ohne das start "" auf, dann wird Paint erst gestartet, wenn die Hinweis.bat abgearbeitet wurde.
Frage:
Wie kann ich paint starten und vor paint einen Hinweis setzen der den Anwender informiert, zum Warten zwingt und der im Vordergrund bleibt?
Wie gesagt muss der Aufruf vor dem paint-Start erfolgen, da die Batch, die Paint startet, weiterhin noch aktiv bleibt und noch etwas ausführen soll, sobald Paint geschlossen wird.
Viele Grüße
Martin
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 189921
Url: https://administrator.de/forum/hinweisfenster-einblenden-welches-vor-einem-durch-die-batch-gestartetem-tool-erscheint-189921.html
Ausgedruckt am: 22.12.2024 um 22:12 Uhr
17 Kommentare
Neuester Kommentar
Das dürfte über eine MSGBox gehen. Dein Google Begriff ist MSGBOX + Batch
jab aber wie bekomme ich die in den Vordergrund?
Die starte ich ja auch vor dem paint.
Und damit überdeckt Paint auch wieder diese MSGBOX
Hallo blacksun!
Versuchs mal mit diesem Script (*.vbs):
Gruß Dieter
Versuchs mal mit diesem Script (*.vbs):
MsgBox "Bitte warten!", vbInformation,"Paint wird gestartet..."
CreateObject("Wscript.Shell").Run "mspaint.exe", 10, False Gruß Dieter
Zitat von @76109:
Versuchs mal mit diesem Script (*.vbs):
> MsgBox "Bitte warten!", vbInformation,"Paint wird gestartet..."
> CreateObject("Wscript.Shell").Run "mspaint.exe", 10, False
> Hallo Dieter,
bringt leider auch nichts.
Paint startet erst wenn die Meldung bestätigt wird.
- Es soll aber erreicht werden, dass Paint startet und gleichzeitig die Meldung im Vordergrund erscheint (nicht hinter Paint versteckt ist)
- die Meldung soll Paint "verdecken" mit dem Hinweis noch zu warten
- Nachdem paint vom Anwender geschlossen wird sollen noch weitere Befehle abgearbeitet werden.
Viele Grüße
Martin
... und so
oder so (eher nicht 
)?
Grüße
bastla
[Edit] Parameter "bWaitOnReturn" in Variante 1 auf
Set Sh = CreateObject("WScript.Shell")
Sh.PopUp "Paint wird gestartet ...", 10
Sh.Run "mspaint.exe", 8, True Set Sh = CreateObject("WScript.Shell")
Sh.Run "mspaint.exe", 1, False
Sh.PopUp "Paint wird gestartet...", 10 bastla
[Edit] Parameter "bWaitOnReturn" in Variante 1 auf
True geändert [/Edit]
Hallo bastla!
Mhm, dass Script soll doch nachdem Paint geschlossen ist weiterlaufen. Also eher Variante 1 mit True am Ende oder nicht?
Gruß Dieter
Mhm, dass Script soll doch nachdem Paint geschlossen ist weiterlaufen. Also eher Variante 1 mit True am Ende oder nicht?
Gruß Dieter
Hallo Dieter!
Yep - wäre besser
(ändere ich oben) ...
Grüße
bastla
Yep - wäre besser
(ändere ich oben) ...Grüße
bastla
hmm, ich bräuchte eine Kombination aus beidem
Das was der Anwender sieht soll so aussehen:
[IMG]http://i48.tinypic.com/e0lb0w.jpg[/IMG]
D.h. die Meldung soll zwingend IMMER vor Paint erscheinen.
Aber das Skript soll auf jeden Fall noch was tun, wenn paint vom Anwender geschlossen wird!
Insgesamt soll schematisch folgendes passieren:
[code]
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.Run "connect.bat", 0, False
'Dann soll Paint starten mit der Meldung im VORDERGRUND
Set Sh = CreateObject("WScript.Shell")
Sh.PopUp "Paint wird gestartet ...", 10
Sh.Run "mspaint.exe", 8, True
'Wenn Paint geschlossen wird soll passieren
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.Run "disconnect.bat", 0, False
[/code]
die connect.bat und disconnect.bat müssen aber in einem anderen Ordner ausgeführt werden wie mspaint (weil darin ein zweiteiliges Tool gestartet wird welches den zweiten Teil zwingend im gleichen Ordner erwartet
Ingesamt soll also folgendes passieren:
1. Eine Connect-Batch wird ausgeführt
2. Paint startet
3. Meldung erscheint
4. Erst wenn der Anwender paint schließt soll die Disconnect-Batch ausgeführt werden.
Das was der Anwender sieht soll so aussehen:
[IMG]http://i48.tinypic.com/e0lb0w.jpg[/IMG]
D.h. die Meldung soll zwingend IMMER vor Paint erscheinen.
Aber das Skript soll auf jeden Fall noch was tun, wenn paint vom Anwender geschlossen wird!
Insgesamt soll schematisch folgendes passieren:
[code]
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.Run "connect.bat", 0, False
'Dann soll Paint starten mit der Meldung im VORDERGRUND
Set Sh = CreateObject("WScript.Shell")
Sh.PopUp "Paint wird gestartet ...", 10
Sh.Run "mspaint.exe", 8, True
'Wenn Paint geschlossen wird soll passieren
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.Run "disconnect.bat", 0, False
[/code]
die connect.bat und disconnect.bat müssen aber in einem anderen Ordner ausgeführt werden wie mspaint (weil darin ein zweiteiliges Tool gestartet wird welches den zweiten Teil zwingend im gleichen Ordner erwartet
Ingesamt soll also folgendes passieren:
1. Eine Connect-Batch wird ausgeführt
2. Paint startet
3. Meldung erscheint
4. Erst wenn der Anwender paint schließt soll die Disconnect-Batch ausgeführt werden.
moin blacksun,
sowas ähnliches gabs schonmal.
Im cmd gehts auch:
Waitfor wird mindestens dafür gebraucht.
Timeout könnte duch ping ersetzt werden.
Gruß Phil
sowas ähnliches gabs schonmal.
Im cmd gehts auch:
@echo off
setlocal
set /a Timer=15
set "WSig=PaintFertig%Random%"
start "Warte auf Ende von Paint" /min cmd /c "mspaint && waitfor /si %wsig% "
timeout /t 2 >nul
start "Moment Bitte ..." cmd /c " mode 50,10 &(for /l %%i in (%timer% -1 1) do title Bitte noch %%i sekunde^(n^) Warten. &cls &echo Paint startet ... moment&<nul set /p "=Warten sie Bitte noch %%i sekunde(n)" &timeout /t 1 /nobreak >nul) "
waitfor %wsig%
title jetzt kanns hier weitergehen weil Paint beendet wurde.
for /l %%i in (5 -1 1) do cls &<nul set /p "=Programm endet in %%i sekunde(n)" &timeout /t 1 /nobreak >nul
exit /bTimeout könnte duch ping ersetzt werden.
Gruß Phil
Hallo blacksun!
Na, in VBS dann mit 2 Skripts:
Skript1:
Skript2 (PopUp.vbs):
Gruß Dieter
[edit] bastlas Vorschlag übernommen [/edit]
Na, in VBS dann mit 2 Skripts:
Skript1:
Set Sh = CreateObject("WScript.Shell")
Sh.Run Replace(WScript.ScriptFullName, WScript.ScriptName, "PopUp.vbs"), 0, False
Sh.Run "mspaint.exe", 3, True WScript.Sleep 500 'anpassen
CreateObject("WScript.Shell").PopUp "Paint wurde gestartet bitte 15 Sekunden warten...", 15 Gruß Dieter
[edit] bastlas Vorschlag übernommen [/edit]
@phil und Dieter
Mensch, genau das hab ich gesucht, beide Varianten funktionieren perfekt.
Was mir schon seit einigen Wochen durch den Kopf geht:
Im Moment kommen bei mir Windows2003-Server (32-Bit) zum Einsatz. Ende nächsten Jahres sollen diese durch Windows Windows Server 2012 ersetzt werden.
Wie sieht das dann mit Batch und VBS aus?
Funktionieren dann Batch und VBS noch? Wie sieht das aus?
Muss ich dann meine ganzen Batch-Skripte umschreiben? Und wenn ja, in was?
Mensch, genau das hab ich gesucht, beide Varianten funktionieren perfekt.
Was mir schon seit einigen Wochen durch den Kopf geht:
Im Moment kommen bei mir Windows2003-Server (32-Bit) zum Einsatz. Ende nächsten Jahres sollen diese durch Windows Windows Server 2012 ersetzt werden.
Wie sieht das dann mit Batch und VBS aus?
Funktionieren dann Batch und VBS noch? Wie sieht das aus?
Muss ich dann meine ganzen Batch-Skripte umschreiben? Und wenn ja, in was?
Hallo Dieter!
Vorschlag, um das noch etwas dynamischer zu machen:
- dann genügt es, beide Scripts in den gleichen Ordner zu legen ...
Grüße
bastla
Vorschlag, um das noch etwas dynamischer zu machen:
Sh.Run Replace(WScript.ScriptFullName, WScript.ScriptName, "") & "PopUp.vbs", 0, False
Grüße
bastla
Hallo blacksun!
Hier noch eine 'PopUp.hta', die in der Anzeige die Sekunden herunterzählt und auch solange den Fokus behält:
@bastla
Deinen Vorschlag habe ich oben eingebaut
Gruß Dieter
Hier noch eine 'PopUp.hta', die in der Anzeige die Sekunden herunterzählt und auch solange den Fokus behält:
<html>
<head>
<title>Paint gestartet...</title>
<HTA:APPLICATION
ID = "AutoRefresh"
ApplicationName = "Paint"
Scroll = "no"
SysMenu = "no"
SingleInstance="yes"/>
</head>
<SCRIPT LANGUAGE="VBScript">
Const WaitSecond = 15 'Wartezeit in Sekunden
Const WindowWidth = 260 'Fensterbreite
Const WindowHeight = 100 'Fensterhöhe
Dim Zeit, oShell
Sub Window_OnLoad()
Window.ResizeTo WindowWidth, WindowHeight
Window.MoveTo ((Screen.Width - WindowWidth) / 2), ((Screen.Height - WindowHeight) / 2)
Set oShell = CreateObject("WScript.Shell")
Zeit = DateAdd("s", WaitSecond, Now)
Call RefreshTime: TimerID = Window.SetInterval("RefreshTime", 100)
End Sub
Sub RefreshTime()
If Zeit <= Now Then Close
oShell.AppActivate "Paint gestartet..."
Document.All.Sek.Value = Right(Space(4) & Second(Zeit - Now), 5)
End Sub
</SCRIPT>
<body bgcolor='buttonface' style='font-family:Arial;font-size:12px'>
Bitte noch warten
<input type='text' name='Sek' value='' readonly='readonly' size='1' style='font-family:Arial;font-size:12px'>
Sekunden
</body>
</html>@bastla
Deinen Vorschlag habe ich oben eingebaut
Gruß Dieter
Hallo,
könnte die Zeit bei
weniger als Sekunde gesetzt werden? Z. B. nur eine halbe Sekunde?
Gruß
Evinben
könnte die Zeit bei
CreateObject("WScript.Shell").PopUp "TextZumAnzeigen", 1 Gruß
Evinben
Hallo evinben!
Geht nur mit minimal 1 Sekunde.
Grüße
bastla
Geht nur mit minimal 1 Sekunde.
Grüße
bastla
Hallo bastla,
schade. Dann schaue ich einen neuen Beitrag Vormittag zu eröffnen. Sicherlich gäbe es da andere alternative und ebenso "KURZE" Lösungen (im Falle in VBA für Outlook).
Einen schönen Freitag!
evinben
schade. Dann schaue ich einen neuen Beitrag Vormittag zu eröffnen. Sicherlich gäbe es da andere alternative und ebenso "KURZE" Lösungen (im Falle in VBA für Outlook).
Einen schönen Freitag!
evinben
